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近年 来 ， 于 地 震 学 各 领域 广泛 使 用 了 计算 机 ， 使 得 这 方面 
的 数值 方法 及 计算 机 程序 有 很 大 发 展 。 例 如 ， 有 关 地 震 信 号 的 在 
- 储 与 处 理 问题 ， 研 究 震源 及 地 球 内 部 结构 问题 ， 地 震 过 程 的 模拟 
Ий. 都 发 表 了 一 系列 重要 的 论文 及 专著 。 国 内 外 也 多 次 召开 地 

学 计算 问题 的 专业 会 议 。 | 

本 书 从 实际 应 用 出 发 ， 对 地 震 学 中 的 一 些 基 本 问题 ， 就 其 数 
学 模型 、 数 值 计 算 方法 及 计算 程序 作 了 较 详 尽 的 讨论 。 

第 一 章 至 第 三 章 对 地 球 物理 反 演 理论 (特别 是 线性 反 演 理 
论 ) 作 了 详尽 的 论述 。 并 着 重 讨论 了 解 反 演 问题 的 基本 数值 方法 ， 
.其 中 包括 广义 北方 法 、 无 约束 最 优化 方法 及 线性 非 线性 规划 等 。 
前 三 章 是 本 书后 继 各 章 处 理 反 演 问 题 的 基础 。 

第 四 章 讨 论 P 波 初 动 断层 面 解 的 计算 机 处 理 方法 。 从 简单 的 
单 力 偶 或 双 力 偶 模 式 出 发 ， 根 据 概率 统计 原理 ， 得 到 了 用 计算 机 
搜寻 断层 面 及 有 关 震 源 运 动 参数 的 数值 计算 方法 。 

第 五 章 讨论 震源 基本 参数 (震中 位 置 、 震 源深 度 及 发 震 时 刻 ) 
”的 计算 机 定位 方法 。 对 于 近 震 ,分 别 叙 述 了 初 定 震源 参数 及 用 

Geiger}, Marquardt 法 、Poweli 法 修 定 的 算法 。 对 于 远 震 ， 
讨论 了 用 Geiger 法 修 定 震 源 参数 的 原理 及 数值 计算 方法 。 

第 六 章 讨论 地 震 体 波 在 水 平 及 侨 斜 层 状 介质 中 传播 的 正 演 及 
反 演 问题 解法 。 这 些 介质 可 以 是 均 句 各 疝 同性 的 ， 也 可 以 是 沿 垂 
直方 向 速度 旦 线性 变化 的 。 

第 七 章 叙 述 了 用 Herglotz-Wiechert 公式 反 演 地 球 内 部 E 
度 分 布 的 基本 算法 及 改进 方法 。 给 出 了 各 种 速度 分 布 的 球 层 模型 
的 理论 走时 计算 公式 。 


АНГИНА. 
对 于 计算 水 平 层 状 介质 面 波 理论 频 散 的 矩阵 法 及 快速 递 推算 法 作 
了 详尽 推导 ， 并 仔细 叙述 了 用 地 震 面 波 资料 进行 计算 机 处 理 及 数 
值 反 演 的 方法 。 = 
第 九 章 详细 论述 了 计算 理论 地 大 图 的 反射 率 法 这 是 目前 精 
度 较 高 、 应 用 较 广 的 方法 ) 的 原理 及 数学 推导 ， 并 对 数值 计算 方 
法 及 程序 设计 中 有 关 问 题 作 了 讨论 ， 给 出 了 计算 实例 。 - 
第 十 章 研 究 了 任意 速度 分 布 及 弯曲 界面 的 介质 中 地 震 射 线 追 
踪 问 题 。 讨 论 了 反射 波及 折射 波 通过 介质 的 射线 分 布 及 走时 的 数 
值 计算 方法 。 同 时 还 考虑 了 反 演 问题 解法 。 | | 
以 上 各 章 均 有 用 FORTRAN 语言 编写 的 计算 机 程序 及 数值 
计算 实例 。 
本 书 大 部 分 内 容 是 作者 在 前 几 年 科研 及 教学 工作 中 逐渐 写成 
” ”的 。 其 中 部 分 章节 是 以 下 同志 写 的 ; 周 家 纪 (第 九 章 ) ， 彭 君 维 
(第 十 章 ) ， 左 海燕 (第 三 章 部 分 ) 。 | 
| ЕЖЗЗЕМЕФ, ават. ТИШЕ, m. Ж 
DR, ЖЖ. НУ. ЕЕ. ЖҰ. ЖЕШ, ЕБ ЕЫ ЕН 
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第 一 章 ”地球 物理 反 演 问题 概论 


$1-1 引 он 


目前， 有 关 地 球 内 部 ， 特 别 是 它 的 深部 的 知识 ， 绝 大 部 分 来 
源 于 对 地 表 地 球 物理 观测 资料 的 解释 。 因 此 ， 任 何 一 种 地 球 物理 
观测 景 终 都 要 求解 反 演 问题 。 即 根据 各 种 位 场 、 地 震波 、 地 球 自 
由 振 蓝 、 交 变 电 磁 场 、 以 及 热学 或 光学 的 地 球 物理 观测 数据 ， 去 
推测 地 球 内 部 的 结构 形态 及 物质 成 分 ， 定 量 计 算 各 种 有 关 的 物理 
参数 。 | 

解 反 演 问题 是 一 门 广泛 应 用 于 各 个 科学 技术 领域 的 基本 研究 
方法 。 凡 科学 技术 中 涉及 到 观测 与 演绎 的 ， 都 会 碰 到 这 类 问题 。 
例如 ， 天 体 物理 根据 光谱 的 测定 研究 宇宙 的 物质 组 成 及 星体 的 演 
Хез 根据 人 造 卫 星 瞬 时 位 置 及 速度 的 观测 数据 计算 其 轨道 要 素 ; 
利用 气象 观测 数据 研究 大 气 层 运动 规律 ， 根 据 大 地 测量 数据 可 以 
推算 出 近代 应 力 场 等 。 有 人 估计 ， 约 有 75%6 的 科学 技术 问题 ， 都 
以 不 同方 式 ， 在 不 同 程度 上 涉及 到 解 反 演 问 题 。 

解 反 演 问题 的 古典 方法 是 最 小 二 乘法 及 统计 学 的 回归 、 参 数 
估计 等 。 近 甘 余 年 来 ， 由 于 地 球 物理 反 演 问 题 的 计算 广泛 应 用 了 
信息 论 、 线 性 及 非 线性 规划 、 广 义 道理 论 及 最 优化 方法 等 一 些 数 
学 工具 ， 在 理论 和 方法 上 都 有 重大 进展 。 

任何 反 演 问题 的 计算 都 是 建立 在 正 演 问题 基础 上 的 。 只 有 我 
们 已 经 了 解 到 某 种 地 球 物理 问题 的 数学 解答 (解析 的 或 数值 的 )， 
即 能 计算 其 正 演 问 题 时 ， 我 们 才 可 能 解 反 浪 问题 。 对 于 那些 成 因 
或 机 制 尚 不 清楚 的 地 球 物理 问题 ， 是 谈 不 到 解 反 演 问题 的 。 


反 演 问题 是 地 球 物理 研究 中 一 个 重要 而 又 困难 的 课题 。 最 主 
要 的 困难 是 反 演 结果 存在 着 多 解 性 (不 唯一 性 )， 这 就 降低 了 反 演 
结果 的 可 靠 程度 。 

地 球 物理 反 演 问题 的 不 唯一 性 不 是 反 演 方法 或 技巧 上 的 缺陷 
引起 的 。 而 是 这 种 问题 所 存在 的 固有 困难 。 困 难 之 一 是 观测 资料 
теё. 这 是 由 于 地 球 物理 观测 通常 只 能 在 地 球 表面 或 其 上 空 进 

， 无 法 获得 反映 地 球 内 部 物质 的 充足 的 信息 。 这 就 使 得 反 演 结 
қауын 而 每 一 种 可 能 的 解答 都 能 够 满足 不 充分 的 观测 
”数据 。 地 球 物理 观测 信息 的 不 足 是 无 法 用 数学 技巧 来 弥补 的 。 困 
难 之 二 是 任何 地 球 物理 观测 都 存在 于 扰 和 误差 。 用 这 种 受贿 变 的 
观测 数据 进行 反 演 计算 是 不 稳定 的 ， 即 观测 数据 中 的 少量 错误 可 
能 导致 反 演 结果 很 大 的 变动 。 因 此 ， 在 地 球 物理 反 演 理论 中 ， 不 
仅 要 讨论 各 种 解 算 方法 ， 还 要 着 重 研究 如 何 减 小 解 的 不 唯一 性 问 
题 。 目 前 ， 国 内 外 地 球 物 理工 作者 已 经 在 这 方面 作 了 不 少 努力 ， 
并 取得 了 一 定 的 进展 。 | 


31-2 反 演 理论 的 发 展 


在 地 球 物 理学 发 展 的 初期 ， 由 于 观测 资料 比较 粗糙 ， 一 般 只 
对 测量 数据 作 定 性 或 粗略 怠 定 量 解 释 。 从 本 世纪 初 到 五 十 年 代 ， 
随 着 地 球 物理 方法 的 发 展 ， 各 种 解 反 演 问题 的 定量 计算 方法 也 随 
之 提出 来 。 但 这 些 方法 大 多 是 孤立 地 为 解决 某 一 特定 问题 而 提出 
的 。 例 如 ， 根 据 地 球 表面 体 波 走时 观测 来 反 演 速度 随 深度 变化 的 
Herglotz-Wiechert AR, 就 是 基于 假设 速度 是 深度 的 单调 函数 
时 的 一 种 积分 运算 。 又 如 ， 重 力 、 地 磁 等 位 场 解释 中 常用 到 的 特 
征 点 法 、 积 分 法 ， 也 是 为 解释 某 一 孤立 位 场 异 常常 用 的 一 些 简 
单 运算 方法 。 这 些 方法 的 特点 是 仅 能 提供 有 关 平 均 化 的 参量 ， 例 
如 异常 物体 的 质量 或 埋藏 深度 等 。 值 得 指出 的 是 ， 这 一 阶段 提出 
的 基于 理论 计算 曲线 与 观测 曲线 相 拟 合 的 选择 法 (如 直流 电 测 深 


42. 


及 大 地 电磁 测 深 解释 中 应 用 的 理论 曲线 量 板 ) ， 已 其 有 现代 解释 
理论 的 萌芽 ， 这 种 方法 的 基本 原理 目前 仍 在 应 用 。 应 当 指出 ， 上 
述 各 种 反 演 方法 都 假定 了 不 存在 误差 ， 故 又 称 精确 计算 法 。 

- 近 三 十 余年 来 ， 随 着 科学 技术 的 迅速 发 展 ， 地 球 物理 资料 无 
论 在 空间 分 布 范围 上 (海洋 、 大 陆 、 大 气 层 及 太空 )， 以 及 数据 的 
可 靠 性 和 丰富 程度 上 ， 都 较 过 去 有 很 大 改进 。 宇 宙 飞 行 器 的 发 
展 ， 使 我 们 取得 了 大 量 的 月 球 、 火 是 、 人 金星 、 水 星 、 木 星 及 土星 
等 物理 数据 。 这 就 为 研究 地 球 内 部 以 及 行星 内 部 的 物质 结构 ， 特 
” 别 是 它们 的 精细 结构 ， 提 供 了 较 丰 富 的 资料 。 数 学 方法 及 电子 计 
算 机 的 广泛 应 用 ， 又 促进 了 地 球 物理 一 般 反 演 理论 的 建立 和 数据 
处 理 上 自动 化 的 发 展 。 

用 计算 机 对 地 球 物 理 资料 进行 反 演 计算 ， 其 基本 方法 是 寻找 
某 种 模型 ， 使 此 模型 的 理论 计算 值 与 观测 值 (存在 误差 的 ) 在 晤 小 
二 乘 意 义 下 拟 合 一 般 称 为 最 小 二 乘 拟 合 问题 ,在 不 同 的 科学 技术 
领域 内 ， 反 演 问 题 的 提 法 是 不 同 的 。 Я, ЛЖ, М 
演 是 在 给 定 的 子 空间 内 找寻 与 函数 空间 中 一 点 最 靠近 的 点 。 从 统 
计 学 观点 来 看 ， 反 演 是 回归 或 参数 估计 问题 。 而 从 信息 论 观 点 来 
看 ， 反 演 又 可 看 成 滤波 或 过 程 鉴别 问题 。 尽 管 术 语 或 提 法 不 同 ， 
”但 它们 都 直达 同一 内 容 ， 即 从 观测 数据 中 反 演 计算 所 要 求 的 地 球 
内 部 物质 的 物理 参数 。 

有 关 这 类 工作 较 早 期 的 文献 可 参看 Corbato(1965) ,Johnson 
(1969), Nage 及 Сагае(1969), Таппег(1967) 等 人 文章 ， 这 
些 都 是 用 最 小 二 乘法 在 计算 机 上 自动 拟 合 进 行 反 演 的 方法 。 

| 1967 一 1970 年 间 ，Backus 及 Gilbert 发 表 了 一 系列 重要 文 
章 。 这 些 文章 实际 上 商定 了 近代 地 球 物理 线性 反 演 理论 的 基础 , 具 
有 重要 意义 。 这 个 比较 严格 完整 的 反 演 理论 以 后 被 称 为 Backus- 
Gilbert 理论 (或 B-G И) 。 丰 他 们 的 原始 文献 中 ,， — Же 
研究 整个 地 球 内 物理 参数 的 连续 变化 ， 故 反 演 问题 以 连续 型 函数 
表达 。;1972 年 ，Wiggins НИ Ж Backus-Gilbert 理论 ЖЕПК 


为 离散 形式 。 同 年 ，Jackson МГ ХИН ЕЕ T ТЕБЕ 
演 问 题 在 各 种 情况 下 的 解答 ü 

Backus=Gilbert 线性 反 演 理论 提出 后 ， 立即 在 各 个 地 球 物 
理 领 域 中 得 到 广泛 应 用 。 例 如 地 震 学 中 体 波 或 面 波 反 演 的 文献 可 
R, Der, Masse 及 Landisman (1970), Knopoff (1972), 
Johnson 及 Gilbert (1972), Braile (1973), Braile 及 Keller 
(1975), Crosson (1976), Акі 《1977 ) 等 人 的 文章 。 МИН 
方面 的 文献 可 参见 McGrath (1973), Braile, Keller% Peeples 
(1974), Oldenburg (1976), Parker (1975), William(1975), ` 
Vigneresse (1977, 1978), Borsting Рейегѕеп( 1977), Green 
_ (1975) 等 。 地 球 电 磁场 的 反 演 文献 可 参见 Parker (1970), 
Inmann, Ryu 及 Ward (1973), Inmann (1975), 

前 已 指出 ， 地 球 物理 反 演 结果 是 不 唯一 的 。 要 减少 这 种 多 解 
性 ， 主 要 节 办 法 是 进行 约束 ， 邵 尽 可 能 利用 各 种 已 知 的 资料 (6 
验 信息 ) 对 解答 范围 进行 限制 。 因 此 ， 近 几 年 和 内， 地 球 物理 反 演 
理论 已 逐渐 集中 人 研究 约束 条 件 下 的 最 优化 问题 。 常 用 到 的 数学 工 
` 具 是 线性 或 非 线性 规划 等 。 例 如， 在 A1-Chalabi (1972),Ѕағоп, 
Vasseur Cuer (1977), Sabatier (1977), Vigneresse (1978), 
Kennett (1978), Jackson (1979), Fisher 及 Howard (1980) 
等 人 欧文 章 中 都 集中 讨论 了 这 些 问题 的 解法 。 

在 线性 反 演 理论 中 ， 善 凯 引 入 了 分 辨 矩阵 ， 信 息 矩 阵 等 重要 
概念 ， 这 对 于 理解 反 演 的 实质 及 评价 反 演 的 效果 有 重要 作用 。 这 
方面 的 内 容 可 参看 Backus 及 Gilbert |, Jackson (1972), 
Jupp (1975), Crosson (1976), Borsting Pedersen (1977) 等 
人 的 文章 。 

以 上 ， 我 们 简要 回顾 了 精确 的 及 线性 的 反 演 理 论 的 发 展 概 
况 。 与 此 并 行 的 , 解 反 演 问题 还 可 以 用 一 种 统计 试验 法 ( 即 蒙特 卡 
罗 法 )， 其 特点 是 通过 计算 机 选择 地 球 模型 去 拟 合 观测 资 料 。 这 
方面 的 工作 可 参看 Wiggins(1969), Andersen, Worthington 





及 Cleary (1972), Press (1968, 1970)%, №]. Press 用 大 
型 计算 机 对 多 种 地 球 物 理 资 料 进行 拟 合 ， 从 儿 百 万 个 随机 试验 
值 中 挑选 出 几 个 较 好 的 地 球 模型 ， 已 成 为 一 项 著名 的 研究 工 
作 。 

下 面 ， 我 们 将 讨论 地 球 物理 反 注 理论 的 一 般 数 学 原理 . 设 人 A 
为 地 球 物 理 参 量 值 构成 的 集合 ， 称 为 “地 球 模 型”， 为 映射 地 
球 参数 与 物理 观测 场 之 间 的 算 子 ， 称 为 “地 球 泛 靖 ”， 而 多 则 是 
地 球 物 理 观 测 信 构成 的 集合 ， 称 为 “最 球 数据 ”。 正 演 问 题 就 是 
地 球 模型 ore-4 得 到 观测 数据 映 象 .d= #(0%# ye 多 ， 反 过 来 ,由 
由 映 象 de Z2 获得 所 有 可 能 的 元 素 光 є- 则 称 为 反 演 问题 ， 

如 果 “ 地 球 模型 > 集合 - 么 及 “地 球 资料 ?集合 纪 都 是 线性 空 

[B], Н “Арі” СТЕВА, MIX PEB F 98 F] ЙК 
线性 的 。 可 是 ， 大 部 分 前 地 球 物 理 反 演 问题 都 不 是 线性 前 。 为 ， 
此 ， 必 须 采 用 两 种 办 法 使 其 线性 化 。 第 一 种 办 法 是 将 “地 球 泛 
bq” ТОНЕ, 代替 。 最 常见 药 办 法 是 在 某 一 初始 地 
球 模型 9%) ед Jš: ТЕ ©. (ДИ. 
МЛЕЧНА Е 2 均 成 为 线性 空间 。 

我 们 假定 Жетен A ЖЕН Li(0), 其 中 2 是 
RR 空间 中 的 有 限 域 。 通 过 个 “地 球 泛 函 ”的 核 С.(ғ2612(09, 
可 以 把 模型 空间 -4 英 射 到 资料 空间 乡 ， 由 下 述 积分 方程 表示 ， 


осо a O, (і-1,2,--,т). 
(1-2.1) 
式 中 WY (7) 为 连续 型 地 球 模型 参数 (r 可 以 看 成 地 球 半 径 ),g;(% ) 
| РЕШИТИ а, (存在 估计 误差 ) 。 НН 38 BS jn] 
АЙ ЖЕЛЕ 连续 型 的 。 : 
然而 ， 如 将 域 2 分 为 n 几 个 子 域 81，Q2.…，Q. (例如 将 地 
球 内 部 划分 为 若干 层 )， 使 ;8;= 0, 则 上 述 连续 型 函数 就 被 离 


散 化 。 地 球 模型 参数 被 离散 为 YY (k= 1，2,…，nn)， 积 分 方程 
Hes 


(1-2,1) 可 以 写 为 矩阵 方程 形式 ， 


(GY ),= У! с” = а, СО, (і-1,2,-, 
өзі (1-2,2) 
Жр, СЖтх пре, ЖЕНУ n R, 观测 数据 8 为 m 
维 向 量 。 式 (1-2.2) 表 达 的 问题 是 离散 型 的 。 

所 谓 线 性 反 演 问题 就 是 从 mm 个 观测 数据 4d:，d2，…，dv 中 获得 = 
我 们 所 要 求 的 地 球 模型 史 (Rn E WCS A ;, „НИЕ 
息 。Backus 及 Gilbert 提 出 的 反 演 理论 ， 就 是 对 连续 型 函数 形式 
(1-2.1) 给 出 平均 解 的 一 种 途径 。 而 广义 道理 论 就 是 对 离散 型 м 
数 (1-2.2) 式 求解 的 基本 方法 。 


$13 ”连续 型 线性 反 演 理论 概述 


前 面 已 经 指出 ， 地 球 物理 反 演 问题 实质 上 是 寻求 一 个 物理 模 
型 来 拟 合 观测 值 。 但 这 往往 是 不 唯一 的 。Backus 及 Gilbert 主要 
改进 在 于 从 全 部 可 能 模型 的 希 尔 伯 特 空间 ， 特 别 是 从 那些 满足 观 
测 数 的 模型 空间 中 减少 了 不 唯一 性 。 为 此 ,可 以 根据 模型 的 性 质 
对 它 进行 某 些 约束 。 例 如 模型 数据 的 非 负 性 质 ， 反 演 计算 模型 与 
初始 模型 在 参数 空间 的 最 短 “ 距 离 ” 性 质 等 ， 部 可 用 玉 约束 模 
型 ， 使 反 演 结果 的 不 唯一 性 得 到 改进 。 

”按照 Backus 及 Gilbert 的 观点 、 地 球 模型 不 过 是 适应 于 特定 
地 球 物理 问题 的 一 种 数学 抽象 ; 例如， 对 地 震 学 而 言 ， 地 球 模型 
可 以 看 为 四 个 参数 (密度 p， 体 积 模 量 x， 剪 切 模 量 u， 品 质 因数 
Q) 随 深度 变化 的 函数 。 在 地 球 化 学 中 ， 地 球 模型 将 是 各 种 元 素 
的 富 集 及 组 合 情 况 随 深度 及 时 间 变化 的 函数 。 在 地 球 电磁 场 中 ， 
地 球 模型 可 以 模拟 为 电导 素 随 深度 变化 的 裔 数 。 由 此 可 见 ， 对 于 
大 多 数 地 球 物理 问题 来 说 ， 地 球 模型 可 以 表达 为 地 球 半径 r 1 
Ж (р), Нога, d 是 地 球 半径 , 平均 值 为 6.37x 100% 


44. 





%Y 也 可 以 视 为 希 尔 伯 特 空间 中 的 一 个 元 素 Q ВА, AFYA 为 
负 的 那些 子 集 ， 是 没有 地 球 物理 意义 的 ， 在 反 演 中 应 予 排除 。 

地 球 物理 反 演 问 题 的 一 般 提 法 是 ， 根 据 一 组 观测 值 E;，ji = 
1,2,… ,m, 找 出 适应 于 该 观测 值 的 地 球 模型 Z (r)。 一 般 说 来 ， 
观测 值 Е, 是 模型 学 的 非 性 线 函 数 。 


Е;- ЕК), ј=1, 2,-%, т. (1-3,1) 
РАЗ НВА, ЕЖА 
Е* = E(% a), j=1, 2,5%, т. (1-3.2) 


АЙЖАН ОАО Н ——›, БАНЕ Е МЭРІ 
算 观 测 数据 相对 于 模型 的 导数 。 这 可 以 考虑 两 个 模型 ОСА”, 
它们 之 交 仪 相差 一 个 微量 6,， 


ECNI BAHARA | 
E (Z +ó,)= ЕО )+(F,, д„)+є(д„), (1-3.4) 


式 中 每 一 个 Е, 都 是 希 尔 伯 特 空 间 的 一 个 元 素 ,(F ;,6) 为 Fj 与 6, 
HAR, Helne lonl 更 快 趋 于 零 № (13.0) АЖ 
立 , 则 称 此 函数 是 Frechet 可 微 的 (参见 Dunford 及 Schwartz, 
1958). F; Сал ARF; (г), Sr so MRA Е, 的 
Frechet 核 函数 (或 算 子 ) ШЖ, Е; ЖЕ, ЧОК. ӘН 
球 物理 有 意义 的 数据 都 可 以 看 成 Frechet 可 微 的 。 显然 ，(1-3 .4) 
式 实 质 上 是 将 问题 线 手 化 的 一 个 重要 步 又 | 

Ж (1-3,3) ҖИ РУБЕН, 而 网 ' 是 真实 模型 , 或 至 少 
是 满足 观测 数据 的 模型 。 由 于 初始 模型 党 是 我 们 给 定 的 ,而 和 / 
是 待 求 和 的 ， 所 以 我 们 希望 求 得 6,, 。 但 是 6,,， 是 无 穷 维 向 量 空 间 
的 一 个 元 素 ， 而 仅 有 т 个 观测 数据 列 出 的 和 个 观测 方程 ， 这 就 
使 得 解答 是 不 唯一 的 。Backus 及 Gilbert 提 出 的 一 种 约束 条 #F 
是 ,找到 一 个 与 初始 模型 史 最 靠近 的 07, И ЖЖ ЛАН 
特 空间 中 “距离 ”最 得 的 作为 解答 。 这 种 约束 条 件 意味 着 寻找 一 
个 6 .， 范 数 为 最 小 , 即 16 „|| = min 的 解 。 或 者 是 满足 条 件 


СНЫ а потта maa P — > 


j Cð m (r) dr = min | (1-9.5) 


的 解 。 
若 学 与 是 最 靠近 的 , 则 式 (1-3.4) 式 中 的 e 项 可 以 忽略 。 
用 变 分 法 可 得 
Ó m = > a;iF;.. (1-3.6) 


ј= 1 
Жн а; 可 通过 下 面 n 个 线性 方程 求 得 


у) (Еу, Pas= Е(?)- B (9), 
k=l 
1=1, 2/5, и. (1-3,7) 
式 中 (Fj，F;) 是 Бегсһе 导数 的 内 积 。 在 计算 时 忽略 2 说明 这 
种 方法 是 近似 的 ， 即 由 此 得 到 的 6 是 不 精确 的 。 但 可 以 应 用 大 
代 法 ， 即 每 次 均 以 前 一 次 前 结果 то. 为 起 点 ， 逐 次 得 到 与 实 
际 观 测 值 符 合 最 好 的 模型 。 | 
Яй ЕН] ИЕРЕЙ, RRAN ж, 它 是 所 求 
模型 子 空间 的 元 素 。 要 表征 计算 模型 反映 真实 模型 的 能 力 可 用 分 
办 率 衡 晤 。 假 定 在 茶 一 半径 7。 处 ， 由 观测 数据 得 出 一 个 真实 模 
型 Cro) 的 估计 值 Z ro) , 它 一 般 可 以 看 成 在 r, 附近 的 平均 
值 ， Ер 


(то) = јас. PA (r)dr . | (1-3.8) 


AFAT, ОАЫ ЖЖ. ВХ, SHEE HEP Cr, ) 最 接 
近 真 实 模型 % (г), ДУЖА, ro ) 为 单 峰 函数 ， 也 就 是 在 
ro 处 有 一 尖锐 峰值 ， 而 其 祭 r 处 接 Ж. 理想 情况 下 是 选择 
Dirac 脉冲 函数 ， 即 | 

Alr, го) = вбере). ` (1-3,9) 


在 这 种 线性 化 的 约束 条 件 下， 平均 核 函数 可 以 表达 为 
Frechet В АЈА 


А(ғ, з= У qj(ro)F;(r), | (1-3.10) 
式 中 ，al(Cro)，a2(ro)，…，an(ro) 为 与 ro 点 有 关 的 权 系 数 。 
因此 ， 我 们 可 以 自由 地 选择 权 系 数 a;(r。) 来 构造 最 优 分 辨 函 数 。 
但 是 ， 反 演 计算 得 到 的 模型 分 辨 率 ( 表 示 唯 一 性 程度 ) 却 与 误差 有 
相反 的 关系 。 有 较 尖 锐 峰 值 的 平均 核 畏 数 4A(r，ro) 尽 管 反 演 崔 
一 性 较 好 ， 却 有 较 大 前 模型 误差 。 反 之 ， 模 型 误差 小 则 分 辨 率 却 
较 低 ( 平 均 核 函数 峰值 平缓 ) 。 因 此 ， 常 要 在 反 演 的 精度 与 分 辨 率 
之 间 取 折衷 方案 ， 使 二 者 都 得 到 兼顾 。 
上 面 ， 我 们 概述 了 连续 型 地 球 模型 的 Backus-Gilbert Ki 
910. ЕЕ, ПЕН ВОН. 


51-4 离散 型 反 演 问题 的 数学 模型 


”任何 一 个 地 球 物理 反 演 问题 ， 诸 如 根据 地 球 重 磁 异 常 计算 矿 
体 或 构造 的 空间 位 置 及 形态 ， 据 根 地 震 体 波 或 面 波 研究 地 球 内 部 
结构 ， 用 地 热流 或 电 袜 场 党 算 地 球 内 部 物质 状态 ， 根 据 空间 飞行 
器 轨道 计算 地 球 外 表 形 状 及 内 部 物质 分 布 ， 用 地 磁场 资料 计算 海 
底 扩 张 及 大 陆 漂移 史 等 ， 都 可 以 用 下 述 离散 模型 表述 。 
由 实际 观测 得 到 的 m 个 离散 的 地 球 物理 数据 ,以 m 维 向量 袁 示 
у= (у, yt, +, У)", | (1-4.1) 
它 称 为 观测 值 向 量 。 
一 个 具体 的 地 球 物理 问题 ， 可 以 用 n 个 离散 的 (具有 相同 或 
不 同 量 纲 的 ) 物理 参数 来 表示 反 演 所 要 求 的 模型 , 写 为 mn 维 向 量 ， 
A= (Xi, X2, `”, Xn) 3 (1-4,2) 
它 称 为 “地 球 模型 ”或 模型 参数 向 量 。 | 


ЕГЕТ а” 

Жанин, Уи, | 
y'(m)= (yix), yix), с”, ya xD, (1-4,3) 

称 其 为 模型 的 理论 值 向 量 。 

地 球 物理 反 演 问题 的 中 心 问题 是 用 一 定 的 数学 方法 ， 寻 找 一 
个 “地 球 模 型 ”， 使 它 尽 量 与 真实 地 球 符合 。 换 言 之 ， 即 寻找 参 
数 问 量 x， 使 其 计算 的 理论 值 向 量 y: 与 观测 值 向 量 y" 尽 可 能 符 
合 。 为 此 ， 可 以 利用 最 小 二 乘 原理 ， 构 造 一 个 m 维 残 差 向 量 ， 


ECK) = (ECX) ECE), e ХУ), (1-4.4) 
ж 
г.) = у - yi(x), 
#2(№) = уз — уз (x), 
em( X) = ya — у(х). 
” 令 残 差 向 量 范 数 平方 极 小 ， 


Пе) = у е3) ~ тіп. (1-4,5) 
је] 


”经 过 一 定 的 数学 变换 或 采用 某 些 专门 的 数学 方法 ,可 根据 (1-4.5) 
式 解 出 XxX。 从 而 使 问题 得 解 。 下 面 举 几 个 地 球 物理 学 中 常见 的 例 
子 。 

例 1 震源 参数 的 测定 

一 次 地 震 发 生 ， 要 求 准确 测定 四 个 基本 震源 参数 +、4 (震中 
经 纬度 )，( 震 源深 度 ) 及 T( 发 震 时 刻 ) 。 这 也 是 一 个 反 演 问题 。 

ЕЖ m(m>4) 台 记 录 到 该 次 地 震 ， 各 人 台 观 测 的 到 时 相应 为 
4(і-1,2,--,т). | 

АЖ. $. h, T 的 初 值 (任意 假定 或 粗略 信 算 )， 
可 以 计算 各 台 的 理论 到 时 1i(4，q， h, T), (= 1,2,…,m。 换 言 
之 ， 震 源 参数 (类 似 于 前 面 的 结构 参数 ) 决 定 了 理 内 到 时 12. Ж 


.10» 


各 台 现 测 到 时 与 理论 到 时 残 差 ， 


Еһ = tü te A, $, h, T). 
НАВ ЯР УНИН, 


Ф(А, Ф, h, D= унае! 


ігі 


=}, u LCt- ti(A, hT) e (1-4,7) 


і-і 


式 中 几 ; 为 权 系 数 ， 其 大 小 表示 评价 某 一 台 站 数据 质量 好 坏 。 取 
НЖЖ b (л, ф,й,Т) = min, 由 此 条 件 解 出 四 个 参数 4、 ф. В. 
T， 就 达到 测定 震源 参数 的 目的 。 
例 2 ЖШ Kk ЕЙ ДЫ | 
地 震 面 波 ( 包 括 Rayleigh 波 、Love №) 的 相 速度 或 群 速度 的 
频 获 曲线 ， 是 地 过 上 地 慢 分 层 速 度 y、 厚 度 h、 密 度 p 的 函数 。 

” 设 频 散曲 线 或 走时 曲线 有 m 个 观测 信 U3，Us，…，U，。 先 
假定 地 壳 上 地 由 分 层 的 结构 参数 初 值 %= (йү, vis Pig И», >, 
бъз “…， ha; Vaspn) ,可 以 计算 出 频 散曲 线 或 走时 曲线 上 各 相 应 
кл ИІ (х), Ui, +, Uia), ЕНЕДІ УА 
вн, HARE 


21(м) = 0:-10: (А), 
2205) = 0-0: (х), 
2.0) = 0%-0:(х). 
同样 地 ， 构 造 一 个 目标 参数 ， 
11. 


Ф(х) = > es (mx) = > г0%- 0459227. | (1-4,8) 
全 | 

并 令 目 标 函 数 四 (x) = min， 用 一 定 的 数学 方法 ， 从 中 计算 
出 地 壳 上 地 映 各 分 层 的 参数 % = (hi, 91, ба, Шы 92» Dos 77» 
hns Uns Pa) 

例 3 物探 找 矿 的 反 演 计算 问题 

重力 、 地 磁 、 地 电 的 观测 异常 一 ЕЛЬ 
性 。 如 果 存 在 矿 体 ， 则 可 在 地 面 观测 到 异常 z ; (i= 1，2，… 
т). Жї? н] БУ Ж ЖЕЛШ лк o 这 些 模型 体 又 通过 几何 
参数 和 物理 参数 来 描述 ,例如 一 个 二 维 有 限 延 伸 板 状 体 ,其 参数 就 
包括 板 状 体 中 心 坐 标 xo ，zo， 板 的 水 平 宽 度 20 及 下 延长 度 21， 
УНИИ fi а, ЖИ i 及 磁化 强度 J 等 七 个 量 。 写 为 多 = (xo, 
Zo, 2b, 21, а, i, J)”, 

对 给 定 的 矿 体 参 数 赋 以 初 值 ， 可 计算 各 测 点 的 理论 蜡 常 值 
2500), 2500), s 24(х), Не: -24-2; (А). i=1,2, 
=e, m, EPER AE H Ar A 


Ф(х) = p El= C2 - z4(022, О (1-4A,9) 

- f=İ i= 1 ` I 

№ Ф (x) = min, 由 此 条 件 同样 可 以 算出 待 求 的 矿 体 参数 x = Со 
20, 2р, 21, а, і, J) 。 


51-5 解 离 散 型 反 演 问 题 的 数值 方法 


目前 ， 用 于 解 离散 型 地 球 物 理 反 演 问题 的 数值 计算 问题 经 常 
说 到 的 有 广义 北方 法 以 及 最 优化 方法 。 
ЕЗГЕ ЗЕҢ, НЕН Ч 可 以 计算 一 组 理论 
什 。 阁 式 (1~4.3) 中 y*(%) 为 线性 冰 数 ， 则 其 各 分 量 可 以 写 为 


212. 


УІ(ХУ-а,хі Нах. t +а, ах», 
у (м) = а.х. + азах» + *** + dznXn, 
: : : (1-5.1) 
Уз (Х) = а.х, + G.sxXs + + dnnXne 
式 中 Qi; 为 常 系数 。(1-5 .1) 式 也 可 以 直接 写 为 窍 阵 形式 ， 
у(х) =AÁx. - { (1-5.2) 
Жу” 为 m 维 向 量 ， x 为 n 维 向 量 ，4 Amx n Ж Е (# Ж 
阵 ) 。 


令 残 差 向 量 为 观测 值 与 理论 值 之 差 ， 
El(x)=y? -y (м) 
=y- 40, 
于 是 有 关系 
Ах-у%-еғ(ж). (1-5.3) 


一 般 说 来 ， 地 球 物理 问题 所 反映 的 函数 关系 都 是 非 线性 Ж 
数 。 这 时 ， 可 在 某 一 初始 点 xo 对 其 进行 Taylor 展开 ， 并 路 去 二 
二 阶 以 上 高 次 项 ， 即 





yi (ae) = yí (аа) + > еі. о Ах! 


yi(a) = yi (xo) + > (уа ж Ах» (1-5.4) 





еу е дуа. 
Ун (№) = уабдсо) + > (52. Jx, A; 
17 


写成 矩阵 形式 为 | 
、 у(х) = У‘ (Хо) +ААХ. (1-5.5) 
式 中 4 称 为 微分 系数 矩阵 (或 Jacobi ЖЕР), 其 元 素 为 


а:1= 2i | (41 2,5, т ) 
із 一 
9х; „о, і-1,2,--,ы 7” 


写 得 更 具体 是 


(ду: ду: ду ` 
| Ox1 дхг Oxn 
ду; бу; .. 99; 
A= | Ox: д»: Oxa | (1-5.6) 
Өх1 0x2 Ох | х=, 
而 Ax 为 参数 x 的 改正 量 
АХ = (Axi, Аха, >, Ах,)'. | (1-5,7). 
由 (1-5.5) 式 ， 可 将 残 差 向 量 写 为 
Elx) = у-у (х) = у-у (№) – ААХ. (1-5.8) 


令 疝 量 5= y) — у° (x) 表示 观测 值 与 初始 模型 理论 计算 值 之 差 ， 
则 (1-5.8? 式 可 改写 为 
ААх-%5-е(х), (1-5.9) 
下 上述 可 见 ，(1-5.9) 式 与 (1-5.3) 式 形式 上 是 相似 的 ， 即 一 
个 非 线性 问题 可 以 化 为 线性 问题 进行 计算 。 所 以 ， 今 后 在 计算 中 
只 考虑 线性 方程 | 
О Ах= Б | = (1-5.10) 
的 解法 。 对 于 反 演 计算 为 线性 函数 情况 ， 可 直接 把 x 作为 模型 参 
B, b 作为 观测 值 。 对 于 非 线性 函数 情况 ，x 作为 模型 参量 校正 
值 Ax ，2 作 为 观测 值 与 理论 计算 值 之 差 。 在 (1-5.10) 式 中 ， 均 略 
去 (1-5,3) 及 (1-5.9) 式 中 的 残 差 项 e (Xx)， 说 明 这 种 计算 是 近似 
的 。 但 引入 迭代 法 总 可 以 使 这 种 近似 计算 逐渐 逼近 于 真 解 ， 最 后 
使 残 差 向 量 范 数 |el 极 小 为 止 。 | 
另 一 类 解 地 球 物 理 反 演 问题 的 数值 方法 是 最 优化 方法 。 即 直 
接 求 目标 函数 号 (x%) 的 极 小 值 。 其 基本 思路 是 用 数值 方法 产生 一 


.14% 


"ТЫ атыра pe 


гт--- 


ты») 


Хо» Ж, №2, 77, Ж, 77, 


使 其 满足 关系 


Ф(х)> Dx) BX2)> > D(x), 


直到 @ (x,) 小 于 预定 精度 为 止 。 具体 的 算法 如 下 : 


给 定 一 初始 点 xo， 逐次 产生 寻 查 方向 P， 并 沿 HAIER 
目标 函数 极 小 点 ， 用 迭代 格式 使 ;(i = 1，2，…, k, “O ZMK 
敛 于 极 小 点 。 产 生 寻 查 方向 的 方法 不 同 ， 就 构成 不 同 的 最 优化 算 
法 。 目 前 常用 的 算法 大 体 分 为 直接 寻 查 法 ， 求 一 阶 导数 法 及 求 二 
阶 导数 法 等 三 类 。 具 体 算法 详 见 第 二 章 。 | 


51-6 反 演 问题 的 几何 模型 


对 于 目标 函数 @@(x)， 可 以 构造 其 几何 模型 ， 以 形象 地 解释 
地 球 物 理 反 演 问 题 的 实质 。 

在 n+1 维 超 空 间 中 定义 一 个 n 维 超 平面 ， 称 为 “地 球 模型 > 
Ш, Q ЕЈ = (x1，x2，"，Xxn) "家 示 一 个 具体 
的 地 球 物 理 模型 。 超 平面 上 无 穷 个 点 将 与 无 穷 个 模型 相对 应 。 

在 这 个 超 空间 中 ， 对 于 一 个 x 值 ， 则 有 一 个 目标 函数 Ф(х) 
相对 应 ,所 有 更 (%) 取 值 反 的 集合 ,将 构成 嵌入 4+1I 维 超 空间 的 n 
维 超 曲面 ， 称 为 目标 函数 超 曲面 。 在 高 于 三 维 的 抽象 空间 中 ， 这 
种 几何 图 形 是 无 法 表示 的 。 为 此 ， 以 二 个 变量 的 目标 函数 空间 曲 
面 为 例 来 说 明 “ 地 球 模型 ”与 “目标 函数 ”的 关系 。 图 1-6-1 中 
Xx1 及 x2 为 参数 平面 的 两 个 坐标 轴 ，x4 及 Xs 为 平面 上 任意 二 点 。 它 
对 应 空间 曲面 上 的 两 点 四 4 及 Dr. YE LAA HA ER A a E h 
面 上 各 已 一 一 对 应 。 

因此 ， 参 数 超 平面 上 每 一 所 (一 个 “地 球 模型 ) 将 对 应 超 曲 
面 上 一 个 目标 函数 。 反 之 ， 超 曲面 上 一 个 目标 函数 值 亦 与 一 个 

“地 球 模 型 ”( 人 参数 平面 上 的 一 点 ) 相 对 应 。 换 言 之 ， 在 简单 的 反 


на 
сл 
з 











演 问 题 中 ， 模 型 参数 x 与 目 
标 函 数 包 (%) 有 一 一 对 应 的 
映照 关系 。 

解 地 球 物 理 反 演 问 题 ， 
就 是 要 寻找 超 上 曲面 中 (x) Ж 
小 点 所 对 应 的 参数 点 x 。 
但 实际 上 很 难 找 到 这 个 极 小 
点 ， 这 首先 是 一 般 的 目标 函 
数 超 曲 面 有 着 复杂 的 形状 ， 
计算 时 ， 常 常会 找到 一 些 局 
部 的 极 小 点 或 鞍 氮 。 


号 一 方面 ， 电 于 任何 观测 值 总 存在 误差 ， 特 别 是 由 于 各 种 干 
扰 因 素 存在 ， 使 实际 计算 的 目标 函数 Ф (х) 也 受到 畸变 。 在 
这 种 情况 下 ， 要 找到 走 正 的 极 小 值 几 乎 是 不 可 能 的 。 因 此 ， 计 算 
时 并 个 是 求 真正 的 极 小 值 ， 而 是 求 目标 函数 极 修 值 附近 的 一 个 限 


差 范 转 ， 设 这 个 限 差 为 s， 
ШЕН йй ЖФ (х) <e B ў 
EZR. 
显然 ， 这 种 条 件 映 照 在 
参数 平面 上 的 不 是 一 点 。 而 
是 某 一 域 Ds ( 见 图 1-6-2)。 
这 意味 着 凡 位 于 域 D 中 的 
点 ， 都 是 反 演 问题 可 能 解答 
的 参数 。 即 由 它们 计算 的 理 
论 值 ， 都 能 在 给 定 精 度 要 求 
内 拟 合 观测 值 。 域 Ds 愈 大 ， 
反 演 问题 不 唯一 性 范围 愈 


жор, 称 为 反 演 计算 的 可 行 


域 。 
.16. 





Е 1-6-2 


”$1-7 反 演 问题 中 约束 条 件 的 考虑 


解 地 球 物 理 反 演 问 题 的 不 唯一 性 是 由 于 信息 不 足 及 “了 噪声 ? 
存在 引起 的 。 要 减 小 这 种 不 唯一 性 首先 就 要 补充 信息 ， 即 把 经 验 
的 (或 先 验 的 ) 及 由 其 它 手段 提供 的 资料 加 入 到 反 演 计算 中 来 。 有 
时 候 ， 这 些 补充 信息 在 反 演 过 程 中 的 重要 性 甚至 超过 观测 数据 本 
身 。 

“地 球 模型 ” 先 验 的 或 实际 的 资料 构成 了 反 演 计 算 的 约束 条 
件 ， 使 得 参数 平面 上 解答 限制 在 一 定 范围 ， 称 为 约束 域 D。。 因 
此 ， 地 球 物理 反 演 问题 的 最 终 解 答 实际 上 是 由 解 的 可 行 域 Dy 与 
约束 域 D. 之 交 ( 即 DynD.) 决 定 。 如 图 1-7-1 所 示 。 ВА = 
解答 的 不 唯一 性 ， 缩 小 域 Ds 或 D. 都 能 达到 目的 。 

由 此 可 见 ， 地 球 物 理 反 演 问 | 
” 题 实质 上 是 一 个 有 约束 条 件 的 最 
优化 问题 ， 或 者 是 在 约束 范围 内 
求 目 标 函数 极 小 的 问题 。 事 实 
上 ， 我 们 总 可 以 由 经 验 的 办 法 或 图 1-7-1 
由 其 它 可 靠 的 资料 对 模型 的 参数 
进行 约束 ， 以 缩小 域 D。。 一般 说 来 ， 存 在 着 以 下 五 种 约束 关系 。 

1。 非 负 约 来 | 

地 球 物质 绝 大 部 分 物理 参数 都 取 正 值 。 例 如 ， 地 这 及 地 强 物 
质 的 密度 ， 弹 性 波 速度 ， 品 质 因 数 ， 以 及 地 层 的 厚度 ， 矿 体 的 延 
伸 范 围 ， 地 球 内 部 的 电导 率 、 温 度 及 压力 分 布 等 。 这 种 参数 的 非 
负 性 质 可 表示 为 





x>). (1-7.1) 

2, 区间 约束 
分 布 在 地 球 内 部 一 定 部 位 的 物质 ， 其 物理 参数 总 是 在 一 定 范 
围 内 取 值 。 例 如 ， 在 大 陆地 壳 内 岩石 密度 取 值 范围 一 般 为 1.5 专 
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—— 


о=3.0%%/Ж Ж, ЕНЧА ЎН — #5  2.0<8<4.5 公里 / 
№. НВЕЕИЖЕВЫНЕН М 3.0<р5<4,5%/ ИЖ, ЯК 
4.0 << 6.0АН/Ж, ХЕ ИМЕН 30<Н 
=70 公里 , .海洋 区 地 过 厚度 范围 一 般 为 5 和 有 <I5 公里 。 其 它 如 
介质 的 品质 因数 、 电 导 率 、 磁 化 率 等 ， 均 在 一 定 范围 内 取 值 。 区 
辣 约 束 条 件 可 表示 为 
| аид, (1-7.2) 

其 中 参数 向 量 gw = (xi, ха, `, Xa) ， 常 数 向 量 a= (ai, az, 
ee, as) 及 b= (bi, bz, се, b.) , ` 

3。 权 平均 值 约束 | 

地 球 物质 的 各 种 物理 参数 尽管 有 千差万别 的 变化 ， 但 在 一 定 
区 域 或 一 定 深度 部 位 ， 这 些 参数 在 总 体 平均 上 仍 有 一 定 规律 。 例 
如 ， ЖЕЕ УЕЗИ К {КНН ИЛЕ, И ЕНДЙ Ы 


> р. му "НЕВЕ в, Гн. тж 一 值 或 处 于 


某 一 区 间 。 权 平均 值 约束 条 件 可 以 写 为 
x w=b,. 

或 — | bixx м5», | (1-7,3) 
式 中 m 为 权 系 数 向 量 ，6，51 及 52 为 常数 向 量 。 

4, BARRAR | 

地 球 物 质 的 各 种 物理 参数 不 是 扳 立 的 ， 它 们 之 间 往 往 有 量 的 
联系 ( 即 一 定 的 函数 关系 ) 。 例 如 ， 介 质 的 纵波 速度 a 与 横 波 速度 
上 可 由 波 速 比 了 联系 起 来 ， 

а= YP. (1-7.4) 

一 般 地 ， WAN TARA 73, ER E 9, 

ейн. ЕТ may ВНЕ ев 7% 
人 БРЗЕ (Talwani, 1969; Woollard 及 其 他 人 ， 1962, 


18. 


1969), “жн ЖИРЫ p = f (a) Жж, ME A: 3 ШЧ 
1-7-2。 | I | | 


со (Гв/ст3) 





~ 一 -一 НооПага 51959) 
------ Ма је, Drake 


-.--- Talwani (1959) 
n 
д. | 


Коой! ага 71962 ~ 1969) 
一 一 Doriman (1968) 

— ты 
Шш ам м ч И r O. 
UJ 4.0 


Ц 





z Ж 


iail 7 DERI 59 
图 1-7-2 
这 样 ， 利 用 函数 关系 约束 条 停 ， 可 由 这 一 组 物理 参数 推 牌 出 


为 一 маманына атанады Ег 
数 关系 约束 条 件 一 般 写 为 


 F(a)=b. (1-7.5) 
5。 特 定 约束 


上 面 所 讨论 的 四 种 约束 关系 都 是 先 验 性 质 的。 但 还 存在 着 一 
类 由 其 它 确切 的 资料 《例如 由 钴 并 或 煤 炸 地 震 得 到 的 地 层 厚度 等 


„]О» 





参数 ) 得 到 的 约束 关系 ， 将 地 球 某 些 参 数 作为 已 知 数 而 加 以 限定 ， 
在 作 反 演 计算 时 ， 把 它 作 为 已 知 量 来 处 理 ， 从 而 减少 了 待 求 的 参 
数 个 数 。 特 定 约束 条 件 可 以 写成 下 列 形式 ， 
Xi =b;. (1-7,6) 

ЛД, Жемін ін зет, НЫН ЕЕ E 
Ju ТИНЕ т НЕДЕ ЕН СИЕ l. т НА ҒЗ 
固定 约束 量 处 理 。 

综 上 所 述 ， 地 球 物理 反 演 问题 的 约束 条 件 按 其 类 型 可 以 归 为 
两 类 ， 非 负 约 束 、 区 间 约 束 及 特定 约束 可 以 写 为 显 式 约束 形式 ， 


а<х<Ь; (1-7,7) 
肖 数 约束 及 权 平 均 约束 可 以 写 为 隐 式 约束 形式 ， 
с)5-);Сх)<4;, j=1, 2, с, p(p<n). (1-7.8) 


它 可 以 是 线性 或 非 线性 函数 组 。 通 常 我 们 把 由 约束 条 件 所 限制 的 
RE s 称 为 约束 可 行 域 


$ = {| а-хъь, ср, (х) <а ЕВ", (1-7.9) 


Жас Жоп КЁ в" Ту, TESKA Еу БІН ЛИЛЇ 
ЫЗА: 在 满足 约束 式 (1-7.7) 及 (1-7.8) KATR H IRK 
涩 更 (2) 极 小 。 或 者 更 一 般 地 抽象 为 下 列 形 式 的 数学 问题 ， | 


тіп (x), | 


wes О (1-7.10) 
| $={м|а-х-ь, сар (xX) dj} 


解约 束 条 件 下 最 优化 问题 丈 为 数学 规划 。 由 于 目 Ф (х) 
ТТА ВЕРНА ТОДА EE БОИ 
问题 一 般 可 归结 为 约束 非 线性 规划 问题 。 处 理 这 类 闭 题 的 方法 大 
体 上 可 以 分 为 两 从 一 奖 是 直 搂 处 理 约束 条 件 ， 另 一 类 是 进行 某 
_ 些 变换 将 它 化 为 无 约束 最 优化 问题 。 地 球 物理 反 演 理论 中 已 念 来 
愈 多 地 研究 这 类 问题 的 解法 。 
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第 二 章 “” 解 反 演 问题 的 基本 数值 方法 


目前 ， 用 于 解 地 球 物理 反 演 问题 的 基本 数值 方法 ， 大 都 从 广 
义 逆 理论 、 最 优化 方法 、 及 数学 规划 理论 引伸 出 来 。 这 一 章 ， 我 
们 要 叙述 这 些 数 值 方 法 的 原理 及 算法 ， 并 研究 如 何 用 来 解 地 球 物 


| 理 反 演 问 题 。 


521 广义 道理 论 


广义 道理 论 是 线性 代数 的 一 个 分 支 ， 是 窍 阵 论 近 甘 多 年 汐 新 


‚ 成 就 之 一 。 它 讨论 最 一 般 的 矩阵 求 逆 的 问题 。 


(一 ) 线性 方程 组 的 分 类 
由 上 一 章 8 1-5 抱 讨论 可 以 看 出 ， 用 广义 北方 法 解 地 球 物 E 


反 演 问题 ， 实 际 上 轨 结 为 如 何 解 线性 方程 组 4x=5。 其 中 4 为 


тхия хуп ЫЕ, Ру m 维 列 向 量 。 根 据 观测 值 数 
Em, ЖЕНТ, НИИтх n ЕАН = Вапк(А) ХЛ, 
个 量 的 关系 ， 可 以 将 线性 方程 组 分 为 以 下 四 类 : 

1。 自 由 完全 方程 组 (r = m = n) 

这 相当 于 通常 的 满 秩 方 阵 悄 况 。 对 于 任意 向 量 bp， 都 可 以 得 
到 2 的 精确 解 。 如 果 А 为 病态 的 ， 则 可 能 得 到 一 个 不 稳定 的 解 
答 。 这 类 方程 组 在 地 球 物理 反 演 问题 中 是 不 多 见 的。 其 结构 如 图 
ОВР, 

2。 约 束 完 全 方程 组 (r = nm) | 

这 时 观测 值 个 数 多 于 模型 参数 个 数 ， 相当 于 未 知 数 个 数 少 于 
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方程 个 数 。 这 是 一 个 超 定 方程 组 的 情况 。 通 常 ， 一 个 给 定 的 超 定 
方程 组 在 数学 上 是 不 相 容 的 。 对 于 任意 向 量 5， 其 解答 是 不 叭 一 
的 。 仅 存在 最 小 二 乘 意 义 下 的 解 。 由 于 4 4 为 对 称 非 奇 异 ， 故 其 
逆 阵 为 《474)-14"。 如 果 (474) 是 病态 的 ， 则 导致 一 个 不 稳定 的 
解答 。 这 类 超 定 方程 组 是 地 球 物理 反 演 问题 中 最 大 量 最 常见 的 。 
其 结构 如 图 2-1-1 中 (b) 所 示 。 
3。 自 由 不 完全 方程 组 (r = m <и) 
这 时 观测 值 个 数 少 于 未 知 数 个 数 ， 即 相当 于 方程 个 数 少 于 未 
知 数 的 亚 定 方程 组 情况 。 对 于 任意 向 量 5， 解 答 是 不 唯一 的 。 这 
时 必须 加 上 其 它 约束 条 件 ， 才 能 求 其 最 小 二 乘 意 义 下 的 解 。 由 于 
(AA ) 非 奇异 ， 故 其 道 阵 为 4 (A447)-!。 这 类 方程 组 在 地 球 物 理 
反 演 问题 中 也 经 常 出 现 。 其 结构 如 图 2-1-1 中 (c) 所 示 。 
4. 约束 不 完全 方程 组 (r <m, n) 
这 类 方程 组 的 秩 r 小 于 m 或 n， 其 解答 是 不 唯一 和 的。 又 分 以 
下 几 种 情况 : 2 т=п 时 , 方 阵 4 是 奇异 的 (图 2~-1-1 中 前 (4))， ж 
п<т, ЖАТА р ЈО 42-1-1960 (е) ). Жт<п, ÚW АА 
古奇 异 的 ( 见 图 2~-1-1 中 的 (f))。 这 类 方程 组 在 地 球 物理 反 演 问题 
中 是 会 出 现 的 | 
(=) PAREHA 
我 们 知道 ， 线 性 方程 组 4x = 5 的 求解 ， 实 质 归 结 为 矩阵 4 的 
求 道 问 题 。 这 一 节 ， 我 们 要 寻求 任意 mx n АГ SM W E EE 
A- 的 求 取 方 法 ， 并 讨论 它 的 性 质 。 我 们 将 按照 线性 方程 组 的 不 
FAR, BIERE A 的 不 同 的 情况 分 别 讨论 。 
А 满 秩 方 阵 (r = т=п) 
| ШЕН 自由 完全 方程 组 的 系数 矩阵 4。 存 在 一 个 唯一 的 方 
ЕЕ A-I , 称 为 4 的 逆 和 矩阵 ， 满 足下 列 关系 
4-14=44-1= 了 ， (2-1.1) 
RHI, ЗИ, Ш РЯ. 
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ЖЧ 


(а) qg (d) 
Ax=b КЕЯ Ах =b 
Ranki) = r =m =n ось KRankr(A)= л <т сл 
| тх 
(b) 
Ах =b 





Rank (A): r ЕЯ 


топ = man = 
(с) (Л) 
Ах =b Ах =b 
Rank(A) = r =m <n Rank (A) =< r Zm Cn 
图 2-1-1 
АА-ТА-А, 
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2。 满 秩 长 方 阵 

对 于 行 数 六 与 列 数 4 不 相等 的 长 方 阵 ,只 要 其 秩 与 行 数 或 列 数 
相等 ， 可 以 进行 所 谓 满 秩 长 方 阵 和 的 右 首 或 左 首 的 概念 。 现 分 两 种 
不 同情 况 讨 论 : 

(1) ТЕЖЕ (r= m<n) 

Е БРОНЯ ЕА +， 即 相当 于 前 述 的 让 
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由 不 完全 方程 组 的 系数 矩阵 具有 以 下 基本 人 性质, 
22222 Rank AAD em, C (221.3) 
如 果 存 在 一 个 nx m НАЯ, 使 4;! 右 乘 4 后 得 到 一 ти 
жже, О. 
AAR = dns 222 (2-1,4) 


ШЖ Az 为 4 МИ, 右 逆 的 计算 方法 如 下 ， 由 于 
(AAT) (AAT)! = n, | (2-1,5) 
比较 式 (2-1.4) 及 (2-1.5)， 可 求 得 右 道 | 
АП-АҚААУУ-, | (2-1.6) 


(2) Я] АЕ № (r= n <m) 
对 于 秩 数 与 列 数 相等 的 列 满 秩 矩阵 Ан», ， 即 相当 于 前 还 的 
23362 3 EIB ЖОНЕ, ОКНЕ, 
Rank(4 4) = n. (2-1.7) 
如 时 存在 一 个 n x mE Ат, HA АЖА, 得 到 一 个 7 
阶 单位 阵 ， 


АТ'АЕТ,, (2-1.8) 
别称 AI 为 4 的 右 逆 。 左 逆 的 计算 方法 如 下 ， 出 于 
(47A)-1(474)=1,. 22 (2-1.9) 
将 式 (2-1.9) 与 (2-1.8) 比 较 ， 求 得 左 道 | 
Ат! = (A'A)-1A'. | (2-1.10) 


应 当 指 出 ， “теп, ÆR Ar о ай Ar 是 不 能 同时 存在 | 
的 。 仅 当 m = ин, А; 和 全 同时 存在 ， На y 
fai, | 

另外 ， 还 须 指 出 ， ЕКОЕ Eak жн 的 。 这 
可 由 下 述 定理 给 出 : ио зу САЛ 

对 于 长 方 矩阵 4 Н.Капк(4) = т, МАНИ 2 
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| -- 一 


达 式 为 
45=JdTCdPA4D- 0-2 (2-1.11) 


РУО Rank(4 VAT) = ' Rank(4) RER n BD 
阵 。 
同样 地 ， 对 于 长 方 矩阵 4oxv 且 Rank(4) = =M, MWERA 的 左 
一 般 表 达 式 为 


-1. (ATUA)-1ATU. (112) ` 


其 中 , 品 是 使 得 等 式 Rank(A7UA) = Rank(4) 成 立 的 任意 m 阶 


Л: ра ра ШУ 


а тики 4 ЫЛ 2 a Т 

对 于 非 满 秩 长 方 阵 Аха, 即 相当 于 约束 不 完全 方程 组 的 系数 
和 矩阵。 不 再 存在 式 (2-1,3) 或 式 (2-1.7) 所 给 出 的 基本 性 质 ， 因 此 
必须 引入 广义 道 4- 的 概念 。 | 

ЖУ WE DBEEA,,, КИ Вапк (А) = г«тіп(т, n), Е 
ХЖЕА HJW- ХЕЛЕ ТТА BE y SE АТИ х т Е 

ЛА-А-А, (2-1.13) 

ха КЕ Мр Е М, RTB Еж 义 的 广义 道 
4- 称 为 g Ш. WUW, g WA АЕ, ` 而 且 一 般 不 唯一 。 

Әй, LEKAN A, WAN 4;! 是 当 Rank(4) = r = n (或 
тШ айй» MA na XTRA E Rank(A) = r = m= n BJ 
Еж. Им) NAREN ERAGE o TEB DY. 
жй, НЕ ТИНЕ ВЕ Y o 

НЖЖ Балк(А)-к<шіп(т, n) 的 情况 。 对 于 这 类 非 满 - 
秩 长 方 阵 ， 存在 一 个 满 秩 分 解 定理 ， W 总 存在 列 满 秩 阵 Cn*r 及 
ERRED, aa BAA... СВ, 

TJ, ШАНС А Cii 及 DD HAN D. 而 且 广义 首 

就 由 下 去 表示 ， 
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А-- СІ, (2-1.14) 


”在 这 里 , 式 t2-1。13 ) 给 出 了 构造 4"x, 和 矩阵 的 8g 逆 的 方法 。 广 义 道 
“4A- 具 有 以 下 性 质 : | 

(1) 4 的 g 北 的 转 置 与 4 的 转 置 的 g 逆 是 相等 的 ， 即 

| (4-) = (A')-. (2-1,15) 

(2) 车 (474)-47 是 4 的 一 个 8 六， 则 4(474) -是 47 的 一 个 g 
м. 

(3) 4- 的 秩 不 小 于 4 的 秩 | 

Вапк(4-) 2> Вапк(4), (2-1,16) 
(4) АСбА-4, МН MATAGA= 474， 其 中 G 为 4 的 g 逆 。 


(=) 广义 逆 A- 在 解 线性 方程 组 中 的 应 用 


在 地 球 物理 反 演 问题 中 ， 所 遇 到 的 线 人 狂 方 程 组 可 能 是 各 种 类 
型 的 。 广义 逆 理 论 的 重要 性 在 于 它 提供 了 解 各 类 线性 方程 组 航 一 
般 理论 及 方法 。 = 

先 来 讨论 线性 方程 组 的 相 容 性 问题 。 对 于 一 般 的 方程 组 

а: Xi FT G,sXs + тах, = bi, 

031Х1 F ах. + °° + а,,Х,- 62, 
(2-1.17) 

| CQmiXi 十 QnrsXs 十 … + Am Xn = Ыт» 

或 记 为 | 

Ахаха Е Быка. (2-1.16а) 
ЖЕ, т, nh ERER., ADEA (2-1.17) 有 解 ， 则 称 为 根 
容 的 。 否 则 ， 称 之 为 不 相 容 或 矛盾 的 。 我 们 在 下 面 讨论 申 可 以 看 
出 ， 广 义 逆 理 论 把 求 相 容 线性 方程 组 的 一 般 解 、 基 本 解 、 最 小 范 
数 解 及 求 不 相 容 线性 方程 组 的 最 小 二 乘 解 .最 小 范 数 最 小 二 乘 解 
的 理论 全 部 概括 统一 起 来 。 
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。 相 容 线 性 方程 组 的 一 般 解 00020 
а ЧН НОУ Ax- 5, 它 的 一 个 特 解 


x= А, | нд _(2-1.17) 
而 一 般 解 为 
х= АЬ+ (1 А-А)е, 0 u (2-1,18) 
з А ЖАНЕ А 的 任 一 个 g 3, I Jy n 阶 单位 向 量 ， е 
同 维 的 任意 向 量 。 


这 说 明 ， 对 于 一 个 相 容 线性 方程 组 Ах = Б, 不 论 系数 矩阵 
信 是 方 阵 或 长 方 阵 ， 是 满 秩 的 还 是 降 秩 的 ， 都 有 一 的 个 标准 的 统 
一 求解 方法 。 而 且 由 简洁 形式 (2-1.18) 表达 ， 这 是 线性 方程 组 
理论 的 重要 发 展 。 今 后 ， 求 任意 相 容 线性 方程 组 ， 只 要 求 出 A 的 
一 个 g 道 A- 即 可 。 
2, 相 容 线性 方程 组 的 最 小 范 数 解 
由 于 g 着 是 不 唯一 的 ， 因 而 相 容 线性 方 程 组 的 解 也 不 唯一 。 
现在 要 间 ， 是 否 存在 与 КН ША -使 得 A b Б 
其 它 的 解 相 比 ， 具 有 最 小 的 范 数 ， 即 
Ам (2-1.19) 
其 中 x 是 方程 组 Ax = БИ, ХЕ 
定理 设 和 -为 A 的 g 逆 ， 对 任意 与 A 相 容 的 5，A b Ax 
. = 8 的 一 切 可 能 解 中 具有 最 小 范 数 的 充 要 条 件 是 
AA-A=A 和 (A-A)' = АЗА. (2-1,20) 
使 = 人 -具有 最 小 范 数 的 人 -叫做 最 小 范 数 g 逆 ， 常 用 
Am 玫 示 。 显 然 和 A 的 最 小 范 数 g 首 是 用 等 式 ( A" A) = AAR g% 
加 限制 得 到 的 。 一 般 说 来 ， 最 小 范 数 g 道 不 唯一 ， 但 是 相 容 方程 
组 的 最 小 范 数 解 却 是 唯一 的 。 
3。 不 柏 容 方 程 组 的 最 小 二 乘 解 
由 线性 方程 组 理论 可 知 ， 不 相 容 或 矛盾 方程 组 是 没有 解 的 ， 
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现在 来 研究 这 类 方程 组 的 最 优 近似 解 问题 。 Исе 
对 于 不 相 容 的 线性 方程 组 Ax ЖЖ эх 7 


[АХ — B| < || Ax- U ` Wa (2-1.21) 
则 称 % 是 方程 组 Ax = 在 最 小 二 乘 意义 下 的 最 优 近似 解 ， 这 是 
因为 和 任何 其 它 近 似 解 x 相 比较 ，x 所 导致 的 残 差 向 量 范 数 的 平 


方 (或 残 差 平方 和 省 AX -下 ?是 最 小 的 。 
定理 B A 是 一 矩阵 ， 对 于 任意 向 量 5A b 是 方程 组 АХ ` 

= 6 的 最 小 二 乘 解 的 充 要 条 件 是 
AA-A=A 和 (A A-) = АА”, (2-1.22) 

НІ, АЕ Те, ЖУН ТС о, ВАМ 
显然 ， 信 的 最 小 二 乘 g 逆 是 用 等 式 (4A-) = ААХ g йи 
制 得 到 的 ， 必 须 指出 ， 矛 盾 方 程 组 的 最 小 二 乘 解 导致 的 谋 差 平方 
M Ах 612 是 唯一 的 ， 但 是 最 小 二 乘 解 可 以 不 瞧 一 。 

对 于 地 球 物理 反 演 问题 来 说 ， 大 多 数 情 况 下 是 解 矛盾 方程 饶 
的 问题 。 因 此 ,只 须 求 出 最 小 二 滋 的 ? 道 即 可 ， 而 且 ， 在 反 演 计算 
中 最 常见 到 的 一 类 矩阵 是 列 满 秩 矩 阵 , 即 此 矩阵 的 秩 为 Rank (A) 
= 1。 可 以 证 明 ， 列 满 秩 和 矩阵 的 左 首 | 

А =(АТА)-! АТ 
ЯША, 


УНИЖЕНИЕ. М 
单 化 了 。 整 个 求解 问题 归结 为 求 最 小 二 乘 s А 。 用 不 着 Ж 
目标 函数 ， 求 残 差 平方 和 ， A BRUER Bo ДЕТТІ 
о | | 


(四 ) Мооте-Репгоѕе/- X # А" 


上 面 ， 对 于 任意 mxn КУА, ШАА-А-АЖУТА 
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的 g 逆 A-。 这 是 一 个 最 广义 的 闭 答 阵 的 概念 。 我 们 证 明了 БЕ 
存在 ， 但 并 不 唯一 。 我 们 还 指出 4 在 解 线性 方程 组 中 的 作 用: 
xw=4-5 是 相 容 线性 方程 组 Ax =8 的 -个 解 。 然 后 我 们 逐步 对 
A 加 以 限制 ， 得 出 g 具有 不 同 狂 质 的 子 集 。 
例如 ， 在 A4-A= 人 的 基础 上 ， 用 (4-4)7 = A ARAI 
加 以 限制 后 ， 得 出 最 小 范 数 g ЖА, CHERE x = АН 
容 线 性 方程 组 Ax =b 的 最 小 范 数 解 。 而 在 АА-А = А АЈ AR 
Е, 用 (44-)7=44- 的 条 件 加 以 限制 后 ， 得 出 最 小 二 乘 g 逆 
Ai7， 它 的 重要 性 质 是 X= Аг ЛЕ ЛЕН Ax =b HRR 
解 。 广 义 逆 A 及 其 子 集 A-，AiT 等 都 不 是 唯一 和 的。 下面 ,我们 
将 对 g 逆 作 出 进一步 的 限制 ， 定 义 一 个 新 的 广义 道 A。 | 
EL НЕА... WTAE С, ЖЕШТІІЛ4- 
方程 ， | 
АСА = А, 
(СА)Т= СА, 
САС =С, 
(АВ)? = АС, 
ШЕК ЕС 为 A 的 Moore-Penrose 广义 道 ， 记 作 А’. ИЙЕ 
HH, УРАН А, КІШІ Мооге-Рептоѕе/ МА ЕЖ. H. 
唯一 。 
广义 道 4+ 的 存在 证 明 是 构造 性 的 。 即 在 每 一 种 情况 下 ， 把 
满足 (2-1,23) 式 的 矩阵 G 直接 构造 出 来 。 
如 果 和 A 是 行 满 秩 矩阵 ， 则 其 右 逆 Ax' = АТСА AT) OREW 
№ АЁМооге-Рептозе 广义 逆 ， 因 为 它 满足 式 (2 -1.23) 的 四 
如 果 和 是 列 满 秩 和 矩阵 ， 则 其 左 逆 Az! = (АТА) АТН 
| РЕ АН Мооге-Репгоѕе/ XW, 它 同 样 满足 式 (2-1 .23 ) 的 四 个 关 
系 式 。 


_ ПВА Rmx nK HE, H Вапк( А) = r, <min (т, 
| | | | .29. 


(2-1.23) 





п). 则 根据 以 前 的 讨论 ， 总 可 以 作出 和 的 满 秩 分 解 A= CD, Ж 
中 C 是 加 X.r ЭПИ ЖОНИ, 2 是 ‚хп ДЕР. HHEH, Ka] 
逆 定 义 有 
Сз: = (СтСу-1Ст, o 
| | (2-1,24) 
_ Dz! =DT(DDT>5-1 - | 
显然 可 以 验证 | 
а= РС: - рт(ррг)-1(СтС)- ІСТ (2-1,25) 
А Моого-Репгозе УЖЕ. 这 样 就 构造 出 对 任意 矩阵 A 均 存 
在 的 Moore=Penrose 广 义 道 。 
关于 Moore~Penrose 广 义 道 有 如 下 主要 性 质 : 
(1) 由 广义 逆 A! 的 定义 知 ，A'! 是 一 个 g 道 ， 因 此 , х= A 
是 相 容 线性 方程 组 Ax =b 的 一 个 特 解 ，x = АТГ = A*A)c 
是 一 般 解 。c 是 与 % 同 维 的 任意 向 基 。 
(2) (А?) =(A7)。 
(3) (AY = А. 
(4) 由 全: 的 定义 可 知 ，4 + 是 最 小 范 数 g 着， 因此 x = АВ 
是 相 容 方程 组 Ax =5 的 最 小 范 数 解 。 
(5) 由 人 的 定义 可 知 ，A "是 最 小 二 乘 g 逆 ， 因 此 x= A 2 
是 矛盾 方程 组 4x = 5 的 最 小 二 乘 解 。 因 此 ， 可 以 引出 下 面 定理 。 
定理 ”矛盾 方程 组 Ax =b 的 最 小 二 乘 最 小 范 数 解 为 x= 
| А +, Жер АҢ Moore-Penrose] Ў й. 
НЭХ, А’ХЖЯАМЕА ЖЕ а, ШТ 
最 小 二 乘 最 小 范 数 解 正 是 地 球 物 理 反 演 问 题 所 要 求 的 ， 因 此 ， 研 
究 Moore-Penrose 广 义 逆 A 的 计算 就 有 重要 意义 。 


62-2 计算 广义 逆 A* 的 正 交 分 解法 


在 解 线性 代数 方程 组 时 ,许多 重要 的 解法 ,如 消 元 法 , 直接 分 
.30. 





ЖЫЛЫН, ВОДУ, Ж КЕЕ ЖОЕ АЕ 
行 三 角形 分 解 。 即 把 一 个 矩 降 化 为 一 个 、 二 个 以 至 三 个 简单 矩阵 
(EAER), KEER RR Ж (或 矩阵 求解 ) АЖ 
便 。 | | 
同样 ， 在 计算 任意 mx n Ky FE АЙ ЖЖ А * 的 各 种 方法 
中 ， 目 前 用 得 较 广 的 是 正 交 分 解法 。 即 将 A... УЛА РЕ 
的 乘积 ，A* 就 能 简单 求 得 。 下 面 给 出 正 交 分 解 定 理 。 | 
定理 设 A 为 任意 mxn ЖЕ, Же r= Капк(А), ША 
可 以 把 A 表示 成 | 
А =НВЕГ. (2-2.1) 
AP НЯтхн ЕЖЕ, 
KU nx n E Ж , 
及 为 xl 矩阵， 其 形式 为 
人 Ri 07 
R P | | (2-2.2) 
К 02 ЕЖЕ, АЕ Я ЕЕ ЖЕЕ. | 
A... ЕЕ , W| uj sk hH Moore-Penrose) ХЖ А“, 
这 可 由 下 述 定 理 表 述 。 
定理 ” 设 任意 mxn 阶 矩阵 A 的 一 种 正 交 分 解 为 


А = НЕКТ, 
则 其 广义 逆 可 以 表示 为 
А* = КК*Н 。 (2-2,3) 
式 中 | 
К+ = БЕ g | 22000 (2-2,4) 
0 0), | 


ГЕРН iy EZ 角形 矩阵 Rii КИРЕ. ' 
这 一 节 , 主要 讨论 CR 分 解 方法 。 QR 分 解 的 基本 思想 是 将 任何 
一 个 实 矩 阵 通过 有 限 个 正 交 逢 阵 之 积 Q 的 作用 ， 把 它 化 为 一 个 简 
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ABP 及 ， 这 可 由 以 下 定理 表述 。 2 

СЕН НАЖ “тх п, 大 在 一 个 mxm ЕО, fE 
@ 兴 = 尽 成 为 一 个 主 对 角 线 以 下 为 零 的 矩阵 。 | 

正 交 变换 可 以 用 Givens 平面 旋转 变换 ,也 可 以 用 Househ- 
older 反射 变换 。 在 作 Householder 变换 时 ， 首先 要 确定 变换 害 
НЕ н „ 

设 给 定 一 个 m 维 非 零 向 量 V ЕЕ ЕНН QO 使 

Оч = ~ Sign (vi )|julje:. | (2-2.5) 
жен гі 为 单位 向 量 基 | 
еу = [1,0,0,---,02°, 

而 Sign(ui) 天 示 取 向 量 u 第 一 个 分 量 的 符号 ， Вр 


Sign(v1) = (51 “1—0 
4-1 “ау <0, 
жа Эн Жи 
и =ч + Sign (01) ез, (2-2.6) 
З Д Ноџзећо!4ег МЕНЕЕ) 
0-,- E, (2-2,7) 





由 Householder 矩阵 镜像 变换 特性 可 知 ，Q Ж эл) 
作用 Qv， 相 当 于 将 向 量 v 以 镜 象 面 mn (mn 垂直 于 向 量 u) 映射 
为 -Sign(v1)julje1， 如 图 2-2-1 示 。 | 

| ў 这 说 明 ， 对 于 任意 空间 
еме 向 量 u， 只 要 按照 式 (2-2.6) 
| ЕЛЕНЕ, ЖҰЖ 

б Householder, ЖОХ 
变换 可 将 其 映射 到 单位 问 量 
基 el: 上 。 换 言 之 ,可 将 uU 变 成 
为 第 一 个 元 素 等 于 Sign(ua ) 
М, Жї жж тінін Bt ç 





2-2-3 


432. 





于 是 ， 可 以 引出 下 列 构 造 8 矩阵 的 近代 算法 。 

1—3, BR mx 5 A 的 第 一 列 的 元 素 作 为 m 维 向 量 
ul1， 以 此 按 (2-2.6) 及 (2-2。.7) 式 构造 Householder Ж Qi, 于 
Ж, ХЫНА Ы Q1 A， 第 一 列 除 第 一 个 元 素 外 ， 其 余 从 
第 2 到 第 个 元 素 都 为 零 。 其 它 各 列 的 元 素 也 将 发 生变 化 。 

第 二 步 ， 取 QA 的 第 二 列 从 第 2 行 到 m 行 的 元 素 作为 m — 1 维 
Hu, ЖИ ҰНочмвеһоідег ,‚ ЕЯ (m — 1) x (m — 1) BT 
IF 28 ЕР. В) F 2) JÉ sÑ 1E 28 НЕ | 


1 0 | 
0, = (2-2,8) 
| | Р; | | | 
JE, ПАНИ 020. А 的 前 两 列 的 主 对 角 线 以 下 的 元 


Жы» =. 
一 般 地 ， 对 于 第 i 步 ， 取 Q;-18;-，…0Q201A 的 第 i 列 从 第 i 
行 到 m 行 将 元 素 作 为 m 一 i+ aE o, UAR Householder # 
РЕЖ (м-в 1) х (mi+1) 阶 正 交 矩阵 了 ;,， 按 下 式 构成 
TE ZE JE PE: 
fE- 0 | 
О, | Р, | (2-2.9) 
式 中 了 -1 Я-А Ы 
BAEDEKER 全 ;0,-1…Q201A 的 前 i 列 主 对 角 线 以 下 
元 素 者 为 零 。 依 此 类 推 作 过 代 计算 ， 一 直到 构成 正 交 和 矩阵 QQ,， 和 使 
任意 mxn 长 方 矩阵 A 变 为 0,0,-1…0Q:Q1 有 A， 即 主 对 角 线 以 下 
Јл ЈАКОЈ ЈЕ. < 
0-0.-10,-::-0:01, _ (2-2.10, 
ЕЖ, О, 实际 上 等 于 n ИНЫЕ Г, KERFI, 
HERTE, ЖЕН ОХ тх n НА 进行 变换 ， 可 
得 到 主 对 角 线 以 下 元 素 为 零 的 三 角 阵 R | 
| QA =R. о (2-2.11) 
这 就 是 线性 代数 中 将 任意 矩阵 Awx， 进行 分 解 的 QR 分 解法 。 
“33. 


“下面 用 这 种 算法 讨论 黄种 矩阵 的 正 交 分 解 。 

алы nxm, Rank(A) =n, %(2-2,11) 
式 可 写 为 = 

А = ОТК = Q'RI,. | (22.12) 

АН О тхт EXER, Ry mxn 上 三 角 阵 ， 上 为 nxn М E 
阵 。 根 据 矩 阵 正 交 分 解 定理 ， 式 (2-2.12) 007, В, LAAS 
55(2-2.10ф ИН, R. КЗ ЯУ. 

例如 ， шылы Аһабтт39, n=2, Rank( A) -2), 


А оази 0.3516 


0.4087 0.1594 
0.6246 0.3384 


的 QR 分 解 为 | 

_[-0-4744 —0,4993 —0.7250_ 

Q=] 0.5840 -0.7947 0.1652 | 
- 0.6587 -0.3450 9.6687 , 


- 0.8615 - 0.4965 
0.0 —0.1304 
| 0.0 0,0 


ll 


R 





ЖА» 2017 ЖЕН, т=и, Rank (А) =m, 据 (2- 
2。11) 式 ， 可 将 和 A 转 置 后 进行 分 解 ， 故 得 


AT = ОТК, (2-2.13) 

于 是 
А =КТО=1КТО, (2-2.14) 
erh In A mxm ВЕ, RT 为 mxn LEAR, О Ж nx n EX 


ЕЕ, ЕН РЕ ЕН НУН, R. KT 矩阵 。 
БИШ, ХРЕН А.,.(т-2, n=3, Капк( A) = 2), 
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a = [0.4087 0.4301 0.6246] 
0.1594 0.3515 0.3384 


的 QR 分 解 为 
/ -0.4744 0,5840 -0.6587 
Q= -0,4993 —0.7947 в 
\-0.7250 0,1652 0,6687. 
в_[-0.8615 0.0 0.0) 
- 0,4965 -0.1304 0.0). 


以 上 讨论 了 用 QR 分 解 对 任意 A,x， 和 矩阵 进行 正 交 分 解 的 办 
法 ， 有 了 A 的 正 交 分 解 式 ， 容 易 按 (2-2.3) 式 计算 广义 道人 A'*。 


$23 ”计算 广义 逆 A' 的 奇异 值 分 解法 


这 一 节 ， 我 们 讨论 另 一 种 有 实用 价值 的 正 交 分 解法 ， 即 任意 
Ж Ах» 的 奇异 值 分 解 。 这 是 地 球 物理 反 演 计算 中 最 常用 的 一 
种 数值 方法 。 例 如 见 Jackson(1972)，Braile 及 Keller(1975)， 
АК: (1976, 1977). Borsting Pedersen (1977), Vigneresse 
(1977) 等 。 | 

ELB АО ТЕЗЕ ЕН Аһ, ДЖИН НЕКТ, 
Жин R ЕЖЕ И, Нл ЗЕЯ ЕЕ ЖЕ Ки. 可 
РЕНН, R i 能 进一步 简化 为 非 奇 异 对 角 矩 阵 。 | 

这 种 分 解 和 对 称 非 负 定 上 矩阵 A7A 和 AAAI 的 本 征 值 一 一 本 征 
向 量 分 解 有 密切 关系 。 为 了 便于 理解 ， 我 们 先 讨论 ” 阶 方 阵 的 正 

定理 芳和 A 为 n 阶 非 奇 异 实 对 称 方 阵 , 则 总 存在 正 交 矩阵 疡 

Г AV=S, | 0-3,1) 

及 А = ИИТ, — (2-3,2) 
A S ХЕЕЕ, 5-4іад(51,52,:-, 5,4); Si, 52, с, Sa 
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BARKEN. ЕЖУ 的 列 向 量 是 方 阵 A 的 本 征 向 量 ， 且 六 
的 第 / 列 列 向 量 ui 为 第 j 个 本 征 值 S$; 满足 下 列 关系 式 ， 


Au; = 5;0;. (2-3,3) 
ЕЖЕ VRA FIE, 
| ртрР-РРТ-!,, (2-3.4) 
ВА (2-3.2) 1 В ЖЖ Е А АН E 
A`! = 75-1 ИТ, (2-3,5) 


式 中 16-1 是 对 角 元 素 为 S; 的 对 角 和 矩阵 ， 即 5 = аіар (571, 57. 
5742: | 
如 果 信 不 是 对 称 方 阵 ， 则 上 述 正 交 分 解 不 成 立 ， 但 总 可 以 找 
到 两 个 正 交 抵 阵 "及 六 使 | 
U АР-8, (2-3.6) 
K A = USV', (2-3.7 ) 
式 中 对 角 和 矩阵 5 的 对 角 元 素 51, 52, --, 5, 是 正 的 非 增 序 列 。 
对 角 元 素 的 平方 Si ，S ，…，S: ЖМЖ AT A 的 非 零 本 征 
ЇН; ЕТУ, 是 对 称 方 降 4 АТА НУЖЕН, u; 与 
Si 满足 了 列 关 系 ， 
| АТ Ау, 8%), (2-3,8) 
0 的 列 向 量 и, ХОА АТААН, 4 与 S 满足 下 列 关 
Ж: 
А Ати; = Sšu;., | (2-3,9) 
应 当 指 出 ， 由 (2-3,8) 或 (2-3.9) 式 求 出 的 S? 是 相同 Py. Ж 
据 式 (2-3,.7) 可 以 求 出 任意 方 阵 的 道 阵 
A`! = И5-:07, (2-3.10) ` 
现在 , 我 们 将 n 阶 方 阵 正 交 分 解 定理 推广 到 任意 m Xx п Е 
去 。 这 可 由 以 下 奇异 值 分 解 (Singular Value Decomposition) 
定理 表述 。 | 
”定理 (SVD) 设 任 意 xz 矩阵 的 秩 为 Rank( A) = r, № Ж 
存在 一 个 mxm 正 交 矩阵 D0， 一 个 пхп ТЕЛНЕ И, #— Тшхп 
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对 角 和 矩阵 S$， 使 | 
| UT AV =S, | (2-3.11) 
及 А = 080т, О (2-3,2) 
其 中 ， 对 角 和 矩阵 S 的 主 对 角 线 元 素 恰 有 vr PEF, HJER 
非 增 序列 。 我 们 称 这 些 对 角 元 素 5S1，、S2,，…,S; 为 mxn 矩阵 А 
的 奇异 值 。 这 就 是 奇异 值 分 解 名 称 的 来 源 。 
ЖЕ U КР и, 这 的 列 向 量 为 v;， 它 们 与 奇异 值 


5 有 了 以 下 关系 ， | 
| АТА? = 520, (і<1,2,5-, п); (923,18) 
АА а = Shu, (1=1,9,:-, т). (23,14) 
”县 有 关系 


Si =S;, i=j<r; 
S;=0, i>r; 
5,50, 294j> r. 
下 面 , 我 们 将 奇异 值 分 解 式 (2-3.12) 写 得 更 具体 些 ， 





A. = U... Pa | V7,,, (2-3.15) 
О „зуу: 
其 中 
Го: 
52 0 
б = 78, (2-3.16) 
0 
| 0 
с 0 . 


对 任意 矩阵 进行 奇异 值 分 解 ， 是 因为 奇异 值 具有 稳定 的 性 
质 。 可 以 证 明 , 当 矩阵 A 有 一 个 拢 动 巨 时 ,奇异 值 的 变化 不 会 超过 
无 的 谱 范 数 | El|， 即 到 ?FE 的 最 大 本 征 值 。 奇 异 值 分 解 的 稳定 性 对 用 
广义 逆 方 法 解 线 性 方程 组 是 很 有 用 的 。 | 

由 奇异 值 分 解 式 (2-9.12) 容易 求 得 任意 Ж EAR Moore- 
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Репгове)” Хи 
А" = VS*UT, (2-3.17) 


Жар” 是 对 角 元 素 为 S7 ' (іг 1,2,5“, r) BJ НЕЕ 





ғ” ~ 


51! 


-f <: - ` | ‚т 
sia =] s. 0, „|= ° : 0 i 





| 0 





(2-3.18) 


例如 ， 对 于 列 满 秩 矩阵 (m = 3，n =2，Rank(4) = 2), 
(0.4087 0.1594. | 
A =| 0.4302 уай 
0,6246 0.3384 
的 奇异 值 分 解 为 | 
— 0.4347 0.6141 -0.6587 
(=! – 0,5509 -0.7599 сама 
= 0,7125 0.2129 0,6687 /, 


510-9965 0.0 | 
“0.0 0.1128), 
у_/-0.8626 0.5058) 

- 0.5058 _ 9. 8626 J. 


由 于 奇异 值 分 解 对 地 球 物理 反 演 问 题 有 重要 意义 ， 下 面 将 详 
细 讨 论 它 的 算法 。 我 们 首先 介绍 用 原点 平移 的 OR 方法 对 实 对 称 
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矩阵 进行 分 解 的 计算 方法 。 
“(一 ) 加 原点 平移 的 QR 算法 


这 是 一 种 加 快 收敛 速度 的 算法 。 任 意 n 阶 对 称 方 阵 A 可 以 通 
过 nn 一 2 次 Householder 变换 或 (n 一 1)(n 一 2)/2 次 Givens ЗЕ 
转变 换 而 变 为 三 对 角 和 矩阵 。 设 入 为 nxn 实 对 称 方 阵 ， 令 
А,=А. (2-3.19) 
取 一 适当 的 数 оі СЕНЕ), ХНА, - G L, IE QR ZY 
Ж, 


А.-о,і,- ОТЕ, | (2-3.20) 
然后 令 
A. =R Qi +o, L. (2-3.21) 
并 选取 适当 的 数 o, , ЖА, – 0,1, ДЕ QR 分 解 ， 
Аз-о.1,- QIR, © (2-3.22) 
再 令 | | 
Аз = К0; -о:1,, (2-3.23) 


Ж 次 迭代 计算 可 得 到 下 列 递 推 公式 ， 
A,-o,,= OiR,, | (2-3.24) 
Аһ. = К,0:+0,1,, (2-3.25) 
(к =1,2,3,:--). | 
我 们 称 о, 为 第 Kk 次 近代 中 的 原点 平移 量 ，Q; EEX Ж 阵 ， 
R, 是 上 二 ЖЕ, ЯША = 对 角 阵 ， Ш Аз, Аз ` 均 为 三 对 角 
阵 。 实 际 上 ， 由 于 对 称 性 ， 只 须 计算 主 对 角 线 及 上 面 的 次 对 角 线 


的 元 素 。 
据 (2-3.24) 式 得 О 
К„=О,(А„—оь1„), | (2-3.26) 
将 其 代入 (2-3.25) 式 有 
A. = Q. (A,—G641,)QO +01, = О,А Оз. (2-3.27) 
239. 


H (2-3.27) 式 可 知 ，AAii1 与 AAs 是 相似 的 , 即 它 们 具有 相同 
的 本 征 值 S$:，S2，…。 适 当选 取 平 移 量 os。 可 以 使 A; 的 最 末 一 
行 的 非 对 角 元 素 很 快 地 趋 于 零 ， 而 次 对 角 线 元 素 也 逐渐 趋 于 零 ， 
但 较 缓慢 。 这 种 情况 说 明 ， 和 矩阵 A, 的 右 下 角 元 素 相当 迅速 地 收 
ЖТА: 的 一 个 本 征 值 。 

现在 讨论 os 的 取 法 。 如 果 和 矩阵 A 为 实 对 称 三 对 角 Be, ШШ 
QR 方法 迭代 计算 的 矩阵 A; 恒 保持 三 对 角 的 特点 ， 这 种 情况 下 ， 
平移 量 о, TURER A: з F fa #]2 x 2 的 主子 矩阵 


| 
| 
| 
/ 


的 两 个 本 征 值 中 最 接近 ay 已 的 那 一 个 。 
(2) 奇异 和 值 分 解 的 计算 


现在 我 们 讨论 任意 长 方 矩 阵 A 的 奇异 值 分 解 (SVD) 的 计 
算 间 题 ， 我 们 总 是 假定 mm 宇 n， 攻 m <и. BÆR: А Ур 
数 时 ， 可 以 在 A 阵 下 面 补充 h - m 行 零 元 素 ， 使 其 成 为 方 阵 形式 。 
这 些 零 元 素 仅 需 由 计算 视 程 序 隐 售 的 加 以 处 理 ， 并 不 要 求 真 正 由 
存 到 计算 机 中 去 。 奇 异 值 分 解 计算 分 两 步 进行 。 

第 一 步 是 用 至 多 2 - 1 次 的 Householder 变 换 序列 将 A 变 为 
хоро |， 计 算是 按 下 列表 达 式 中 用 圆 括号 所 规定 的 秩 
序 进行 变换 ， | 


[о |= 9.<--- 02 (@: ABH: H,=0T AH. (2-3.29) 


式 中 
07-0,0,-1:-01, Н-Н;:Н;.“Н,, 
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Тш 


及 E= эз. (2-3.30) 


正 交 变换 阵 矩 应 这 样 选择 : 0 ;对 AA 阵 的 作用 应 使 它 的 第 i 列 
的 ;+ 1 至 m 行 的 元 素 变 为 零 ， 而 束 ;对 及 阵 的 作用 应 使 它 的 第 i 一 1 
行 的 i+ 1 至 n 列 的 元 素 变 为 零 。 按 上 节 叙 述 的 QR 分 解 方 法 ， 总 是 
可 以 完成 这 种 运算 的 。 

MAHA, H, 可 以 简化 为 单位 阵 ， 而 仅 当 m= n 时 Q, Я 
ШЕР, т> niy О, 一 般 不 能 忽略 ， 

SVD 计 算 的 第 二 步 是 利用 加 原点 平移 的 ОК 分 解法 ， 计算 上 
IAJ FA RERE В 的 奇异 值 分 解 ， 

B= 05 2 Т, (2-3.31) 


нәр, Ú. ИЕЗИ, ХВ, HR (2-3.29) 可 以 得 出 
=2|o |в. (2-3.32) 
(23.3 АНАЛ (2-3. 3255848 АА МЕ ЯЗ | 
A= (000 аіУҙғег |5 ут. (2-3.33) 
式 中 0-00, Vr = (HY ут, | (2-3.34) 
现在 根据 (2-3.30) 式 来 讨论 , 首 先 注意 到 如 果 某 一 元 素 e 为 
零 ， 则 矩阵 如 可 以 分 块 作 分 别 讨论 。 其 次 我 们 将 指出 ， 如 果 某 一 
a 为 零 ， 则 可 以 应 用 某 种 变换 以 产生 分 块 矩阵 。 - 
а, =0, На; =0№е ; 20, j=k+1,k+2, “-, "о Ип-к 
次 Givens 旋转 矩阵 Т; ERB 得 | 
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4ь-і е; 
0 0 (2-3 235) 
Т.-Т,1В-В”- ; ; 
Саа 
в +1 | . 
* ? 
| ак" ) 
Же; = 0, j= k+2, +, п Жа/з9, J=k+ l, +, м. 


ВЕНЕ BEET НУ НА k yj МО екъ, k+2, +, н) 
项 为 零 ， 旦 作用 于 kk 行 及 j 询 (j =kE+1, k+2, +, в). 
于 是 ，(2-3.35) 式 中 В” 共有 有 以 下 形式 


其 中 ， 所 有 В; НУ Я ХЕ, У В. 
НІ, ЖЫ БІФН-Т ЕТ АРМ, ХЕ МЕСЕ 
元 素 [ 位 于 (k，K) 上 ) 等 于 零 。 

KAREHA KETMA REH 于 ВИД Нер, 


В /-В {КЁ Ri. (2-3.35а) 


式 中 ;和 作用 于 第 i 及 第 kk 列 ， 使 位 于 (i,， Kk) 上 的 元 素 为 零 。 对 于 
这 1， 用 这 种 旋转 变换 使 在 (1 — 1, к) {Ий Кул ЖИЫ Ж. 

现在 回 过 来 讨论 B5, 为 了 方便 仍然 用 83 涯 示 这 个 双 对 角 和 矩阵 、 
这 一 矩阵 所 有 的 主 对 角 和 次 对 角 元 素 均 不 为 零 ， 符 号 ”继续 用 来 
表示 矩阵 B 的 阶 。 
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式 (2-3.31) 中 马 矩 阵 的 奇异 信 分 解 一 般 采用 大 代 法 计算 ， 
В, = В, 
В, = ОТВ, V), 
其 一 жақа» | 
B, i =UrIB,V,, k=1, 2, с. (2-3.36) 
А, ХРАНИ k, U, ВУ, 均 为 正 交 和 矩阵， 及 EWI AE 
阵 ， 选 择 正 交 和 气 阵 [rr ЖР 使 满足 以 下 关系 
Е S =lim B.. (2-3,37) 


式 中 S 为 对 角 阵 。 А, (2-3.37) 的 意义 是 ， 经 过 多 次 变换 后 ， 上 


WAS ЕВ 逐渐 变 为 对 角 阵 了。 

必须 指出 ， 自 迭代 法 得 出 的 对 角 阵 $ 的 元 素 一 般 不 一 定 是 正 
的 和 接 大 小 次 序 排列 的 。 为 此 ， 要 在 后 面 进行 适当 的 整理 步骤。 

НЯНЯ. 

МЇ 5Җ(2-3.37 4144 — БРАВ, ТЖ ВІВ, (这 是 三 对 角 
Жук) F 42 x 2 子 上 矩阵 的 本 征 值 S1 和 Sz， 取 QR 分 解 中 的 
原点 平移 量 о, 等 于 Si 及 Sz 中 最 接近 ВІВ, 三 对 角 阵 中 右 下 角 元 
素 中 的 一 个 。 用 前 述 的 方法 进行 分 解 ， 就 能 使 三 对 和 角 阵 非 主 对 角 


元 素 很 快 趋 于 零 。 
ШӨМЕЛЕ V, 确定 后 ， 则 积 | 
VI (В.В, – 0.1) (2-3, 38) 
8 E= ff ЕЕ. | Е | 
ПЕЛ НО, MER., МЕ 
ВОВ, | (2-3.39) 
为 上 双 对 角 阵 。 
ТЕ, 我 们 将 去 掉 式 (2- 3.3809 02-3:3908 ЛО 
| 43% 


代 次 数 的 下 标 k。 问 题 归 结 为 求 U7 ЖР, 

由 于 B87B 是 三 对 角 阵 ， 故 VCB7B- ol) H LEARE, VBB 
-о1) № VT (BTrB)V 均 为 三 对 角 阵 。 利 用 这 一 人 狂 质 ， 可 以 用 
Givens 旋转 矩阵 的 积 来 形成 (2-3.38) 及 (2-3.39) + ИМ U, 

V= R: R2 R,-1, (2-3.40) 

/7-Т,1.-Т;Т7|, (2-3.41) 
式 中 ;作用 在 矩阵 了 B 的 i 和 i+ 1 2], m T ЕҢДЕВМІЖІ-1 
行 。 

АННЫ: R 应 选 来 使 V7(B7B -ol,) 的 第 一 行 第 一 列 
以 下 所 有 的 元 窒 都 为 零 ,其 余 的 旋转 阵 R; 及 T'; 选 来 应 使 F7(B7B)V 
为 三 对 角 阵 。 旋 转 阵 依次 按 R1，T1， R2, T2, Ез, Тз, >, 
R,-1，T,-1 的 次 序 确定 ， 并 按 下 列表 达 式 中 园 括 号 的 次 序 作用 ， 

Т,-1С“Т;((Ті(ВЕЦО)Е;)--Е,. 1), (2-3.42) 

WHET: G=, 2, +6, n- ОНР i Ман, JE 
位 置 为 (i+ 1, і) EB 292, ERER: GSI, 2, œ, n-1) 
ERTA i Ri +13, 并 对 i> 2 了 时， 使 位 置 为 (i-1， i+ DĚJE 
RAP 

这 是 一 个 称 为 追赶 法 的 算法 过 程 。 在 n = 6 的 情况 下 ， 上 双 
对 角 位 置 以 外 的 元 素 消去 的 格式 如 图 2-3-1 示 。 

由 以 上 讨论 可 以 清楚 看 
到 ， 对 于 任意 mxn ЖЕ А 
HJ SVD 算法 ， 是 基于 对 (2- 
3.302 起 所定 义 和 的 非 奇异 双 
RJ fa KEB 的 奇异 值 分 解 的 计 
算 上 的 。 

在 计算 过 程 中 ， 要 求 对 
式 (2-3.30) 中 次 对 角 线 的 
же 进行 限 差 检验 。 若 
对 任意 i(2<i<n) 都 有 |ei <s(s 为 给 定 限 差 )， 则 计算 结束 。 否 
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图 2-3-1 


则 将 按 (2-3.32) 式 继续 进行 迭代 。 最 后 ， 以 变换 后 к ЕВ 
= UTBV 置换 原 存 贮 的 B 矩阵 而 结束 。 | 
现在 讨论 矩阵 Anxs 奇异 信 分 解 的 最 后 公式 的 一 些 问 题 。 

HPR (2-3.37) 中 对 角 和 矩阵 5 的 对 角 元 素 一 般 不 一 定 为 非 
负 或 非 增 序列 。 为 了 补救 这 一 点 ， 可 以 选择 一 个 对 角 阵 D， 其 对 
” 角 元 素 选 为 + 1 或 - 1， 使 得 对 角 阵 


$ çp (2-3.43) 
的 对 角 元 素 非 久 ， 然 后 再 选择 一 个 排列 矩阵 P «РЕФ -ЯЫЖ 
单位 向 量 基 el，ez，…，e, 按 某 种 方式 排列 )， 使 矩阵 


S=PrSP Е (2-3.44) 
的 对 角 元 素 的 排列 次 序 为 非 增 的 。 容 易 看 出 
B=( ОР) (PTSP) (VDP)r=ÜU SVT (2-3.45) 


是 矩阵 B 的 奇异 值 分 解 ， 其 奇异 值 矩阵 S 的 对 角 线 元 素 具有 非 负 
非 增 的 性 质 。 | 
FE, РА, 的 奇异 值 分 解 式 


199 
ИРЕ ЖБ Р А023, 31) 8 | 
V=(HF )=H,-.H.,Ri-.R.DP. | (2-3.46) 
RHH, 是 式 (2-3,29) 中 的 Householder 变换 ，R; 是 右 乘 的 
Givens 旋 转变 换 ( 参 见 式 (2-3,35a) ,进行 v Нее), 
D 及 P 分 别 为 按 式 (2-3.43) 及 (2-3.44) 定义 的 对 角 阵 及 排列 阵 。 
ЕН ЕО 亦 按 (2-3.34) 式 计算 
07 = (О бо" = Ётот- РТ,.-Т10.-01. 
(2-3.40) 
Т, 为 按 式 (2-3。35 ) 定 义 的 左 乘 Givens 旋 转 阵 ，@C ,为 式 (2- 
3.29) 中 的 Householder 变换 。 
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ЖЫНЫН, ERO 3.462-34 ИНО, R 
容易 计算 As, 阵 的 Moore-Penrose 广 义 进 | | | 
+= 08-107, (2-3.48) 


(=) 用 SVD 方 法 解 线性 方程 组 


线性 方程 组 Ax b 的 最 小 范 数 最 小 二 乘 解 为 Y= АР, PE 
(2-3.48) 式 有 








x = JS-1U76 (2-3.49) 
分 别 令 | 
Th Ж g] yn 
& = U b= Т 三 (2-3.50) 
v3 11809 | }т-п 
| Е 
及 T 
5-1 | | 

因而 有 x = р. (2-3.52) 


由 于 S 为 对 角 矩 阵 (S= diag(Si, 52, --, 5.0), MUAC 
3.51) 中 的 了 ;分量 为 | 
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由 可 供 选 择 的 解 向 量 Р "可 由 (2- 3.52) 得 到 Аха я 
м, 


ж k) — УР k) = 5; Piv i * k=0, 1, .., п. 
71-1 





(223.54) 
Ху! ЖЕНЕ V ВИН. 
注意 一 般 是 用 以 下 选 代 公式 计算 xX“ 
х(92-0, 
x (hk) = ylk- D + Рк) рб), К-1, 2, =, п, | 
(2-3.55) 
可 供 选 择 解 % 和 的 残 差 范 数 平方 为 
= 
p= lb- Ах у в. | (2-3.56) 
ј= В+ 1 ғ 2 ` 
A / 
ta м ` | 24 = Z ' 3 
其 相应 的 均 方 误差 为 желе 6 
| ДУЛ 
Оу 
o= J тек А k= 0, 1, » И (2-3.57) 


$24 最 优化 方法 及 一 维 寻 查 


上 一 章 已 经 指出 ， 解 地 球 物理 反 演 问题 的 数值 方法 中 ， 一 类 
重要 方法 是 计算 目标 函数 极 小 值 的 最 优化 方法 。 

最 优化 方法 的 研究 起 源 于 第 二 次 世界 大 战 期 间 。 当 时 ， 由 于 
军事 上 的 需要 ， 研 究 了 一 些 无 法 用 古典 微分 法 或 变 分 法 解决 的 问 
” 题 ， 从 而 提出 了 以 后 称 为 最 优化 方法 的 算法 。 近 和 州 年 来 ， 由 于 生 
产 及 科学 研究 的 需要 ， 大 大 促进 了 最 优化 理论 及 方法 的 发 展 。 计 
算 机 的 普遍 使 用 ， 使 得 大 型 复杂 的 最 优化 问题 的 解决 成 为 可 能 。 


447» 





ы 


最 优化 方法 这 一 数学 分 支 包 括 内 容 很 广 ， 而 数学 规划 是 解决 
最 优化 问题 最 重要 的 数学 工具 。 一 般 的 数学 规划 问题 提 法 如 下 : 
ЕХ-(х,, X25 s х.) 7 为 n ЖЕНЕ" 内 的 点 。 而 
(x); 
| g (Xx), і-1, 2, +, m3 
h; (х), ј= 1, 2, р. 
为 给 定 的 n 元 函数 。 问 题 是 在 约束 条 件 8; (xX) >0( 2856809238) 
В) = 0( 等 式 约束 ) 下 求 目 标 函 数 中 (x) 的 极 小 。 
车 史 、8i、hj 都 是 x 的 线性 函数 。 我 们 称 为 线性 规划 。 若 钾 、 
Ë,, hi 中 某 些 是 非 线性 函数 时 ， 称 为 非 线性 规划 。 地 球 物 理 反 演 
问题 一 般 是 非 线性 规划 问题 。 
当 约 束 条 件 不 存在 ， 即 内 = p= ТІҢ 这 类 问题 称 为 无 约束 最 
优化 问题 。 而 当 m、p 不 全 为 零 时 ， 则 称 为 约束 最 优化 问题 
目前 解决 约束 最 优化 问题 大 致 有 两 类 方法 。 其 中 一 类 是 总 直接 
外 理 约束 ， 另 一 类 是 将 其 化 为 无 约束 景 优化 问题 进行 处 理 。 由 于 
后 一 类 方法 很 有 效 ， 所 以 ， 研 究 无 约束 最 优化 问题 就 有 重要 意 
Хо 
本 节 及 下 一 节 ， 将 讨论 无 约束 最 优化 方法 的 一 些 基本 算法 。 
所 谓 无 约束 最 优化 问题 ， 就 是 在 全 空间 E" 内 寻求 函数 B(x) 的 极 
Ак, жеме" 使 
Ф (х) - шіп Ф (х) }, хеЕ", 
ХХ ЈЕЛЕ Е, AAF Ф (х) 有 连续 的 一 阶 偏 导 
数 ， 令 其 为 零 ， 就 可 以 求 得 其 极 小 点 。 但 是 ， 解 偏 导 数 方程 组 往 
往 是 困难 的 ， 一 般 情况 下 ， 是 无 法 直接 求解 的 ， 因 此 要 用 到 迭代 
法 。 和 迭代 法 的 基本 思路 是 给 定 初 始点 x% 并 计算 一 系列 的 az, (k = 
1，2,…) 值 ， 使 它们 收敛 于 极 小 点 。 一 般 ,最 优化 方法 按 其 求 取 
极 小 的 计算 方法 可 分 为 直接 法 和 解析 法 两 类 。 前 者 仅 利用 虽 标 函 
数 通过 试验 来 寻 查 极 小 点 。 后 者 要 计算 其 一 阶 或 二 阶 导数 ， 通 过 
一 定 解 析 式 求 极 小 点 。 下 节 将 分 别 讨论 这 些 方法 。 
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这 里 ,我们 将 首先 研究 无 约束 最 优化 计算 中 一 维 寻 查 问 题 。 求 
目标 函数 中 (%) 的 极 小 点 常 按 以 下 方式 进行 : 选 定 初始 点 we， 从 
жо 沿 某 一 规定 的 方向 po 求 函数 四 (x) 的 极 小 点 、 设 这 一 点 为 xX1。 
然后 再 从 XX! 出 发 ， 沿 某 一 规定 方向 pi ЖЕЖ ФО м, 
设 其 为 xz。 如 此 继续 进行 迭代 ， 直 到 寻 查 到 整体 极 小 所 为 止 。 
一 般 说 来 ， 从 点 хь 出 发 ， 沿 规定 的 方向 Pp。 ЖФ (ac) ДЕ 
қа 就 构成 某 些 最 优化 方法 的 一 种 基本 过 程 。 我 们 称 pi 为 
次 迭代 的 寻 查 方向 ， 它 由 具体 的 算法 所 规定 。 由 图 2-4.1 所 示 ， 
在 过 xX; 点 的 p; 方向 ， 函 数 中 (%) 实 际 上 变 成 了 参 变 量 1 的 一 元 画 
ЖФ (x, + Ар) НЯЗЖЖАВН-АВ, М.х, + АР МУРА. 
点 的 方向。 这 种 求 1 使 b lx, + AP.) 为 极 小 的 过 程 ， 称 为 一 
维 寻 查 或 线性 寻 查 。 

下 面 ， 我 们 讨论 几 种 常 каар Р, 
用 的 一 维 寻 查 方 法 , о 
单个 实 变量 函数 中 (xX) 的 极 
小 化 问题 。 ҮП 2-4-1 


(一 ) JJ 线 法 


切线 法 又 称 Newton ik, 其 基本 想法 是 用 和 迭代 法 产生 点 列 
хь(к=1, 2, ---), НВФ’ (x, ЛВ 30, Newton ERAK 
Ф (xi) 存 在 二 阶 导数 。 

如 图 2-4-2 所 示 ， В ха 
ХА К КЕЗЕК» 


$ (x) 


并 且 求 得 使 这 个 线性 函数 为 
零 的 点 。 这 个 凡 就 是 下 一 个 
ЖАҚ КАХА +10 事实 上 ， 若 令 
xJ D’ (х) =0 的 解 的 当前 
ЖКА, ЖЕЛЕ 
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ЖЕ ха 附近 使 加 ‘(x}) 线 性 化 ， . 


Ф'/ (хь) + Ф” (хь) (хх) = 0 (2-4,1) 
的 根 为 。 | | 
ü Хаз = Хв ~ с, “ О 
ош (|Ф”(хӘі|<е |х, -хь| <ó, (е 及 6 均 为 事先 给 定 的 
限 差 )。 则 取 xx 作 为 所 求 的 极 小 点 x "。 若 不 满足 上 述 的 精度 要 求 ， 
则 继续 迭代 ， 直 到 满足 要 求 为 止 。 


(二 ) ЕТІН 
жаат, ИЖ РЮО, БІН KOR = 
多 项 式 拟 合 目标 函数 以 求 取 其 极 小 点 。 下 面 只 讨论 二 次 函数 E 
近 。 





(2-4,2) 


如 图 2-4-3 Дж, ИН 
prx) | OO OR ЖЖ Ф (х) ТЕ А х, <х: 
| <хз HARES WAD, 

Ф, Ф, ЯНХС AKK 
数值 可 以 构造 二 次 插值 公 
式 ， 求 该 二 次 曲线 的 极 小 ， 
即 可 得 目标 函数 ФУТ 

值 。 | 





р(х) = а + ax+asx’ (2-4.3) 
为 二 хина, хани ы 显然 5 БЛ 满足 条 
件 ， | 


р(х.) = в Tax, taxi = Фу, 
p(x2) = ар +аха+азхі = Фа, (2-4,4) 
р(хз) = ао +а, хз taxi = Фа, | 
жал, меж, 
p'(x)=a,+ 2a,x= 0. (2-4,5) 


.50» 


故 得 极 小 点 


Xmin = 一 < | І (2-4,6) 
да» 


Я На, Жа» ,从 (2-4。4) 式 消去 ao 得 


G, (x: —xs) + as (x — х2) = ®ı- Ф2, ) 


а: (ха-ха) + аз (хз -x)= Фә – Фз. 


(2-4.7) 


В ЗЭ АВНЕ Д, ң(2-4.20Ж 8 


(x3 х5) @1 + (xš — x1) Ф2 + (хі-х -ха)Фз 


хх, (Xs — x1) 


(хь — xs) Фіз(ха- ха) Ф + (х: 一 Хз) Фз 


а = —— ym r 


(x, 一 Xs)(xXs 一 Хз) (xs 一 ху) 
将 ai 及 os 代入 (2-4.6) 式 得 极 小 点 


1 (ха-ха) pi + (x-xi) Фә + (х - ха) Фз 
2 (x; —xs)@ 1 + (xs — 1х) b; + (x, х.) Фз' 











| (2-4.8) 
Ха, Nas xs 三 点 等 距 ， Вр 
Xs — Xa = Xa — X, = Ах, 
网 (2-4。8) 式 可 简化 为 
т Pı- P; (2-4.9) 





2( bi — 2; + Фі)” 


应 该 指出 ， 由 这 种 方法 寻 查 的 极 小 值 ， 仍 然 是 近似 的 。 为 了 
细 查 ， 还 要 利用 迭代 法 。 每 次 迭代 时 ， 若 满足 az>0( 极 小 点 存在 
ЖЕ), ШИ xain 车 xnis 与 x1，Xxs，xs 三 点 中 最 近 的 点 的 距离 
小 于 给 定 精度 e, WER xni 作为 极 小 点 x БОЛЫЛ, ЯШ Ж 
Ф(х.:.), Ам b i. Ф.Ф 中 最 大 的 一 个 ， 并 以 余下 的 二 
Жа хал 点 重新 用 二 次 插值 式 再 寻 查 极 小 扩 ， ШЕ ЫҚ, А 
到 满足 精度 要 求 为 止 。 


(=) 直 # 法 


直接 法 是 一 种 试探 法 ， 即 利用 直接 对 比 函 数值 罗 (x) 节 大 小 
来 求 极 小 值 的 方法 。 例 如 ， 可 将 极 小 值 所 在 区 间 [Ca，b2 等 分 为 n 
等 分 ,对 每 一 护 求 目标 函数 值 大 小 ,到 最 小 的 一 个 更 值 对 应 的 xnin 
作为 x 的 近似 点。 这 种 方法 虽然 简单 ， 但 计算 量 很 大 ， 所 以 要 考 
虑 如 何 通过 计算 最 少 的 函数 值 以 得 到 x ”的 近似 值 。 

我 们 现在 来 研究 单 峰 函数 的 性 质 ， 它 对 下 面 介 绍 移 方法 的 收 
敛 性 和 最 优 性 都 是 非常 重要 的 。 

ВФ (х) Е А] Са, OER, КУ НФ’ (х) = 0 只 有 一 
个 根 ， 那么 在 [a， bj 区 间 内 任意 取 两 点 Xk 及 Xk， a <x; <х; < 


bF, 有 下 述 关 系 : 


(1) (xa) <Ф (x!)， 则 极 小 点 在 [a，x/j 内 ; 
(2) D(x) > P(x), MRDA Cxe, БР; 
(3) Ф (хь) = (x2), 则 极 小 点 在 Сх, % 9 XEJN. 


对 于 前 两 种 情况 ， 缩 小 后 的 区 闻 里 已 有 一 个 计算 过 函数 的 
点 ， 这 样 我 们 就 可 以 再 找 出 一 个 新 的 点 与 该 点 比较 ， 继续 缩 小 区 
间 。 为 了 统一 研究 方便 ， 我 们 将 第 三 种 情况 也 并 入 第 二 种 情况 进 
行 研 究 ， 以 便 使 缩小 后 的 区 间 中 ， 也 保留 一 个 计算 函数 的 点 。 

-下面 介 绍 的 方法 称 为 Fibonacci У, 因为 它 采用 下 XË 的 
Fibonacci 数列 来 缩小 区 间 。 

如 果 我 们 把 满足 精度 要 求 的 最 小 区 间 视 为 单位 区 间 。 那 么 要 
把 区 间 长 度 为 Cs，b] 缩 小 到 单位 区 间 > 最 少 需要 计算 好 多 次 函数 
值 。 或 者 ， 反 过 来 这 样 考虑 ， 我 们 计算 k 次 函数 值 ， 最 多 能 把 多 
长 的 区 间 F; 缩短 为 单位 区 间 ， 可 以 证 明 Kk 与 FEs 有 下 列 关 系 ， 

Ро =1, Е, =1, 
F = Е... T+ Fi-2, 当 K 关 2。 


(2-4.10) 


252. 


具体 列表 为 


k 0 






































Жз k 表示 图 数 计算 次 数 ，F4 表示 最 多 能 缩短 为 单位 区 ІН 
的 长 度 。 我 们 称 F, 为 Fibonacci 数列 。 | 

由 上 述 得 知 ， 计 算 k 个 函数 信和 能 获得 的 最 大 缩短 率 为 1/F，， 
若 我 们 给 出 的 满足 精度 要 求 的 区 间 小 于 д, ШЕ 


1 <a, 
Á 


ҮДЕ КК. ИИ, RUER KE ЕЕ 
071/100, ЖДЕРТИВИЖВЛХЯОЭ1 5. 

下 面 讨论 用 Fibonacci 数列 来 缩短 区 间 的 具体 作法 。 

(1) 第 一 步 ,根据 给 定 的 最 小 单位 区 间 6 来 确定 计算 沙 数 次 数 
k， 即 按 亡 一 <6 而 确定 F， 对 应 的 k 信 。 

(2) 依次 按 下列 送 代 方式 选择 计算 函数 的 点 。 对 于 第 i 次 探 
测 ， 由 于 这 时 的 区 间 已 缩 为 ra,，bi)， 故 取 两 个 新 的 试点 为 


Хізі = b; + На — bi), 


xí, =Q; + S —a;), 
Fg- 


(i=0, 1, 2, =, k-2). (2-4.11) 
判断 : 
A D(x) 过 DB (x! 141), KEA Са: хі +12. 
ФФ (х;..)22Ф(х",,), 区 间 缩 小 为 х: һ:2. 
ЗМЕЯ КІН EA Са:, bi, ЖЕК, Вај =K- 2。 
| .53. 


- 


(3) `W4i=k- 2 时 ， 按 (2-4.11) 式 选 点 得 
Х.-і -Ы- ‚+ ——(ау-: 一 DA-2)， 


1 
Х{-1 “ақ-2%-2-(9-2-4:-2). 


ИНН, ЕН. ЯН, WHA 
XA-1 “bk-2 人 


xl- =ar- + (че) а-а аа-а). (2-4.12) 


式 中 s 为 任意 小 的 正 数 。 与 上 次 留 下 来 的 点 xk-z 或 巡 -2 BU ЖЖІН 
比较 可 以 得 出 新 的 区 间 ， 这 时 得 到 的 新 区 间 即 为 满足 精度 ó 的 单 
МКІН, ERER. | 

下 面 ， 我 们 再 介绍 一 种 常用 的 0.618 法 ели). Н 
式 (2-4,11) 可 见 ， 由 于 Fibonacci 法 在 每 次 迷 代 时 和 需要 计算 比值 


Еһ-і-і -1 (із 
і- 0, 1, 2, 2..5 к- 2). 
F”? 


该 比值 表示 每 次 区 间 的 缩短 率 ， 当 不 同时 比值 是 不 同 的 。 由 于 
每 次 迭代 都 要 算 比 值 ， 故 比较 麻烦 。 另 外 用 这 种 方法 首先 机 估 证， 
k 的 大 小 ， 对 于 某 些 情 况 也 是 困难 的 。 可 以 证 明 有 极限 

lim 1 =0.618033988741---. (2-4.13) 


{= 








Fi-ı Eiz ..., Fl 比值 都 用 0.618 近 似 的 代替 ， 得 到 
Е; Fi-1 Ег 


TFAO. GISH R ЖЗҚ 
Хізі =b; + 0.618(a;-b;), 
хі sa; +0.618(b;-a;). 


用 与 Fibonacci 法 相同 的 办 法 ， 比 较 四 (xysi) 及 外 (xf УЕ 
.54» 





(2-4,14) 


新 区 间 。 不 断 失 代 以 缩短 区 间 ， 直 到 区 间 小 于 464， 和 迭代 过 程 停 
J 

0.618 法 和 Fibonacci 法 探测 点 的 选择 都 具有 对 称 性 ， 计算 
过 程 相 似 ， 但 Fibonacci 法 缩小 的 区 间 比 0 618 法 要 小 ， 当 大 值 
很 大 时 ，0.618 法 的 终止 区 间 要 比 Fibonacci 117%, 190.618 
法 计算 过 程 比较 简单 ， 而 且 无 须 事先 计算 k 值 。 
”以 上 讨论 了 一 些 常用 的 一 维 寻 查 方法 ， 下 面 转 入 讨论 多 维 无 
约束 最 优化 方法 。 我 们 将 按 直接 计算 目标 函数 值 ， 求 一 阶 导数 ， 
求 二 阶 导数 三 种 情况 分 别 和 叙述。 = 


$25 ”直接 计算 目标 函数 值 的 方法 


直接 法 由 于 它 无 需求 目标 函数 的 导数 ， 对 于 最 优化 问题 计算 
是 很 有 用 的 。 这 类 方法 内 容 广泛 ， 我 们 只 介绍 最 常用 的 单纯 形 法 
及 共 思 方向 法 。 


(一 ) 单 纯 形 法 


单纯 形 法 是 利用 对 空间 参 景 尽 的 几何 图 形 的 研究 来 寻找 目标 
前 数 的 极 小 点 。 单 纯 形 方法 出 现 于 六 十 年 代 初 期 ， ЕЖЕН 
低 的 网 格 法 的 基础 上 改进 的 一 种 经 验方 法 。 

一 般 单纯 形 取 为 2 维 空间 中 n+1 个 互相 等 距 的 把 组 成 一 个 规 
则 岂 何 图 形 。 例 如 ，n =2 时 取 等 距 三 点 构成 等 边 三 角形 ; n=3 
、 时 取 等 距 四 点 构成 正四 面体 。 对 单纯 形 各 项 点 计算 目标 函数 
(YX) 的 函数 值 ， 并 将 这 些 值 进行 比较 。 低 挤 其 中 通 数 值 最 大 的 
忆 ， 选 择 一 个 新 点 与 原来 未 舍 去 的 把 构成 新 的 单纯 形 。 如 些 反复 
作 下 去 ， 最 后 总 能 寻 查 到 极 小 后 。 后 来 Nelder 及 Mead 等 对 原始 
的 单纯 形 法 进行 了 改进 ,其 效果 较 好 。 这 里 介绍 改进 的 单纯 形 法 ， 
其 步骤 如 下 。 | | | 

1。 单纯 形 的 选择 ， 可 以 为 等 边 的 规则 图 形 ， 也 可 以 取 不 规 

255. 


则 的 图 形 ， 对 于 п 个 变量 的 规则 图 形 的 顶点 可 以 由 以 下 公式 给 
м: ”是 给 定 的 初始 反 , 单 位 边 长 的 单纯 形 的 顶点 为 X1”， 


(OY (0 } (n: д. ( Ü 
X ; =(х}! +01, X1 5 +82, `... Xij] +01, 


0 (04; (052 
Жі + 02, Жо, + би» Мы" хі? +81)", 


1-2, 3, е, п. (2-5.1) 





Ж. 
41-2 +1 +n-1 
nv 2 
(2-5.2) 
д; = vnti -I 
ny 2 


Чжан. RURA х1° 外 ， 可 以 从 该 点 
起 始 沿 每 一 个 坐标 轴 方 向 各 取 一 点 , 即 xi 和 = [° де 1, 
2，…，n)。 闪 n+1 个 点 构成 知 始 单纯 形 。 其 中 4; 为 适当 的 标 
量 。 | 


2, ИННО АН АНЕ ИЕ b (x), ЖЕНЕ 数值 大 


小 重 排 顺序 ， 


Pi, Ф2, --, Ф,, Bazie (2-5,3) 


Жі» №2, ts Ж,» Альт. ` 


其 中 Ф<Ф<-<Ф,<Ф,1, ВИКНИЯЖЕЛА хі | 


最 好 顶点 ， 而 目标 函数 最 大 点 Xx,;1 ЛЕЖА, æ, 为 次 坏 Ti 
点 。 


“56。 


= v 


不 考虑 最 坏 项 点 ， 计 算 单 纯 形 项 点 x:，xa，…，%。 的 质量 
әу, Мс-бсі, сә, се, с.) "表示 其 各 分 量 是 计算 公式 为 


214 
= У дц, G=1, 2, +, n). (2-5.4) 
іші 


3。 将 xi МАН, АСИЕНЫНыАхХ,, МАНИ 
公式 为 
х,„=с+@(с— ж.,12. (2-5.5) 
Дн a 称 为 反射 系数 。 
对 反射 点 м, 处 的 目标 函数 值 的 计算 有 三 种 可 能 情况 。 
(1) P(X) <Ф(х,) 二 (xX,)， 这 时 以 x ,代替 xX;,1。 按 正 
НК. 
(2) Ф(х,)<Ф(х!), IX АК». 为 新 的 最 好 点 。 可 以 
将 x, 沿 此 方向 再 向 前 推进 一 些 ， 称 为 扩张 ， 即 取 扩 张 后 
Xx¿=c+BÜB(x, – с). (2-5.6) 
式 中 в> КЖ. TE p(x.), #Ф(х„) <Ф(х,„), М 
称 为 扩张 成 功 ， 以 Xx。 代替 x;;,;。 否 则 扩张 失败 ， 仍 以 x. Ж 
Хх, WRITE. 
(3) (xn) Ф <(x,), PB x, ЛИВАН, НА ЖАТЫ: 
缩 。 取 压缩 后 


х,=с+Ү‹(є—Х„‹,,)._ (2-5.7) 
Жаз Y (0<Y<1) 称 为 压缩 系数 。 如 果 计 算出 的 目标 函数 值 满 足 
DX) <тіп(Ф(х,), Ф (Xt1)), (2-5.8) 


ШАН. Иных, RERA Xa ВМ, НАША 
ЫВА ЕТ, МЛИН, пни. вии 
顶点 的 函数 值 ， 继 续 进 行 迭 代 。 
图 2-5-1 为 两 个 参量 的 单纯 形 法 计算 过 程 中 ， 反 射 、 扩 张 与 
正 缩 的 示意 图 。 | 
4. СӨЙЛЕШІ, Е НВ 22 o 小 F 
事先 给 定 的 精度 要 求 e М, ЖАКЕН, БИКЕ. ИНЕ 


.57。 


o 的 计算 公式 为 


FP) - Ф(х))? 
=] 一 一 一 一 
式 中 (x) 为 单纯 形 各 项 点 目标 通 数 值 的 平均 值 。 
人 单纯 形 法 不 仅 对 无 约束 
最 优化 问题 有 效 。 对 于 约束 
最 优化 也 是 一 种 很 好 的 算 
法 。 这 时 仅 需 对 每 次 迭代 中 
EI TARRI, WA 
以 一 个 较 大 的 函数 值 ( 比 所 
有 顶点 都 大 ),' 这 就 可 以 使 
БАРОН М 远离 边 
界 。 
图 2-5- 1 单纯 形 法 计算 简单 ， 程 
序 稳定 。 但 参量 较 多 时 ， 计 算 工 作 量 大 。 


(2-5,9) 











(=) ЖЕУ Ж 
下 面 讨论 目标 函数 为 二 хан зек оиын, ЕЖ 


整个 一 类 无 约束 最 优化 求 极 小 值 的 基础 。 
定义 ” 设 A 为 nxn 正 定 对 称 矩 阵 ，P;，p: 为 两 个 n 维 向 量 ， 


”车 有 


Ру Ар. =0, (2-5.10) 

ИЖ р, ТР, Л АЗЕ 5235. A АЈ 382 А. | 
” 共 辐 方向 的 概念 是 正 交 性 (A 为 nxn НЕТ, ) 的 一 个 推 
广 。 一 个 对 称 的 nx n 方 阵 A 具 有 rn 个 正 交 的 本 征 向 量 ,， 这 几 个 
向 量 也 是 相互 共 力 的 。 因 此 ， 对 每 个 nx.n 正 定 对 称 方 阵 ， 至 少 
An НЕЖИН. ТЕ, Ут Лол, ВХ 
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пл, ния м. М, 
#J ЗЕНА ЛЕЛИН ТЇШ Л — Ж] ЗЕ ЛИ] ІК. 
首先 ， 给 定 一 个 初始 点 xo。，、， 并 任意 建立 初始 方向 ,通常 ， 初 
始 寻 查 方向 均 选 为 mn 维 空间 的 坐标 基 ( 这 是 一 组 线性 无 关 方向 )， 
ИП 
ри =e, = (1,0,0,--.,0)Т, 
р: =е> = (0,1,0,--.,0)т, 


| р. =е, = (0,0,0, ---,1)7. 
对 上 述 每 一 个 方向 依次 进行 一 维 寻 查 ， 即 求人 4;， 使 
Ф (х; ТАРР; =min® x,-1 + AP). 
А 


| X; “X;-1 + À P ;. 
重复 此 寻 查 过 程 ， 直 到 i= n, 即 对 所 有 的 方向 e; ， 都 寻 查 完 
为 止 。 这 时 得 到 点 xz。 o Æx 与 x, 方 向， 得 到 一 个 共 辑 方向 
Р, = Xe Хо. | (2-5.11) 


将 原 方向 p 取消 ,并 将 px 补 在 后 面 。 换 童 之 ， 也 就 是 令 pz рз, 
=, Р. P :作为 n TIED, Их, 作为 起 点 再 依次 作 一 ЖЗ 
查 。 最 后 得 到 另 一 个 新 点 xy 和 另 一 个 共 斩 方 向 p4。 

о ЕЯ RHH. ЕАК, ЯНИ НЕЕ Ар. Ж 
<и 后 次 ， 就 可 以 得 到 n ТЕЛ. РИ BRAAK 
对 这 ТЕН Ж, ШЖМ ЖА. 


(=) Powell% 
在 以 上 方法 中 ， 存 在 一 个 缺点 。 就 是 na 个 方向 中 的 任意 一 个 


Е, РА; =0， 这 有 时 便 不 能 保证 2 个 方向 是 线性 无 关 的 ， 为 
Ш, Powell 提出 了 一 种 改进 方法 。 这 种 共 斩 方 向 法 的 基本 思 
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想 是 ， 站 初始 方 问 P;(i=1,2,…,n) 上 ， 依次 进行 单方 向 探测 求 
极 小 点 ， 将 初始 点 与 第 n 个 方向 上 的 极 小 点 和 的 连 线 方 向 作为 新 的 
方向 。 如 果 该 方向 代 赫 p;(i = 1,2,…,n) 中 的 某 一 方向 ， 能 使 由 
各 p: 分 量 作为 第 ; 列 元 素 构成 的 行列 式 增 大 ， 则 去 掉 该 方向 ， 
代 之 以 新 方向 。 否 则 ， 仍 不 能 代替 。 其 具体 算法 如 下 : 

1。 选 定 初始 值 Y。 及 初始 寻 查 方向 。 一 般 是 选取 # 个 有 顺序 
的 线性 独立 方向 pl1，pP2，…，P,， 即 取 n 维 空 间 的 坐标 基 21,62, 
.Cn | 

2. Нм H A Wr pi 方向 进行 一 维 寻 查 ， 求 得 极 小 所 %1 B 
Han 点 出 发 沿 Pz 方向 进行 一 维 寻 查 求 得 极 小 所 хо; …。 依次 
ETA, BE, шаһ 点 出 发 沿 p, 方向 求 得 极 小 点 xs。 

3。 在 一 维 寻 查 过 程 中 ， 用 更 ;= 中 (%i) 表 示 版 %i 上 的 目标 函 
数值 ， 同 时 比较 前 后 两 次 目标 函数 的 差 值 、 即 比较 以 下 序列 

Фо- Фі, Фі- Ф;, >, Ф,-1- Ф, 
的 大 小 ， 用 
A. = Pon-i— Ф, (2-5,12) 

ЖЫН НАЗ 25 18 ДЕЖҖ ж 

4. м х, 的 距离 延长 一 倍 ， 即 计算 2x,- хо, ТЕЕ 
上 求 目标 函数 值 ， 表 示 为 | 


Ф =Ф(2х„— х). 
如 果 关 系 式 


= Ax | (2-5.13) 


成 立 ， 则 表明 沿 x, 延长 方向 寻 查 的 目标 函数 极 小 扎 仍 大 于 原 方 

向 各 次 迭代 的 目标 函数 的 差 值 ， 说 明 这 不 是 最 好 方向 。 故 下 一 次 

选 代 时 ， 仍 以 x ,为 出 发 点 ， 沿 原 方向 pl1，Pz ，… ， 书 进行 寻 查 。 
”反之 ， 车 关系 式 
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给 定 参 数 初 值 和 Aka role, . 
е, zap 0,0,0 т, 
ез =. (1.].0.°’’ 0 171、 





=, = (0,0,0, 0101 









H АКА, ` 使 | 
Ф (х, 1 Ж, е, ) = ming (X | де, } 


Xe oN 











RAm fix, |)-Фсх,)  max[@ x BJS ) 







@ ( 2 x, ~ el: ALLRI ° x, ) Ст 


= 


хо = ë — ë, 


去 掉 方向 en . Же, е, -~ 、 











р mm]. n). ЕНІ x, - 


Ха > x 用 一 维 导 但 求 4 使 Фіх. - Де) = тіп Q (x, + де) 


ШЫ Фох) -gx) |< е 
| 是 


图 2-5-2 
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аай. 步 长 STEP, MEER: 


С) 
ЖЕСІ 


Ф(ю- DIR #5ТЕР›-Ф (хо) > do 


是 








Ж Е 
是 


Фох, +DIRxSTEP) -Oox)>= dh 









用 二 次 喝 数 极 小 点 作为 社 查 结果 
хоз, STEP- ЭТЕР O o sr ____ 
2*(@., STEP- 2@. + Ф., STEP) 










ЕМЕН ЖӘН ШИН PRE ФКХ) 


图 2-5-3 
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Ф)-2Ф,-Ф 


Жы. WH 表示 Xo Бх, 联 线 方向 
P= X, — Хо, (2-5.15) 


以 x' 表示 沿 此 方向 进行 一 维 寻 查 求 得 的 级 小 点 ， 并 将 2" 作为 下 
ХНА, р. 510]. ИР ЛИЛЯ 25 向 组 
Ри, Ро, vo Рь-\› Pasis s Р. Ро ARD WAE 为 下 次 迭 
代 单 方向 探测 求 极 小 的 方向 。 

5。 重 复 以 上 步 又 ， 直 到 求 得 的 x ”所 的 目标 函数 值 达到 预定 
的 精度 ， 即 前 后 两 次 迭代 的 目标 函数 值 达到 下 式 要 求 为 止 ， 

|Ф(Х7)- Ф(хь | <e. Е (2-5.16) 

图 2-5-2 为 Powell 算法 计算 框图 。 | 

在 Powell 法 中 要 反复 进行 一 维 寻 查 ， 即 沿 某 一 方向 求 极 小 
值 。 为 此 利用 专门 的 子 程序 实现 这 一 算法 。 一 维 寻 查 计算 包括 确 
定 方 负 (DIR) ， 缩 小 极 小 值 所 在 区 间 和 用 二 次 函数 估计 极 小 值 等 
主要 步骤 。 其 计算 框图 如 图 2-5-3 示 。 

利用 Pow ell 
ЖЕНЕ, x 
对 于 二 维 情况 可 由 ' 
图 2-5-4 表 示 。 图 中 
等 值 线 为 目标 函数 
空间 曲面 在 平面 上 
的 投影 ， 变 量 x BU 
ТЯ 
Ж, КАЙ ОЕ 
代 时 所 循 的 方向 。 
整个 寻 查 过 程 由 实 
组 箭头 所 示 。 








.63• 


$26 ”计算 目标 函数 一 阶 导 数 的 方法 


目标 函数 中 (x) 的 一 阶 导数 ， 就 是 函数 的 梯度 ,一 阶 导数 的 最 
优化 问题 的 解法 ,通常 可 以 分 为 两 类 : 一 类 是 直接 用 一 阶 导数 来 
寻找 极 小 点 ,如 梯度 法 、 共 轿 梯度 法 等 , 另 一 类 是 用 一 阶 导 数 矩 阵 
建立 线性 方程 组 ,求解 方程 ， 来 寻找 极 小 点 ， 这 类 如 最 小 二 乘 
法 、 阻 尼 最 小 二 乘法 等 。 


(2% J 法 


梯度 法 又 称 最 速 下 降 法 ， 或 “瞎子 下 山 ” 法 。 其 基本 思想 是 
在 初始 点 жа 附近 找 一 个 下 降 最 快 的 方向 ， 即 负 梯 度 方向 。 沿 负 
梯度 方向 找到 一 个 下 降 最 低 的 点 ， 也 就 是 沿 此 方向 求 单方 向 的 极 
小 点 。 议 这 点 作为 新 区 xo 点 。 继 续 以 上 步 又 进行 寻 查 ， 逐 渐 副 近 
极 小 点 。 | 
将 目标 函数 在 x。 附近 展开 ， 并 略 去 二 次 及 二 次 以 上 高 次 项 ， 


Ф(хо + Ах) = Ф) + уу e ОО] Ax, 
жо 


5%) Ах? 十 … 可 P Ах, 
х, Ха Хо 





= Ф (№) ,2%| Ахі + = 
Ох1 х, Ох? 


(2-6.1) 
н] УРЕ, WERO (mj + Ах) <ç (x). Wi, Ж 
Ф(х,)- (xo + Ах)>0, (2-6,2) 
是 二 者 差别 愈 大 愈 好 。 
”将 (2-6.1) 式 代入 (2-6,2) 式 有 
Ф(х,)- P(xo+ Ах) 


= 一 Pax í + ОФ Ax, + 士 。， + S Ах, ) | 
Әх Ох» Xr . 
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= -(5% 9Ф ... 5%) (Ау, Ах., "tta Ax,) T 
Oxn х, у | ио 





ôx? Ox。” 
= =g (Xo) AXT. (2-6.3) 
ob 0 ob L ey | 
式 中 8 (хо) = (5, _ …， о У RERAN x。 点 的 一 
1 2 һ 


阶 导数 各 分 量 ， 称 为 目标 函数 的 梯度 或 斜 量 。 显 然 , 要 使 (2-6.3) 
式 有 最 大 值 ， 则 应 使 点 积 
-8(X0) Ах = – ligil y 1 Axlcos6 ` (2-5.4) 
有 最 大 信 。 其 中 0 为 g 与 4x 238, ӘЖ, ЯЯӨ-л, ШИН 
寻 查 极 小 值 方向 Ах 与 梯度 方向 g 相反 时 ， 才 能 保证 最 快 下 降 。 
沿 负 梯度 方向 进行 单方 向 一 维 寻 查 ， 求 得 下 降 最 低 的 点 
Xi = Xo - 48. (2-6.5) 
ЮЖ АЛЕКЕ» ЙК ЕХ x, IBRA, Шх 点 负 梯 度 方 
问 寻 查 。 如 此 反复 迭代 ， 直 到 目标 函数 (x) 值 达 到 预定 精度 要 
求 为 止 。 | 
这 种 方法 仅 着 眼 于 初始 点 附近 最 速 下 降 方向 求 极 小 。 从 整体 
来 看 ， 它 可 能 是 迁 回 前 进 的 。 故 收敛 速度 慢 ， 计 算 时间 长 。 但 它 
每 帮 代 一 步 ， 都 能 保证 中 (%) 信 下 降 ， 即 能 确保 收 伍 ， 直 至 达 到 
极 小 点 。 


| (=) 最 小 二 乘法 
对 于 地 球 物理 反 演 问题 。 其 目标 函数 一 般 都 具有 平方 和 形式 


Ф(х) = у y$- yi), (2-6,6) 

i=1 | 

式 中 у; 为 观测 值 ，yi (xX) 为 理论 计算 值 。 当 yia) 为 参数 x 的 

线性 函数 时 ， 可 以 直接 化 为 线性 方 杜 组 求解 。 当 yi (Xx) 为 非 线性 
KAR, HERY (XxX) 在 Xo。( 初 始点 ) 附 近 线 性 展开 ， 
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ухо + Ах) у (хо) + у 9 Ах.» 
j= 


А Әх; |. 
($=1, 2, +з, т). (2-6.7) 
将 上 式 写 为 矩阵 形式 即 为 
У" (Хо + АХ) у(х) + A Ax, (2-6.8) 
式 中 AA 为 微分 系数 矩阵 (或 Jacobi 阵 ) 


ду: дур .. бу{ 
Әхі 0х2 Ох, 





дуз буз _. буз 








А «хп 一 дх1 дх2 Oxn А | (2-6,9) 
дуа ye Oye 
дхі 0x? дх, X = xo. 
而 Ax 称 为 参数 x 的 改正 值 
Ах = (Ax, Ах,» ~; Ах,27 
-(Хі-Х0» Xa ~— Xos с”, х- xo)’. (2-6.10> 


将 (2-6;7) 式 代入 (2-6.6) 式 ， 并 写 为 向 量 形式 ， 得 到 ye(x) 线 性 
化 后 的 目标 函数 估计 值 


Ф(хо+ AX) =C? — ye (az0)) — A AD237( (9 у(х) 
- AAXJ = Ср? -yela )3Try9 — ye (xo )2 
-2(у%-у<(х027 ААХх+ AXTA AAx, 

令 上 式 取 极 小 值 必 要 条 件 ， 利 用 矩阵 微分 公式 有 


3 一 _ Т o. осы Т - 
КАЖ 2 АСУ -У (Х:)2+2А'ААХ 0. 

由 此 得 | 
АТА Ах = ATY? - у(х). (2-6.11) 


令 上 式 右 端 项 用 2 表示 
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8 = АТгу%-у%(жху)2. (2-6.12) 
注意 ， 平 方 和 形式 的 目标 函数 的 梯度 为 
ap (Ф Ф  әфФ\үг 
ox Ox: Âx” * 9х, 











- _ m ду“ о _ Я " оу 090.,с 
у ду (у, y: 06). б, (y; —yi(Xo)), 





” Су; 0 Е r T 0 
оу (00) | = 2AT? - yeto), 
{= 0 
(2-6.13) 
”比较 (2-6.12) 式 及 (2-8.13) 式 ， 故 (2-6.1i) 式 中 的 右 端 项 g 是 目 
ЖЕ ЕНІ ВЕНУ 


:--- ОФ › (2-6„14) 
2 ох 





由 (2-6.11) 式 可 以 求 出 改正 量 (或 增 量 ) 

Ax = (АТА) g. (2-6.15) 
由 此 可 见 ， 最 小 二 乘法 的 校正 方向 为 (A7A)-'g， 而 不 同 于 人 负 梯 
度 方向 。 | 

对 于 实际 问题 ， 当 已 知 观测 数据 和 选 定 初始 模型 xo 后 ， 
Jacobi 矩阵 外 及 右 端 项 g 都 可 以 计算 ， 由 (2-6.15) 式 解 出 Ax， 
从 而 取 | | 

X, =X ДА (2-6.16) 
作为 首次 近似 值 、 然 后 以 xtA, ЖОЖ», 
хз, Xr ңЭ ЕНІН ЖЕЖ? Ф(х.)- Ф(х,-1) 达到 预定 
精度 要 求 为 止 。 

以 上 方法 就 是 Gauss 于 1809 年 提出 的 最 小 二 乘法 (或 Gauss 
法 )。 应 用 最 小 二 习 法 有 时， 要求 方 阵 A7A4 为 非 奇 异 且 正 定 的 矩 
阵 ， 否 则 无 法 区 别 极 大 点 、 极 小 点 与 鞍点 ， 或 者 不 能 求解 。 一 般 
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HK, Gauss 法 与 初 值 xo 的 选取 有 密切 关系 。 如 果 选 择 不 H, 
迭代 往往 失败 。 

为 了 提高 计算 效果 ， 可 以 采用 下 述 一 维 寻 查 的 办 法 。 在 求 出 
改正 量 Ax 后 ， 不 直接 用 x%o + Ax 作为 解 的 第 一 次 近似 ， 而 仅 把 
Ах 当 作 寻 查 方向 。 即 从 xu 点 出 发 ， 沿 Ax 方向 进行 一 维 寻 查 求 
p(x) 的 极 小 值 | 


D(Xo +À АХ) =мтФ(М + ЛАХ), (2-6.17) 
4o 称 为 最 优 步 长 因子 ,我 们 取 
х= хо + № АХ (2-6.18) 
ТУВА. ЖЕНА, W | 
МЕЖ, НА, Ах,, К=1, 2, e ` (2-6.19) 


直到 得 出 满足 精度 要 求 的 解 为 止 。 我 们 称 此 算法 为 广义 最 小 二 乘 
法 。 这 种 改进 的 最 小 二 乘法 ， 在 多 数 情 况 下 可 以 保证 收敛， 但 有 
时 前 进 得 很 慢 ， 很 费 计算 时 间 。 


(=) 阻尼 最 小 二 乘法 (Marquardt Jr ж) 


为 了 改善 Gauss 法 述 代 过 程 发 散 的 问题 ，1944 年 Levenberg 
及 1963 Æ Marquardt 先后 提出 了 改进 办 法 ， 这 就 是 目前 普遍 认 
为 效果 较 好 并 得 到 广泛 运用 的 阻尼 最 小 二 乘法 。 

我 们 知道 ， 用 最 小 二 乘法 进行 迭代 求解 时 收敛 性 很 不 稳定 ， 
易于 造成 发 散 。 对 于 二 次 函数 来 说 ， 最 小 二 乘法 校正 向 量 的 方向 
直接 指向 极 小 点 xX”， 与 最 速 下 降 法 负 梯 度 方向 并 不 一 致 。 当 目 
ЖФ аку, ИАА 
甚至 可 达 80" 一 90" 。 

阻尼 最 小 二 乘法 就 是 在 景 小 二 乘法 与 最 速 下 降 法 之 间 采 取 某 
种 插值 ， 要 求 增 量 Ax 在 保证 目标 函数 (Xx) 在 下 降 的 方向 上 以 
最 大 步 长 前 进 。 它 的 基本 思想 可 描述 如 下 ,在 迭代 的 每 一 步 ,最 好 
尽量 使 用 接近 最 小 二 箭 改 正方 向 ， 以 便 使 校正 向 量 的 步 长 尽 可 能 
他 增 大 。 如 果 这 种 情况 不 能 收敛 时 ， 再 逐渐 改 用 接近 最 速 下 降 法 
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的 负 梯 度 方向 ， 同 时 缩小 校正 步 长 以 保证 收敛 。 为 实现 这 种 想 
法 ， 只 须 将 式 (2-6.11) 中 正规 方程 组 的 系数 矩阵 A7A 和 A 的 对 Яд 
素 适 当 加 大 ， 也 就 是 用 4A7A +У21 ЖАТА 。 这 里 了 是 单位 矩 
RE, + 为 适当 的 正 数 ， 称 为 阻尼 因子 。 这 样 便 可 保证 正规 方程 组 
总 是 非 奇 异 正 定 的 。 于 是 (2-6.11. 原 式 A7A4AA4x =8 就 可 改写 为 
(АТА +v?) Ax = g, (2-6.20) 
校正 向 量 的 解 为 
Ах-(АТАзу У)-і;, (2-6.21) 
由 式 (2-6.21) 不 难看 出 ， 迭代 过 程 中 盟 尼 系数 v 起 着 重大 作 
用 。 当 v=0 时 ， 退 化 为 一 般 最 小 二 乘法 。 当 由 零 渐 逐 增 大 时 ， 
(АТ А+у?1) 的 对 角 元 素 也 随 之 增 大 ， 解 Ax ЖШ ШЕЛ 96 2] 
癌 转 向 最 速 下 降 方 问 8 оу 愈 大 , 愈 接 近 于 最 速 下 降 方向 。 另 一 方 
Ш, , 当 ” 愈 来 愈 大 时 , ЕШ Ax 长 度 也 愈 来 愈 小 ， 以 至 趋 于 零 。 
这 种 情况 下 ， 虽 然 收 敛 很 乙 , 但 总 能 保证 迭代 过 程 稳定 地 进行 。 
EERIE H, HERETER. HTE i KER, Ha 
定 的 阻尼 系数 v: 解 出 的 校正 向 量 为 4Axw:。 如 果 新 解 不 能 使 目标 
函数 下 降 ， 即 出 现 
Ф(х;+ Ах;)>Фф(х;) 
ке, ХАН КІН де. ЭХ], МАНЕЖ, ИЕТ 
算 实践 ,一般 可 增 大 1.5 倍 , 即 取 ， 
У,:1-1,57;, (2-6.22) 
再 代入 式 (2-6,21) 重 新 求解 ,反之 ， 如 第 i КӨН то ЖСК 
К, Е 
Ф (х; + АМО<ФСХ), 
说 明 校 正 步 长 还 可 以 加 大 ， 即 阻尼 系数 vy 还 有 可 能 再 缩小 一 些 。 
在 下 一 次 迭代 中 ， 可 以 把 v 值 再 缩小 一 半 ， 即 
| Vi = 0.5v;, (2-6.23) 
AP у; 的 初 值 可 以 选 在 1 一 10 之 间 。 
与 Gauss ЖИ, 为 了 提高 本 方法 的 计算 效果 ， 往 往 采 用 一 
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维 寻 查 法 进行 修 定 。 
ERB 4x 以 后 ， 并 不 直接 用 它 来 修 定 参 激 x ， 而 是 以 它 作 
为 寻 查 方向 ， 沿 此 方向 进行 一 维 寻 查 求 极 小 点 。 其 具体 作法 如 
下 。 
对 于 一 维 寻 查 函 数 


D(X А, Лх): = тіп (X + AX), 
0 <4 <1 


ЖАҢА =1, ЕНЕ ф(х + Ах), Ж 
| Ф(ху + АХ) <Ф(х,), 

则 认为 新 的 极 小 点 近似 解 X1 = хо + A 已 经 得 到 。 否 则 ， 利 用 
(xo+4AX) 在 14=0，1 上 的 函数 值 Bo КФ, ИЖЛ-0МФ 
对 4 的 导数 下 4(xo) 作 抛物 线 擂 值 。 用 抛物 线 的 极 小 点 坐标 1 IN 
АЖА = Xo +A Ах, 

抛物 线 法 求 极 小 点 坐标 4* 的 计算 公式 推导 如 下 ， 如 图 2-6-1 
示 , 设 目标 函数 自 变量 和 在 5 0,1 ] 区 闻 内 为 二 次 函数 关系 









P(X +AAX) =аб+а1А+а2А°. (2-65.24) 
$ Ф( хо) “(40 (A=0), } (2-6,25) 
Ф (№ + Ах) =а та! таг (4 =1),2 | , 
以 及 P(Xo) = de | 一 Cl。 (2-6.26) 
| ад 人 -0 
-- ғашашншылы т 
3 4. 2 
Ф(х,+ Дх ФфФ'/(ху+А АХ) 
' =41+ 2024 = 0. 
Фо + Ax) ! 可 以 解 出 
I ' 
| * _ 41 
д” 1% 1 А À 2а,” 
` (2-8.27) 
图 2-6-1 击 (2-6.25) 及 (2-8.26) 
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式 不 难得 出 | 
а, = (mo + Ax) — Ф(ХА)- Ф' (ЖХ). (2-6.28) 
将 (2-6.26) 及 (2-6.28) 式 代入 (2-6.27) 式 不 难得 出 
- - Ф” (5%) __ 
2 (mx, + АХ) – P(x) - B'xi)’ 


对 于 平方 和 形式 的 目标 函数 ， 由 (2-6.13) 式 可 导出 以 下 关系 


ум (2-6.29) 


Ф/ (хь) = -2 ув, Ах.. | (2-6.30) 
式 中 5 ;为 目标 图 数 负 梯度 g = ATO? -y (Хх. )2 18}, Ах: 
校正 向 量 Ax 的 各 分 量 。 把 (2-6,30) 代 入 (2-6.29) 式 ， 即 得 


У! 6: Ах; 
i=l 


= 52, (2-63) 
[ес + Ax) – Фо) +2 y g: Ax; | 


i=1 





上 式 就 是 用 抛物 线 法 求 极 小 点 最 优 步 长 的 一 般 公式 。 由 
于 式 中 含 梯度 项 g，， 在 一 阶 导数 计算 中 是 方便 的 。 

= (x +), Ах) <Ф(хо), МАЯ Ж хі = xo 
+A Ax 已 经 得 到 。 如 果 和 目标 函数 还 不 下 降 ， 则 可 利用 下 述 二 分 
法 。 

DARSE, i с Tr HRR (xo + tAX) 是 否 小 于 


ФМ), НЕФ t f b (x, Ах) 二 B(xo) ， 就 取 
新 近似 解 为 X1 = xo +t4xw。 最 多 二 分 7 次 、 若 7 次 之 后 函数 仍 
不 下 降 ， 则 认为 хо BÆ Ф (әс) 的 极 小 值 点 。 

求 出 新 的 近似 解 *: 后 ， 重 复 上 述 步 又 依次 和 欠 代 求 出 xz ‚хз, 
…， 直 到 目标 函数 中 (%) 迭代 前 后 两 次 之 差 满足 预定 精度 要 求 ， 
ШІ Ф(хУ)- 四 (x+A4AxX)<s， 或 修改 量 Ax <ó Е. 
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ЕН -BIAD AARAA, ЖЕР АЕ] Jacobi 
阵 式 (2-6.9) 的 形成 问题。 由 于 理论 计算 值 y'(x) 多数 情况 下 不 
ВЕ НУ) 51 АНА ЫЖ ЖО. НИ, ЖЕН 
直接 微分 形式 进行 计算 。 经 常 采 用 的 是 扰动 法 。 即 给 自 变 量 一 系 
列 微 小 的 变化 ， 利 用 有 限 差 商 格 式 分 别 计 算 Jacobi Ж ир £ ж 
素 。 设 对 自 变量 w 的 扰动 为 
бх = (Óx i, бх., `, дх,Т, (2-6.32) 
ЖУ IRA yE yi, уз, сз, ys 如 何 变化 ， 并 采用 
以 下 有 限 差 商 公式 计算 ， 





ду; (x) — y; (Xi, Xs. U X; + OXi, Xn) 一 yiCX1Xa "+ ,Xiy…Xn) 
Ox Ох; ? 
(1=1, 2, +, т; j=l, 2, ... п). (26.33) 


通常 取 6x; = 6xs = … = 6x, 为 10 -5 或 10-2， 视 具体 情况 而 定 。 
%2-7 ”计算 目标 函数 二 阶 导数 的 方法 


现在 我 们 来 考虑 把 适用 于 平方 和 形式 目标 函数 的 最 小 二 乘法 
的 思想 推广 到 一 般 的 目标 冰 数 上 去 ,以 建立 另 一 类 寻 查 方向 序列 。 
这 类 方法 的 主要 特点 是 利用 目标 函数 的 二 阶 导 数值 ， 或 者 不 直接 
计算 二 阶 导数 而 用 近似 方法 逐步 获得 二 阶 导数 ， 以 得 到 目标 函数 
的 极 小 点 。 以 下 介绍 拟 Newton 法 。 

W Ф(х) 为 一 般 的 目标 函数 ， 具 有 连续 的 一 、 二 阶 偏 导 数 。 
对 给 定点 xi 附近 对 B(x) 作 二 次 Taylor 多 项 式 副 近 
1 


Ф(х) = Ф (ж;) +Ет А +--Ахтб:Ах. (2-7.1) 


ж puvo), 5Н А 点 的 梯度 向 量 (ЯВ), 
С. Ф (х) х: 点 的 二 阶 导数 矩阵 (或 Hesse ЕЕ), 
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Г õp дф p аф 





С Oxi зіл, dxidxs 7 x, Ox 
p бф бф _ Po 
| 0х.0х, Ox 0х, дхз дх. Ох» 
= õp ФФ o 0 PP 
_ Охздх, дхудха (Сх! Әх» Ох, 
аф оф se аф 
9 ӘхлдхА OxnOx» 9дх,9ха дх* ім-ж;. 
对 式 (2-7.1) 求 目标 函数 梯度 
УФХ) Z8: 6; Ах, (2-7.2) 
ЖАУ Ф(х) =0， 于 是 (2-7.2) 式 可 以 简化 为 
| G;Ax = -g8;. 
由 此 得 改正 向 量 | 
Ах--6б-4;;, 22 (2-7.3) 


如 果 B(xX) 本 身 就 是 二 次 函数 ， 那 么 G; Е ТЕН, К 
元 素 为 常量 ， 这 时 (2-7.1) 式 是 准确 的 ， 因 此， 从 任何 一 点 x ; 
出 发 ， 用 公式 (2-7.3) 一 次 使 可 求 得 较 正 量 AxX， 达 到 (x) 的 极 
小 点 2 =җх + Ах, 

щщ p (xe) ЖЕ, (2-7.1) 仅 是 目标 函数 在 x; 点 附近 
的 近似 表达 式 。 由 (2-7.3) 求 得 的 4Ax ， 也 不 能 一 次 达到 极 小 点 。 
ІҢ, ЖИ 


| р.--6-%, (2-7.4) 
为 寻 查 方向 ， 沿 此 方向 作 一 维 寻 查 ， 即 求 1; 使 
Ф(х;+А,р:;) =тіпФ(А:+Ар:). | (2-7.5) 


然后 令 ха = 二 wi tA Pi, KKE, 即 可 得 极 小 点 。 | 
按照 这 种 方式 求 出 函数 四 (x) 极 小 点 的 方法 ， 电 做 Newton 

E, PRAX: 点 的 Newton 方 向 。 如 果 目 标 函 数 虽 (x) 的 二 阶 导 

” 数 便于 计算 。 上 述 方法 的 收敛 速度 是 较 快 的 。 | 
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但 是 ， 由 于 实际 问题 中 计算 目标 函数 的 二 次 导数 相当 复杂 ， 

甚至 是 不 可 能 的 。 另 外 , 在 计算 寻 查 方向 рН РЕС :, 
当 n 较 大 时 ， 计 算 工 作 量 是 很 大 的 。 

| ПЕЗЕТИЗЛИӘЖЯЕ С; 及 其 求 首 问题， 而 设法 构 
9 ЕВН, MEXIKEM C-; ， 我 们 称 这 一 类 方 
法 为 拟 Newton 法 。 | 

为 了 研究 C-: 的 近似 表达 式 于 ;， 先 来 分 析 一 下 这 个 矩阵 和 
斜 量 之 间 的 关系 。 假 定 目标 函数 号 (x) 本 身 就 是 一 个 二 次 函数 ， 
它 的 二 阶 导 数 矩 阵 G 是 一 个 常 矩 阵 。 它 在 xi Kx. 两 点 的 斜 量 
分 别 为 8; 和 gi,1， 据 (2-7,2 ) 式 ， 可 以 导出 下 述 关系 : 


Zira ЕС: - ж), (2-7.6) 
或 者 | 
Xiri (2,1-8). (2-7.7) 
因此 ， 可 以 要 求 C-: 的 i+ ТИЛИНЕН, 满足 关系 ， 
| Н.,,(8:.1-80) SX, (U 10. (2-7.8) 
分 别 令 | 


У: 28:18) 0:5Х;;1- X; 
于 是 式 (2-7. 8) 可 以 简写 为 
H: iyi = О. = (2-7.9) 
这 一 式 子 就 是 近似 矩阵 Н:, .所 应 满足 的 条 件 ， 或 者 说 是 构 
H: 的 基础 。 由 于 公式 中 只 包含 斜 量 (一 阶 导 数 )， 而 不 包含 
二 阶 导 数 ， 计 算是 比较 容易 的 。 
А.р АЕН, 1 阵 的 一 种 计算 式 称 DFP(Davidon-Fletcher- 
Powell) 公式 ， | 
Н;„у=Н +оо [оту;—НууН,/у Ну, (2-7.10) 


由 这 种 公式 进行 寻 查 极 小 点 的 方法 称 DFP 变 尺度 法 ， 其 计 


| 给 定 初始 点 Xo， ЖН, =L, Ар, 一 — Ново, № № 出 发 ， H 
Ро ЛЕ ЗЕЖТА. ТЛ, X 520» ИЯ 


“24, 


ЖЕ g, 

利用 式 (2-7.10)， 计 算出 H, 。 下 一 步 从 x, ВЯ Р, = 
-Hig, 方向 进行 一 维 寻 查 求 极 小 点 X2， 然 后 党 Pz = - Н,82 Ж 
Хз, ее 2 ЖАНА, ЖАГАН ИОН АУАЛЫ РЕ Н,, 
以 及 极 小 点 Xx:。 直 到 满足 给 定 精度 要 求 为 止 。 

ЕЕ ШЖ EH: 还 有 一 个 BFS (Вгоудеп-Еіеісһег- 
Shanno) 公 式 ， 其 表达 式 为 

H, =H, + (0:0:0:— Hiyo; — G y: H,)/Goiyi. 

(2-7.11) 

式 中 | ш-ізуіН;у;/о:у;, 

目前 ， 普 遍 认为 变 尺 度 法 ( 即 拟 Newton 法 ) 的 收敛 速度 各 选 
代 稳 定性 都 是 令 人 满意 的 方法 。 

最 后 ， 我 们 概括 地 讨论 一 下 这 几 种 无 约束 最 全 化 方 污 的 应 用 
情况 。 

根据 对 地 震 学 及 重力 、 地 们 反 演 问题 的 大 量 计算 对 比 。 在 各 
类 常用 的 最 优化 方法 中 ， 以 阻尼 最 小 二 乘法 收 伺 速 度 最 快 。 但 在 
和 迭代 过 程 中 不 如 拟 Newton 法 和 直接 法 稳定 。 拟 Newton 法 (Ш 
括 DFP 和 BFS 公式 ) 的 收敛 速度 仅 次 于 阻尼 最 小 二 乘法 ， 但 迭代 
过 程 稳定 。 特 别 是 反 演 参数 较 多 的 情况 下 ， 它 突出 地 优 于 阻尼 最 
小 二 乘法 。 直 接 法 名 类 方法 一 般 说 来 稳定 性 很 好 ， 但 当 参 数 增多 
时 ,其 收敛 速度 明显 减 乙 ， 要 化 费 犬 量 计算 时 间 。 | 


$28 广义 反 演 线性 方程 组 的 修正 


以 上 各 节 讨 论 线 仁 反 演 的 数值 解 时 ， 都 没有 考虑 到 模型 参数 
或 观测 数据 的 量 纲 ， 也 没有 考虑 到 数据 的 统计 特性 。 实 际 上 ， 我 
们 不 仅 常常 遇 到 待 反 演 的 参数 量 纲 上 有 很 大 差别 ， 而 且 会 遇 到 不 
统一 的 ， 不 独立 的 和 木 精确 的 数据 的 反 演 问题 。 | 

.这 时 ， 如 果 仍 按照 线性 方程 组 Ax = b 直接 用 广义 逆 或 最 优 
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化 方法 去 作 反 演 计算 , 则 一 般 得 不 到 良好 结果 。 为 此 ， 必 须 对 线 
性 方程 组 进行 修正 ， 以 使 方程 组 规 一 化 。 规 一 化 主要 有 以 下 途径 。 

(1) 用 一 个 mxm НЕС EREA 和 向 量 5， 这 相当 于 对 
观测 数据 进行 规 一 化 。 | 

(2) 用 一 个 nxn ЖЕ ЕЖ ЖЕ A， 这 相当 于 对 参数 x 进 
行规 一 化 。 | 

(3) 恋人 矩阵 和 A 的 每 一 主 对 角 元 素 上 加 上 一 个 数 ， 这 相当 于 阻 
尼 最 小 二 乘法 。 

下 面 分 别 讨论 这 几 种 修正 办 法 。 


(一 ) ЯСЕЖА Zb 


这 种 运算 可 用 来 改变 对 各 残 差分 量 的 权重 。 设 线性 方程 组 的 
残 差 向 量 为 | | 


E=b- Ах. (2-8.1) | 
&- 3225 5341 Л, 
eTe = (Ó— Ax)T(b- Ах) = тіп. (2-8,2) 
3 T 37-08 є ЖЕМЕ, ЯЛТЕ 
| W = СТС, (2-8.3) 
对 残 差 平 方 和 进行 变换 ， 即 求 
ЕТІРЕ - тіп, | (2-8.4) 
这 相当 于 计算 | 
(5- Ах)ТбТЄ(Ь— Ах) = тіп, (2-8.5) 
HEZ, ЖУРН GERARD, 
(Gb- GAxX)T(Gb- GAx) =min. | (2-8.6) 


最 常见 的 一 种 情况 是 取 权 系数 和 抢 阵 GARAE 形式 ， A 
此 有 | | 


IIGs|| = > giie? =} Wii8:。 (2-8.7) 
іш1 | j=l | 
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(2-8. АИНУ РН Ax = Бру ТЕК 
权 系 数 |gii|， 或 Ww; i o 这 样 就 使 得 第 i 个 残 差 分 量 | ;| 的 作用 相 
对 变 小 。 因 而 ， 若 其 些 观测 数据 b. 有 较 高 的 精度 (误差 较 小 ), М] 
我 们 对 第 ;个 方程 引入 较 大 的 权 系 数 。 最 方便 的 是 取 权 系数 为 观 
测 值 标准 误差 o, 的 倒数 ， 


gii= ° | (2-8.8а) | 





或 Wiji = | (2-8.ВЬ) 


用 这 种 加 权 的 最 小 二 乘法 对 观测 值 进行 规 一 化 运算 ， 可 使 规 
一 化 后 的 向 量 6 的 各 分 量 
ТЫСТЫ, (2-8,9) 
都 具有 单位 标准 差 ， 即 


од. = 1. 
5; 


更 一 般 地 ， 如 果 我 们 有 关于 5 的 误差 更 为 充分 的 统计 信息 ， 
ЕП ДИ 5 的 不 同 分 量 闻 误差 的 相关 性 。 则 可 以 将 观测 值 的 协 方差 
矩阵 C 写 出 来 。 对 mxm 正 定 对 称 的 协 方差 矩阵 C 进行 Cholesky 分 
解 , 以 获得 下 三 角 和 矩阵 fF， 使 满足 


С = БЕТ, (2-8.10) 
ТЕЛИ ЖЕСІ 以 定义 为 
G=F-1, (2-8.11) 


(=) МЕЖЖААЯ#& ШЖ Х-ЕХ + г 
РЕ Ахсан ЖИН. 


Ах= b (2-8.12> 
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А = АЕ, | (2-8,13) 
b =b- АЕ, (2-8.14) 


х= Ex +ë, (2-8,15) 
其 中 E 为 nxn 阶 矩阵 ，E 为 与 x 的 同 维 向 量 。 若 进一步 将 E 定 义 为 
对 角 和 矩阵 ， 变 换 (2-8.13) 实 际 上 将 是 对 入 的 列 向 量 作 加 权 乘 积 运 
Ж, НАНА ЛЯ ЕЕ 某 一 对 应 的 主 对 角 元 素 。、 
车 为 nxn 阶 非 奇 异 和 矩阵， 这 种 变换 在 数学 上 并 不 改变 问 


题 的 实质 。 换 句 话说 ， 由 残 差 范 数 | 5 - Ах j 极 小 而 得 到 的 一 组 
解 x = Ex + 与 使 5 一 Axil 极 小 的 一 组 解 x 是 类 似 的 。 

RT, БЕЗЕ ЕЖЕН, ЖЕ 后 入 的 条 件数 一 般 与 A 是 
不 同 的 。 这 将 会 引起 衡量 解 向 量 的 “大 小 ” 即 范 数 ||xll 的 改变 。 
因此 ， 取 不 同 的 变换 矩阵 瑟 ， 就 会 导致 不 同 的 解 向 量 以 供 选择 
“最 得 长 度 ” 解 。 在 问题 АХЕБ 中 的 景 小 长 度 解 是 使 ас 取 极 


小 的 解 ， 而 在 变换 后 方程 组 AX = sb 的 最 小 长 度 解 是 使 |x [Еф 
МАЈЕ, ХЕКЕ ГО Е (х Б) АЈ ДУ) Ж lx Л. 
对 矩阵 BE 的 选择 是 基于 解 向 量 x 的 先 验 知识 。 设 % 与 已 知 向 是 
很 接近 ( 称 жас 的 先 验 期 望 值 )。 再 设 已 知道 的 估计 值 &; 的 先 
验 标准 偏差 为 0;， 于 是 可 以 取 为 nx nME, 其 对 角 元 素 
为 . 
6:0), | | (2-8.16) 


于 是 ， 经 过 变换 参数 x 的 每 一 分 量 为 


| — _х;-Ё; 
X . = | 2 7 
Е о; ә (2 8.17) 


它 是 一 个 具有 单位 先 验 标准 误差 和 期 望 信 为 零 的 随机 变量。 这 
， 样 ， 就 将 参数 规 一 化 了 。 用 这 种 规 一 化 的 参数 进行 计算 ， 就 可 求 


得 最 小 范 数 解 lz | 
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如 果 事 前 不 知道 关于 ЕНЕ, ШИШЕГЕ ЕЕ A KIA 
的 欧 氏 模 作为 权 系数 。 即 


Фа. -: + |. | . 
ёз: = ІШ d Ан la; 120; (2-8,18) 
| 1 Жа: | = 0. 


Жара, ЖНА ТИЈ E, 
为 了 求 得 最 小 范 数 最 小 二 乘 解 ， 可 以 把 用 @G ERARE 有 
乘 久 两 种 变换 结合 起 来 ， 对 方 穆 组 4Ax 同时 进行 修整 。 


(=) 加 阻尼 因子 
对 于 任意 线性 方程 组 AX 实 b 的 广义 道 解 为 (用 奇异 值 分 解 ) 
x= VS-!UTBb, (2-8.19) 


显然 ， 解 向 量 x 的 某 一 分 量 x 直接 与 对 角 和 矩阵 5S-! 的 因子 1/S i 
有 关 。 当 某 个 本 征 值 Si 一 0 时 ， 解 分 量 x; 便 可 能 出 现 发 散 情况 。 
如 图 2-8-1 所 示 。 为 了 克服 这 种 困难 ， 可 以 采用 Levenberg 
(1944) 及 Marquardt (1963) 等 人 提出 的 加 阻尼 因子 的 方法 。 即 在 
对 角 和 矩阵 S-! 每 一 项 加 一 阻尼 系数 ， 即 使 5;->0， 也 不 致 发 散 。 
经 过 修改 后 的 对 角 和 矩阵 为 


Sı 
| S? +y? 
| 52 
| _ 52 _ 
(S2+y2D-1S=| 52%у% 
| ‚ 
| S? + у? 
(2-8.20) 
于 是 解 向 量 О | | 
х= 72 (52 +21) -1530Т6. (2-8.21) 


由 阻尼 最 小 二 乘法 建立 的 计算 公式 性 质 如 下 ， 当 某 一 本 征 值 
| .79. 


2 5-0 НУ, 解 的 某 一 分 量 x 

| 亦 趋 于 零 。 这 就 保证 了 那些 

ЕЕТТҮРГІ 不 提供 信息 的 方向 上 的 本 征 

谱 画 数 S,/(S:+y2) 趋 于 
=, 











ы шел жи Wiggins (1972) 曾经 用 
“asa 突然 截断 本 征 值 的 办 法 来 克 
Бл ш ” 服 经 典 最 小 二 乘法 的 发 散 问 
2-8-1 _ 题 ( 参 见 图 2-8-1)。 他 考察 


本 征 值 很 小 时 的 本 征 谱 ， 建 
立 截断 本 征 详 ， 可 以 获得 与 阻尼 最 小 二 乘法 类 似 的 结果 。 


52-9 ЖЕР. ЕЕЕ 


用 广义 逆 进 行 地球 物 理 反 演 计算 时 ， 可 以 根据 反 演 过 程 所 用 
到 的 参数 及 盾 阵 ， 计 算 几 个 重要 的 补充 信息 ， 即 分 辩 矩 阵 ， 信 息 
矩阵 及 协 方差 矩阵 。 这 些 信息 对 评价 反 演 结果 有 重要 意义。 以 
”后 ，Crosson(1976) 又 把 这 些 计算 推广 到 阻尼 最 小 二 乘法 中 去 。 
按照 广义 道理 论 ， 对 于 任意 A... 矩阵 构成 的 线性 方程 组 


АХ РЕ РДА (2-9.1) 
总 可 以 找到 一 个 广义 道 算 于 ( 按 Moore-Penrose 定 义 》 | 

HWH... = А* „хт. (2-9.2) 
使 得 反 演 计算 的 解 向 量 为 

X = НЬ. 2222 (2-9,3) 


ШЖ ЖЮ БЕ Н 满足 下 列 三 个 准则 ， 则 它 是 一 个 令 人 满意 
的 道 阵 。 或 者 说 ， 能 得 到 良好 的 反 演 结果 。 

准则 1 АН=Г,, FWh I, 为 m 阶 单位 矩阵 。 如 果 有 АН 
=I,, НЯ D 
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| — T .. .. . . . i | 一 一 一 一 一 一 一 一 一 -一 一 一 一 rr 一 -一 


АНЬ=1,Ь =, | | (2-9.4) 

№: (2-9, .3) 式 代入 (2- -9.4) 式 ， 得 到 Е 
| АХ =b, (2-9,5) 
这 表明 由 模型 参量 的 反 演 计算 值 Xx 所 计算 的 理论 数据 与 实际 
观测 数据 5 拟 合 得 很 好 。 因 而 A 与 单位 矩阵 I; 的 接近 程度 是 

理论 计算 值 与 观测 值 拟 合 好 坏 的 一 种 衡量 。 

”准则 2 НА=Ё, 其 中 了 工 为 n 阶 单位 矩阵 。 MARERA, 
= І,, 出 两 端 右 乘 % 得 


НАХ =Гх=х. | (2-9,6) 
НАХ =b, WERI ASA 
Hb = х. 
又 据 (2 一 9.3) 式 ， 上 式 可 以 写 为 
X =x, (2-9.7) 


这 表明 ， 由 反 演 计算 得 到 的 参数 2 与 “ 真 解 ”x 完 全 一 致 。 
由 于 这 时 只 存在 一 个 解 ， 故 豆 A SARER I 的 接近 程度 是 解 
的 唯一 的 一 种 衡量 。 
准则 3 反 演 计算 值 X 的 方差 Var(x ) 很 小 。 对 于 统计 上 
独立 的 观测 数据 ， 计 算 值 2 的 方差 与 观测 值 5 的 方差 的 关系 为 
Var( ха) = уу А: Мат). (2-9.8) 
i=l 
式 中 ha: 为 广义 着 矩阵 五 的 元 素 。 准 则 3 是 衡量 反 演 计算 参 Ж 
x 精度 的 标志 。 方 差 Var(X ) 愈 大 , 反 演 结果 的 误差 愈 大 。 
由 这 些 准 则 ， 可 以 引出 以 下 几 个 重要 概念 。 
(一 ) 分 ж E É 
由 式 (2-9.3) 及 5 = AX 可 以 得 到 
.81。 


$ -нь-НАх. (2-9,9) 
定义 R 二 下 A 为 分 辨 (Resolution) 窍 阵 。 故 上 式 可 写 为 
х = Кх, | (2-9.10) ` 
- WETE, ЖЕБЕ EE “АН” x 映射 到 反 演 
HX 的 一 个 算 子 。% 的 任 一 个 元 素 X ， 可 以 解释 为 分 辨 抵 
АН НЯ” ХК. 
换言之 ,，R 是 联系 “ 真 解 ” 与 计算 А 之 间 的 滤波 器 或 
“窗口 ”函数 。R 矩阵 的 每 一 行 相当 于 一 个 “窗口 ” 。 通 过 这 个 
“窗口 ”可 以 将 “ 真 解 ” x 变换 为 计算 解 X 。 例 如 ， 反 演 计算 解 
的 第 k 个 元 素 x;。 就 是 通过 第 上 个 “窗口 ” CR 矩阵 的 第 K 行 ) 对 
“Қ” x 各 元 素 的 一 次 过 涉 结 果 。 或 者 说 是 围绕 xx 相 邻 各 点 
«ЗИН? РНИ, 图 2-9-1 是 地 球 物理 反 演 计 算 的 几 种 分 辨 
”矩阵 形式 。 显 然 ， 每 一 
行 主峰 值 傅 尖锐， 则 分 
же, EZAR. 
(d) 的 分 辩 率 较 高 。 = 
按照 准则 2 可 知 ， 
若 分 辨 矩阵 R E 21% $E 
ші, Me =x, ЖШ 


C 盟 反 演 计算 解 % 5 “N 
解 ” x 是 一 致 的 , 即 反 演 
是 唯一 的 。 这 种 情况 我 
们 称 为 完全 分 辨 。 如 果 
R 近似 于 一 个 对 角 阵 ， 
则 它 是 近似 分 辨 的 。 车 








“82, 


R ABB А, 则 分 辨 率 愈 差 。 这 时 ,每 一 计算 解 的 元 素 


x ;实际 上 是 “ 真 解 2xx 附 近 几 个 元 素 的 加 权 和 ,xx 与 xx 相差 较 大 。 
下 面 来 讨论 分 辨 矩阵 的 计算 方法 。 
对 于 一 般 情况 ， 可 对 任意 矩阵 A 作 奇异 值 分 解 
А = USVT_ 
ШЕЛДОН 
H= At=VS-1UT, 
故 分 辨 矩阵 
К-НА-Р8-10705үт-Иу”, (2-9.11) 


КАИ R D S РУМИ ИЙ ЧИЕ ЖЕ Н И УЖ, d 
ЯР Е ГЕЖЬЫ ЖЕЛЕ, ЕНЕР ВН ЖИ А Z SEP AE 
у. | 

对 于 地 球 物理 反 演 中 最 经 常 出 现 的 超 定 方程 组 ， 即 对 列 满 秩 
Ellr = n<m), HPE NEREA REA AA Қ НХ 77 

Н=А*=(АГА)-! АТ, | © (2-9.12> 
故 | | 
Е =НА = (АТА)! АГА = L. (2-9.13) 

ВН Ja В B ЖЕ, РАНЫ, ЖЕ 
反 演 是 完全 分 辨 的 ， 或 者 反 演 具有 了 叭 一 性 。 | 

车 采用 阻尼 最 小 二 乘法 进行 反 演 。 对 于 和 A 的 奇异 值 分 解 式 ， 


分 辨 矩阵 的 计算 公式 为 | 
В = 7С($? + у2Г)-1523 ИТ, (2-9.14) 
对 于 列 满 秩 和 矩阵， 分 辨 矩阵 的 计算 公元 为 
В = (АТА +) АТА, (2-9.15) 
以 上 二 式 中 的 ?为 阻尼 因子 。 | 


(=) % Е Æ È 
3 5] (2-9.3 ЗАД ERA fF 
. 33. 


АХ = АНЬ, | (2-9.16) 
令 其 左 端 Ax =b, Бато “яла” HEZ, 它 是 
由 模型 计算 的 理论 值 。 | 
定义 АН = 5 (2-9,17 ) 
为 信息 矩阵 或 信息 密度 (Information desity) 和 矩阵 。 于 是 (2-6。 
16) 式 可 重 写 为 


$ = Sh. (2-9.18) 
由 上 式 不 难看 出 ， 5 是 将 实际 观测 值 b 变换 为 理论 计算 值 


6 的 算 子 。b ,是 信息 M PE S 的 第 行 元 素 与 观测 数据 5 的 各 元 
素 的 一 个 褐 积 。 信 息 和 矩阵 9 是 观测 数据 独立 性 的 一 种 衡量 。S 5 
单位 矩阵 1, 愈 接近 ， 说 明 数据 之 间 的 独立 性 依 强 ， 也 就 是 计 算 


值 台 ;只 与 观测 信 bs 有 关 ， 而 与 bx 邻近 的 其 它 值 无 关 。 反 之 ， 


# S 偏离 单位 矩阵 ， 则 第 k 个 计算 的 理论 值 5 不 仅 与 观测 值 os 有 
关 ， 还 和 bx 邻近 观测 值 有 关 ， 其 独立 性 较 差 。 从 准则 1 АН-1, 
来 看 ， 信 息 和 矩阵 8 实际 上 表示 了 计算 值 5 与 实测 值 5 的 符合 程 
к, БИ, ИЕН Миа Нин 
信息 矩阵 $ 的 对 角 元 素 Si， 的 大 小 是 权衡 反 演 计算 时 第 ;个 观 
WIE b: 重要 性 的 标志 。 因 此 ， 计 算出 信息 矩阵 8 又 可 以 确定 Ж 
些 观测 值 是 重要 的 ， 那 些 是 不 重要 的 甚至 是 可 以 扔 略 的 。 这 说 明 
信息 矩阵 S 还 可 以 指导 实际 观测 ， 帮 助 我 们 减少 不 重要 的 数据 的 
观测 ;提高 重要 数据 的 观测 精度 。 图 2-9-2 为 信息 得 阵 的 计算 BI 
子 。 | | Е 

ТНА НН ЯН. УЖ, ЖЕ 
任意 人 A 矩阵 进行 奇异 值 分 解 

А =USVT, Н-И8-107, 


«Де 


Е ЕЕ 
S= АН 
= USVrVS-1UT 
=UUT, (2-9.19) 
ЕЖ 8, RAE 
阵 S 只 与 正 交 和 矩阵 有 
关 。 换 言 之 ， 奇 异 值 分 
解 中 的 正 交 矩阵 加 决定 
了 观测 数据 独立 性 的 信 
ВЕ S, И, ЖЕЕ 
0 中 的 向 量 称 为 观测 数 一 Æ 2-9-2 
据 的 特征 向 量 。 
对 于 在 地 球 物理 反 演 问题 中 常见 的 列 满 秩 矩 了 泗 ， 其 最 小 二 乘 
解 的 信息 和 矩阵 为 
5=А(АТА)-' А7. (2-9.20) 
堵 用 阻尼 最 小 二 箭 法 ， 由 奇异 值 分 解 的 计算 公式 得 到 的 信息 
ЖЕ ЕУ 





5-(282(82--у21)- 11077, (2-9.21> 
ХЕРНЯ, 阻尼 最 小 二 乘法 的 信息 矩阵 计算 公元 为 
S= АСАТА-у21):! АГ. | (2-9.22) ` 
(=) 协 方差 矩阵 


出 于 反 溃 计算 的 解答 仿 是 多 维 随机 变量 ， 因 此 ， 我 们 不 仅 要 
考虑 其 中 一 个 随机 变 Et 的 方差 。 而 且 要 考虑 各 随机 机 变量 之 间 
的 相互 关系 ， 即 协 方 差 。 例 如 ,对 于 两 个 随机 变量 x; 及 xs， 其 协 
方差 矩阵 可 以 写 为 


сх) «Ген c12] Е (29.23) 
C21 С22-. 
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Ж лж Л 
Ci;= Е{х;:х,- В (x )2), i j=l, 2. (2-9,2!) 


式 中 下 表示 求 数学 期 望 。 
对 于 ?个 变量 的 情况 ， 协 方差 矩阵 的 计算 公式 如 下 
C(xX = Е((х- к(хухх- Е(Х ))7]， 222 (2-9.25) 


N N AN N 
RPX -(хі, Xas s Xn). 
EEDA ЗЕ НЕЕ pA nR Б 529 
Ci,= E{xix,— EC х;)2}, 
і, j=1, 2, +, п. (2-9.26) 
写成 矩阵 为 | 
Var (х,) Соу (х, X2) Cov( хі, хз) *-- Cov( Xi Xn) | 


^^ ғ AN ғ >” ` ем 
Соу ( x2, х1) Var( х) Соу( х, Xs) Соу( Xay Xn) 





<= Соу (хз, хі) Cov( ха» ха) Var( ха) --- Соу( xs, х,) | 
Соу (ж Ах.) Cov( Xn, х.) Cov( хх.) Мат (x ы, 
с. (2-9.27) 
其 中 主 对 角 线 多 元 素 为 方差 
Уа; (у= E(x? -E (х 2), | 
而 其 余 各 元 素 为 协 方差 


| Cov ( x ;, ХУ-Е(х;-ЕСХ 102). 
#(2-9.3 e A02—9.25)K, WOZ ERR USA 
СХ ) = Е((НЬ- B(Hb)y(Hb- Е(НЬ)) T) 

= НЕ{(Ь- E(b))(b- Е(Б))Т} НТ 
= HC(b) HT, . (2-9,28) 


.85. 





上 式 说 明 ， 反 演 计算 参数 % 的 协 方差 矩阵 C (Ç )5 取 决 于 观 
测 值 5 的 协 方差 矩阵 C(5) 。 如 果 观 测 数据 b 中 的 分 量 b. 是 彼此 独 
立 的 ， 且 是 均值 为 零 、 方 盖 为 0? 的 随机 变量 。 那 А, (2-9.28) 
中 将 协 方差 矩阵 C(8) 中 各 交叉 项 为 零 ， 只 存在 主 对 角 线 各 方 Ж 
项 ci ， 故 上 式 可 简化 为 


C (Хх )= о*ННТ, (29.29) 
观测 值 方差 о 可 用 下 列 无 偏 估计 式 计 算 ， 
os Pani, (2-9.30) 
mH И 


式 中 中 io 为 (观测 值 与 理论 值 ) 残 差 平方 和 的 极 小 值 (或 目标 函数 
极 小 值 )， 可 用 下 式 计 算 ， | 


Фшаз (Ë — АХ 70 - АХ). | 22 (2-9:31) 


下 面 讨论 协 方差 矩阵 C (Xx ) 的 计算 公式 。 利用 奇异 值 分 解 定 
ЯН, ЈУН = VS- 7 ， 故 其 最 小 二 乘 解 的 协 方差 矩阵 为 


CX )=otHHr- otVS-tUTUS-tVr 


=0%Ё//5-?%ЁТ, (2-9.32) 
对 于 阻尼 最 小 二 乘法 ， 则 协 方差 矩阵 的 计算 公式 为 
С (х) = 011 (57 + v1)-2S2} рт, (2-9-33) ` 


ЖУЖАН , А ВЕТ 
CX )=os( АТА)-1 АТАСАТА)-1=0*( АТА)-1, 
(2-9.34) 
ИНВЕЛСИЕН ЕК ЕЕ АҚ 

С (х) - 0% АТА +D АТА(АТА жу), 
(2-9+35) 

УНЫНИЕ C( х ) 后 ， 其 主 对 角 线 元 素 就 是 各 相 应 

反 演 参数 的 方差 
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Var( Xs)= Ces k=1,2,- (2-9.36) 

最 后 ， 我 们 考虑 在 диж аиа RI 

Ж (Тғайе-ої}) 的 问题 。 显 然 ， 我 们 希望 由 反 演 计算 得 到 的 参数 

的 误差 愈 小 傅 好 。 但 参数 误差 小 会 引起 另 一 个 问题 ， 即 反 演 结果 
是 不 稳定 的 (唯一 性 其)。 这 可 由 下 人 列 推导 看 出 。 


ш‹2-9.36 得 知 ， 某 一 反 演 参 数 的 方差 正 是 式 (2-9.32) 协 方 





n . 2 
o? -С,,-о? > (шы ) ‚К= Ty 2 也。 (2-9.37) 


k 


ВЖЕ НЕЕ R= 7 的 元 素 。 当 分 辨 算 阵 


尺 为 单位 阵 时 ,参数 方差 0 ,有 极 大 值 ， 反 之 。 当 分 辨 矩阵 及 与 


单位 隆 相 差 较 大 时 ， o 人, 的 信 较 小 。 这 表明 ， 对 于 给 定 的 观测 误 
差 we， 分辨 率 与 反 演 参量 的 误差 d? ,是 矛盾 的 。 分 辩 率 高 ， 则 反 演 
参量 误差 较 大 ， 分 辨 率 低 ， 则 反 溃 参量 误差 较 小 。 要 使 肥 演 参量 
在 精度 和 唯一 性 方面 都 得 到 照顾 ， 必 须 在 二 者 问 采取 一 种 折 豆 方 


| | | | 4 RA % ` gs 
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Жа ”约束 条 件 下 反 演 问题 的 数值 解法 


在 第 一 章 里 ， 我 们 已 指出 反 演 的 不 唯一 性 的 根本 原因 在 于 信 
息 不 足 及 存在 于 扰 。 用 无 约束 反 演 计算 方法 ,往往 收敛 于 局 部 极 小 
值 。 因 此 ， 要 取得 较 合理 药 反 演 结果 ， 除 了 提高 观测 质量 和 计算 
精度 ， 以 增强 信息 分 辩 能 力 外 。 最 重要 的 是 将 先 验 的 或 已 知 的 地 
质 和 地 球 物理 资料 补充 进来 ， 作 为 反 演 计算 的 约束 条 件 。 

这 一 章 ， 我 们 将 讨论 约束 条 件 下 反 演 问题 的 几 种 算法 。 第 一 
种 是 直接 处 理 约 束 条 件 的 算法 ;第 二 种 是 解约 束 条 件 下 的 最 小 二 
乘 问题 第 三 种 是 把 约束 最 优化 问题 化 为 王 系列 无 约束 最 优化 问 
题 求 解 。 由 于 篇 幅 有 限 。 我 们 只 能 介绍 几 种 基本 的 和 广泛 使 用 的 
算法 及 计算 机 程序 。 更 多 的 方法 可 参见 线性 或 非 线性 规划 有 关 专 
ж. 


$ 3-1 直接 处 理 约束 条 件 的 逐次 归 位 算法 


逐次 归 位 法 是 一 种 直接 处 理 约束 条 件 的 算法 , 简便 易 行 。 其 基 
本 想法 是 把 求 目标 函数 极 小 以 及 将 参数 归 位 到 约束 域 。 以 上 分 为 
两 个 步骤 进行 ， 即 先 用 无 约束 最 优化 方法 求 函数 极 小 点 ， 接 着 检 
查 极 小 点 是 否 在 约 东 域内 ， 如 果 出 界 则 应 进行 归 位 计算 。 下 面 讨 
论 具 体 算法 。 


从 满足 等 式 及 不 等 式 条 件 
&;(%)=0, i=1,2,---, pt (3-151) 
h; (Xx)<0, j=1,2,.…,g 


的 某 一 初始 点 xo。 出 发 ， 用 某 种 最 优化 算法 没 给 定 方向 了 进行 一 
维 寻 查 ， 即 求 | | 


. 89. 


Ф(ха + МР) =min D(X, + Ар). (3-1,2» 
НГ | 
X = X +P. (3-1,3) 
由 于 在 作 一 维 寻 查 时 , ӨЗЕНІН ФС) АГАРУ 
到 最 大 下 隆 ， 但 并 不 能 保证 Xo 满足 约 东 条 件 ， 所 以 紧 接 着 必须 
检验 是 否 符合 约束 条 件 。 
Kr, 代入 式 (3-1.1) ， 若 满足 约束 条 Е, ПАНА E 约 
束 可 行 域内 。 下 一 次 寻 碍 的 起 始点 取 X,。 
车 Xx， RAR (3-1.1) 不 满足 约 东 条 件 ， 则 说 明 新 点 x 1 已 超 
出 约束 可 行 域 ， 应 作 归 位 计算 。 00 
归 位 计算 的 任务 是 使 X ,重新 回 到 约束 条 件 的 可 行 域内 。 也 就 
ЕЛИ, Е ЛЕНИЕ, ФНО h 


х, =X, + Ax, | (3-1,4) 
满足 关系 式 (3-1.1) АХ, ЯНИЕ. 下 面 讨论 怎样 求 归 
位 校正 量 4x , 。 


归 位 校正 量 一 方面 是 使 归 位 后 的 点 Xx, 既 在 约束 条 件 的 可 行 
域内 , 文 使 且 标 函数 值 进一步 减 小 或 至 少 不 增 大 。 因 此 ， Пя 
是 使 归 位 点 尽 可 能 人 靠近 寻 查 点 ， 即 归 校 正 量 总 是 取 得 尽量 小 
CminllA%, 心 ， 使 满足 约束 条 件 


g (%, + Ax, ) = 0, ГЕ, тәр, 


| | _ (3-1.5) 
h; (x, + дх,)<0, 1 =1,2,·· ‚а. | 


者 5 及 Pi 为 线性 函数 ， ДЈ (3-1. 5) 式 中 一 次 可 求 得 校正 量 
AX,。 若 gi 及 hj 为 非 线性 函数 , 则 可 在 X 4 点 附近 使 6; 及 hi 线性 化 ， 
用 迭代 法 逐次 解 出 校正 量 Ax , 。 然后 取 适 合 关系 式 (3-1.5) Ж 
正 量 最 小 值 minl| АХ, I 为 实际 校正 量 。 


.经 过 归 位 校正 后 的 点 xi, 就 作为 下 一 次 迭代 的 起 点 ， 继 续 进 
Фк. 。 在 整个 迭代 过 程 中 ， 反 复 交替 使 用 求 目标 函数 极 小 点 和 
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归 位 两 种 运算 ， 直 到 目标 函数 @(x) 达 到 预定 的 限 差 ， 或 待 求 参 
数 的 修改 量 小 到 某 一 预定 值 ， 则 反 演 计算 完成 。 

直接 处 理 约束 条 件 的 归 位 算法 的 程序 设计 简单 ， 只 须 在 任何 

一 种 无 约束 最 优化 或 广义 道 算法 中 加 上 因 位 校正 子 程序 ， 就 能 达 

到 目的 。 实 际 使 用 表明 ， 其 收敛 速度 及 反 演 效果 是 良好 的 。 具 体 
应 用 及 计算 机 程序 可 参看 第 八 章 面 波 反 演 部 分 。 


53-2 ”约束 条 件 下 最 小 二 乘 问题 解法 


O DRR FERRED ERAN =b 的 最 小 二 乘 解 称 为 约束 
最 小 二 乘 问题 CLS(Constrained Least-Squares Problem), 
”根据 约束 条 件 的 性 质 ， 又 分 为 线性 等 式 约束 最 小 二 乘 问题 LSE 
(Linear Equality Constrained Least-Squares Problem) 
НЕ Жа 2 ЖЯ ^ — № М М LSI(Linear Inequality 

Constrained Least-Squares Problem), 
等 式 约 束 最 小 二 乘 间 题 LSE 的 建立 : 给 定 一 个 秩 А ki та 
х п РЕС 及 mi 维 向 量 4， 一 个 ms хп ЕЖ ma ЖЗ, Ж 


所 有 的 n 维 向 晤 x 在 满足 约束 条 件 
Сх -а (3-2,1) 
的 情况 下 寻求 
Ех — f | (3-2.2) 
的 极 小 佳 值 。 


| 当 且 仅 当 (3-2.1) 式 独立 时 ， LSE 问 题 有 解 。 我 们 将 假定 (33 
2 .1) 式 是 相 容 的 。 对 于 实际 问题 来 阅 ， 若 满足 nan>mi =k, 的 条 
件 。 我 们 就 确信 (3-2.1) 式 是 独立 的 ， 且 存在 一 个 以 上 的 解 。 


若 LSE 问 题 的 解 存在 ， 则 增 广 矩阵 [和 | 的 秩 为 n 时 有 唯一 解 ， 
这 是 一 个 最 小 二 乘 最 小 范 数 解 。 下 面 介绍 两 种 解法 。 
.9]° 


第 一 种 是 基于 对 增 广 矩 阵 | | 进行 正 交 变换 的 零 空间 正 交 基 


方法 。 
车 约束 矩阵 的 正 交 分 解 为 
| С-НЕКТ, (3-2.3) 
БІЖЕалк(С)-к,, Нк, <и, WEZ EREK UDA — J: 
К-(К,, К))и. (3-2.4) 
i К, пк, 
于 是 解 向 量 可 以 写 为 
x =С*4+Клу». (3-2,5) 


式 中 ys 为 范围 遍及 全 部 n-k1 维 向 量 空间 的 任意 向 量 。 

定理 ” 设 等 式 约束 方程 组 CX =d, WEA Ex -fi 最 小 的 
解 为 
| х=С*4+ (Е?) f - EC'a). ` (3-2.6) 
жін 2-1,-С%, 

式 (3- -2 .6) 也 可 以 等 价 地 表达 为 | 

х =C'd+ K;(EK,)*( f- EC+d)， (3-2.7)- 
式 中 矩阵 K2 由 (3-2.4) 定 义 。 | 


当 且 仅 当 方程 组 Cx = авазга [к] оо пв, ie 
LSE 问题 的 解 向 量 x 是 唯一 的 。 


， 下面 根 据 (3-2.7) 式 讨论 计算 方法 。 我 们 假定 C 矩阵 为 行 满 


ЖЖ, Bl Rank(C) =k, =m, ， 这 一 条 件 对 大 多 数 实际 问题 是 
合理 的 。 根据 第 二 章 叙 述 的 QR 分 解 定理 ，(3-2.3) 式 中 的 正 交 
ЖЕН рй МАЕ. КУ nx n EXE Е, КЖС 
时 ， C 将 变换 为 下 三 角 年 阵 。 于 是 得 


[Е]к-[ к ка 
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rana 














СК, СК, |)т, (С, O |}, 
一 = АС А (3-2,8) 
ЕК, EK; ) )т. Е, Е; Іт, 
т n-m о т n-m 
式 中 C 是非 奇异 mi Xm 下 三 角 阵 。 
解 下 列 线性 方程 组 
| С, у =d, (3-2-9) 
得 mi 维 向 Жу, ЖЕН 
f =f – Е; У . (3-2.10) 
解 下 列 最 小 二 乘 问题 | 
E. y,= f, (3-2 11) 
得 (п-т, ) Желі Et y 2 s. 最 后 ， 计算 解 向 量 
^^ У! | 
х= Ki (3-2.12) 
У? 








下 面 举 一 个 实例 说 明 计算 方法 。 设 
С-С0.4087 0.15932, 
E= [2 0.3516 
0,6246 о 3384 
4= 0,1376, 


0.6593 
广 МҮ! 
0.96661 


首先 根据 QR 分 解 方 法 ， 求 出 右 乘 矩 阵 C 而 使 其 变 为 三 角 阵 
的 Householder ІЕ3 Ж K, ЖЕ | 
K=- 799817 79,565) я 
-0.3632 0.93171” 
.93. 


K 可 以 通过 专门 的 算法 求 出 。 利 用 式 (3-2.8) 计 算 


~ -0.4386 0.0 © 
С С, ) | | i 
| | к= 5 =| —0.5285 0.1714. 
Е Е. | | 


‚— 0.7049 0.0885 








О 
Е, 
Вр 

С, = с 0.43862, 

Е. =[ 005) 
= 0.7049 , 
2.08854, 


根据 (3-2.9) 式 计算 
yi = — 0.3137. 
由 (3-2.10) 式 计算 | 
= _ [0.4935 
f = ° 
[0,245], 
由 (3-2.11) 式 计算 下 列 方 程式 的 最 小 二 乘 解 ， 


Кен ы кені 
0,0885 9.74553, 
得 уз -4.0472. | 

于 是 由 (3-2.12) 式 得 到 解答 


ж. i 

Z = 不 | 了 =[ 11775] 
е 3.884817 | 
У: 








我 们 来 讨论 等 式 约束 最 小 二 乘 问题 的 另 一 种 解法 ， 即 直接 消 
元 法 。 设 增 广 矩 阵 [E | 可 以 分 决 为 下 列 形式 ， 
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一 





С СІ С; т, 
тв оку, е 
| ті n- т: 
Жр С: 中 各 列 是 线性 独立 的 。 且 设 
х =| ХА |): (3-2.14) 
Ее 


则 约束 方程 组 CX =d 可 对 x, 求解 ， 并 得 
Хі-СІҚа-С;х,). (3-2.15) 
рх, 的 表达 式 代 入 (3-?.2) 中 ， 
[Ex -f| = | СҚ 4-Сх,)%Е;ж,-Л| | 
-|(Е;-ЕСІСх;-(Ғ-ЕІС-Иа))| 


=|E,x,- f l. (3-2-16) 
令 式 (3-2.16) 为 极 小 ， 以 解 x。。 由 此 可 以 得 到 下 列 消 元 解 
法 。 首 先 计 算 | | 


E, -Е,-ЕІСИС) | 23-217) 
及 f =/-Е1С4, (3-2.18) 
求 下 列 线性 方程 组 的 最 小 二 乘 解 得 x。， 
Еәх.е/, | (3-2.19) 
”最 后 计算 
х,=С-1(4-С›х,„). | (3-2.20) 


具体 的 算法 有 许多 。 例 如 可 以 对 С, 进行 QR 分 解 ， 即 用 正 
EEO, ERC 得 上 三 角 阵 
О.С; = с. , 
| С, = Q; С.. (3-2.21) 
其 中 Q: WIER 6, С, 为 上 三 角 阵 于 是 式 (3-2.17) 及 (3-2.18) | 
.95» 
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Е. =E; – (E, C-D(0,C;)=E; - Сз, (3-2.22) 
f =f- (Е\©-1)(0,4)=/-Ё: 4. (3-2.23) 
整个 算法 过 程 可 归纳 为 如 下 步 又 : 


(1) 用 Householder 变换 使 C1 三 角 化 ， 并 同时 将 它 对 C2 及 
4 变换 


QiCC1: C; : d3= (Сл: G; : d), (3-2.24) 
(2) 计算 ms хт, ЕЕ = f8 2825 ИЕ 
Е СЕ. ČE, ° x (3-2.25) 
(3) 计算 | 
E, = E2- E) ©, (3-2.26) 
№ = Ва. С (32.27) 
(4) 计算 使 巨 : 三 角 化 的 Householder 变 换 @:， 并 同时 将 它 
作用 于 上 | | 
О; СЕ : f)=cCE f )ln- mi. -© (3-2.28) 
_ (5) 最 后 通过 下 列 三 角 型 方程 组 计算 解 向 量 z ,及 <, 
С, С, |[х,) (2 | 
БЕЗІН H (3-2.29) 














对 于 前 述 的 数值 例子 ， 利 用 (3-2.24) 到 (3-2.29) 式 可 以 计算 
-出 | . 
Б, = [0.1839 
[0.04], 
f = 0.5145 
[тз], 
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%-І-1.1775 
| з авив!. 

现在 讨论 不 等 式 约束 条 件 下 最 小 二 乘 问题 的 解法 。 有 关 线 性 
不 等 式 约束 条 件 下 最 小 二 乘 问题 LSI 的 一 般 提 法 如 下 ; ЖЕ 
ma Xn 和 矩阵, f 为 ms ЖЕ, G amx п Е, Вот Ж, ША 
性 不 等 式 约束 最 小 二 乘 问题 LSI 为 : 

EGI Sh ЕЖЕ АИ. 

LSI 有 两 类 问题 讨论 得 较 详 细 。 

第 一 类 称 非 负 约 束 最 小 二 乘 问题 NNLS(Nonnegative Lea- 
st Squares), Bf: 

Ex >0 PP FRIES Л. 

5-ЖЖНЕННЕЯН R Bj ШТОР (Least Distance 
Programming), Bp: 

在 GX 之 h 条 件 下 求 |xl 极 小 。 | 

”对 于 不 等 式 约 束 最 小 二 乘 问题 的 一 般 算法 已 经 在 线性 或 非 线 

性 规划 中 详细 讨论 过 。 最 先是 Kuhn 及 Tucker(1951) 提出 这 类 问 
题 的 解法 。 他 们 引入 了 一 个 松弛 或 剩余 参量 >， 使 不 等 式 约 柬 
Gx>1 变 为 等 式 约 训 。Gx 一 r=Ax，r> 0)。 则 llBx 一 外 最 小 问 
是 可 用 目标 函数 四 (x) = 寺 上 EX 一 il? 求 极 小 来 讨论 。 

LSI 问题 的 解 可 由 下 列 定理 来 表达 ; 


定理 ”一 个 nn 维 向 量 % 为 SI Ый кн, 当 且 仅 当 存 


在 一 个 m 维 向 量 y 和 将 整数 1 到 m 分 成 两 个 子 集 A (相等 的 ) 及 S 
(剩余 的 )， 满 足 关系 式 : 


Ст Ў ЕТЕ XA), (3-2.30) 

т.=0, у:220, ЧА; Е (3-22-31) 

O Бі>0, у/59, 185. | 22 (3-2:32) 

其 中 r =Gx-h. | (3-2.33) 
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注意 ， 上 述 定理 中 的 向 量 

Р=ЕТ(Ех—/) 
是 目标 函数 加 (xX) = Ех Я Ж = % 处 的 梯度 ， 而 - GT 方向 
表示 指向 约束 超 平 面 外 法 线 方向 。 


实际 上 、 解 LSI 问题 分 为 两 步 进 行 ， 第 一 步 是 将 LSI 归结 为 
LDP 问题 ， 然后 将 LDP 问题 归结 为 NNLS 问题 。 实 际 算 法 如 


Fe | 
ВЕ LSI н: X n 和 矩阵 三 的 秩 为 K， 由 奇异 值 分 解 定理 
E = QRK" | 
_ Е (0 К; 1}k | 
210, 02) | 91 а а (3-2:34) 
k ma-k 


式 中 为 ms Хт, EXER, КАпхтЕЖЖ ЕЖКхЕЗЕН 
异 对 角 阵 。 


引入 对 变量 хр ЛЕЙ С | 
х= К.у, | (3—2. 35) 
рвов А Ўр Ф(х) Ву Л, ВЛ 
- = [Qf [Ку ° 
= 17-Ех| = [1:7] - | 
P(X) = |f- Ex | [РА [ { 
= 171 ~ Ву + |722. © (3-2-36) 
其 中 Л =Q f, f: -0,/. (3-2.37) 
”车 进 一 步 令 | ИН 
Е z=Ry- Л, | (3-2.38) 
则 (3-2.37) 式 可 以 写 为 | 
D(X) = |] + 17 2]. (3-2.39) 


于 是 求 Cx 关 4 条 件 下 | 一 Exl 极 小 的 LSI 问题 ， 便 归结 为 下 
列 的 LDP 问题 ( 除 附加 常数 | f zj 外 ): 在 Gz 之 h 的 条 件 下 求 
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ІШІ = min, (3-2.40) 
其 中 С =GK.R-1, 
h >в- СК: В-1 У. 

第 二 步 是 将 LDP 问题 转换 为 NNLS 问题 。 这 可 以 通过 下 述 
变化 洒 达 到 。 计 算 解 NNLS Riru, ВТГ Е ЖЕ Ш> 0 
ЕЈ Еу 

Еи -g| = пл. (3-2.41) 


其 中 F- 


g 为 n+1 维 向 量 ， 除 第 n+ 1 个 元 素 外 ， 其 余 所 有 元素 都 等 于 
零 。 


在 LDP 问题 中 ， 目 标 函 数 +l 的 梯度 向 量 简化 为 z。 
Kuhn-Tucker 条 件 要 求 z 表 达 为 Gr 行 向 ЕЕ РЕНА. TÆ 
z = Сти|"|-2, | (3-2.42) 

Ява | 
| Ни |2 = те = 27 | Е-Е. С (3-2.43) 


$3-3 惩罚 函数 法 


在 解约 束 条 件 下 地 球 物理 反 演 问题 时 ， 另 一 类 常用 的 有 效 方 
法 是 惩罚 函数 法 。 这 种 方法 对 于 解 不 等 式 约 束 问 题 有 较 好 的 效果 。 
它 将 约 东 问题 转化 为 无 约束 最 优化 问题 的 序列 ， 然 后 利用 上 一 章 
讨论 的 无 约束 最 优化 方法 求解 。 所 以 这 种 方法 又 称 为 序列 无 约束 
最 优化 方法 SUMT (Sequential Unconstrained Minimization 
Techniques), | | 
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ЖЕН РА ЖОЕ ЕЖ АНЕ ЕЖ ВЕН] НЕДЕ É ll 
min (p(xXx)+pn,P(X)23 | (3-3.1) 


хЕр 
Е ЕУ ЕЛЕЕ „Жн (н, ЕРЕН ЖАЛЫ»), ІШ < 
p2 < <р, <, limu, = co 由 从 一 般 称 为 惩罚 因子 , Ин. Р(Х) 


则 称 为 惩罚 项 。P(x) 即 是 惩罚 函数 ， 一 般 应 满足 以 下 条 件 : 
_ (1) P(x) 为 及 "上 的 连续 函数 ， 
(2) Р(ху>0, Чхевы; (3-3-2) 
(3) P(X%)=0， 当 xES 时 。 
为 了 计算 上 的 方便 ， 将 显 式 约 束 (1-7.7) 及 隐 式 约束 (1-7*8) 以 约 
ЖЕНИ: (х) < 0(1=1,2,--, а) Ж, ИЖЕ] ЖЕНЕ (3- 
3.2) 式 条 件 而 写 为 


P(x) = > (max(0,h;(x)))2, О (3-8-3) 


”一般 我 们 将 (3-3.1) 式 称 为 增 广 目标 函数 求 极 小 问题 ， 将 (3- 
3，3) 式 代入 写 为 


| | 2. 
тіп F(X,h) = тіп [Фоху+ь® (max(0,h:(%)))? |. 
хЄр" хр" т! 

(3-34) 


可 以 证 明 存 在 下 述 定理 : 

(1) Жа” 是 问题 (1-7. “10) 的 极 小 点 ， 则 x 必 为 问题 (3- 
3.4) 的 极 小 点 。 

(2) ШЗ ик: нь, HREF), pA Еш), 
Ph+l1) 分 别 在 x (u, 2 ` (hn+1) 达 到 它们 各 自在 R* нА ЛМ, 


则 有 下 列 不 等 式 成 立 : 
Е(х` (и,.12» bra) 2 F(íX ` (иһ), Ик)» (3-3%5) 
Р(х (u,))ZP(XxX°(u,,1)), (3-3,6) 


ө 100 * 


DT (u,,1))2 (X (202. (3-3,7) 

(3) ®Ф(х), hi(%)(i=1,2,…,g) 为 R" 上 的 连续 函数 ， 

则 由 惫 罚 法 产生 的 序列 {x “(44)}) 的 任 一 极限 点 是 问题 (1-72-10) 
的 极 小 点 。 | 

БАЕЛ, ЖЕ ЛЕ ЕН Y ДЕТ ЖЕН НА (3-3-408) 

以 看 出 ， 对 于 不 满足 约束 条 件 的 点 2(xe S), WWD uP) 


ТРУ] (max(0,j;(x)))2 之 0， 且 随心 增 大 而 增 大 。 它 表示 对 于 不 


满足 约束 条 件 的 一 种 惩罚 。 当 x 点 满足 约束 条 件 时 (xes)， 则 有 
HPX) =0， 这 时 无 论 &r REK, ШГ Н КЕС (р), в.) Б 
9(%) 取 值 相同 。 它 表示 由 于 满足 约束 条 件 而 不 受 惩罚 。(3-3.5) 
-(3-8.Т) ЕС (u), p FI Сх DA А Ж 3 M383089,15 


P(X(u,))XF Tu, Д& PA Sak ЛУ AU, REHA Сшах(0Ь0 са )))2* 


ЭРА, Ко ) 将 充分 接近 约束 区 域 的 边界 。 从 某 种 意义 上 
KEXU ) 就 可 以 看 成 满足 约束 条 件 的 点 。 

我 们 举 一 个 简单 的 例子 来 说 明 这 一 思想 。 设 h(xX) =х-Ь, 
һ(хуа-х, БИЕ ЕН МЕТТІК 5 МР] Са, bD, В 
3-3-1 ЖНЖ iu P( x) Е НЫ ЖИН, xi) Ни, 
Ж АМЕ ЙЕН ЕНГІ S. РЕМ и, оо BF, ДЕ 
У НИЯ BE ОКЕ ТӨ] ШІМ. 

惩罚 项 数 的 一 般 计 “vo 
算 步 又 如 下 : | 

а) Жа:>0, #8 
ВИНА e R" ХМ 
Же. 

(2) 假设 利用 某 种 “ 

无 约束 最 优化 方法 求 得 3-3-1 
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式 (3-3.4) 对 应 的 近似 极 小 点 z (и) 65. 
(3) Их’ ) 为 初始 点 , Виз, ЖЕНА 
优化 方法 求解 тіп F(x, ws+1) 得 到 相应 的 极 小 点 x (иь.120 
| ер" в 


o (4) 车 对 所 有 i =1,2,…，,9 都 满足 
| h (X (uk) «еу 
WRX (uari) 为 满足 精度 要 求 (3-3"4) 式 的 极 小 点 。 否 则 取 
шал» ЗЕМХ Casti) 为 新 的 初始 近似 ， 转 向 第 3 步 ,继续 迭代 。 
”在 实际 的 地 球 物理 问题 反 演 计算 中 ， 当 利用 和 无 罚 函 数 法 求 增 
广 目 标 函 数 极 小 时 ， 我 们 采用 收敛 较 快 的 阻尼 最 小 二 乘法 。 为 了 
将 惩罚 项 直接 引入 到 阻尼 最 小 二 乘法 的 方程 中 去 ， 对 于 线性 不 等 
式 约束 的 情况 作 了 以 下 的 改进 。 Е 
设 存在 线性 不 等 式 约束 方程 组 
| | Н(Х) =Вх-с<0._ (3-3,8 ) 
| Ж B Жах И 而 c 为 qx 1 向 量 。 = 
为 便于 建立 惩罚 沙 数 (3- -3.3) 式 的 矩阵 形式 ， 我 们 引入 -- 个 
新 的 对 角 和 矩阵 | 


{wi қа | f 
O w (3-3,9) 
| 





式 中 对 角 元 素 定义 为 | 
„= [1 һ(х);>>0 (BH XES), 
0 һ;(%)=<0 (| ШІ хе5), 


于 是 惩罚 函数 可 以 写 为 


Р(х) = № (уһ, (ху)! = (Вх — юс) (вВх- wc) 
. i= 1 : 
= (Вх – с)тю(Вх — c). | (3-3.10) 
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注意 上 式 中 有 关系 w= инте = w, 
则 增 广 目标 函数 为 
F(X, в) = Ф(х) +иР(Х) 
=(y-JfC(x))T(y-f(x))+u(Bx -cw Bx - c). 
(3-2:11) 
对 上 式 展开 并 取 到 一 级 近似 值 ， 其 增 量 式 可 以 写 为 
F(Xo+6, и) = P(X, +9) +рР(Х, +0) 
=(y-f(x,))7(y-f(x,))-2(y-f(x,))T Ад 
+ТАТАб + р{ (Вх, – с)Ти(Вх, – с) 
+ Э(ВдУ)Ги(ВХ, – с) + 7 ВТюВд) 。 
О (3-3.12) 
ЖФА X Jacobi ЖЕЕ, {а;;) а х-х.. 


Xi 


按照 增 广 目标 函数 极 小 化 条 件 ， 令 


9ЕС жо +0, u) = – AT(y-f(X,))+ АГАВ+Ь{ВТи(Вх, — с) 


96 
| + ВТьВо} = 0, (3-3:13) 
整理 得 
(ATA + дВ7»В)6 = AT(y-f(X Ó ))- uBTw(Bx , — с). 
| (3-3:14) 


TE, ЗАЕТИ ЛЕМ ЕЕН Уу 

((АТА + и ВТнВ) + у21) = Ay- f (x,)) – рВТи(Вх, — c) , 
或 者 简化 为 © 
(G+ v°])ó = g. (3-3%15) 
其 中 G= АТА +рВтюВ, g = АТ(у-Их,)) - иВТи(Вх, -ce). 
ЭЛЕН N BJ EH ЈР R ЕНЕНЕ РА ИИ 3-3-2 тж. 
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给 定 初 值 x 0 。 z 其 比例 系数 

| о’, EMATIA r 及 其 

MENFP 及 其 比例 系数 них | 
ғ ` Ел ' , ` Ж 


< Ü” | 














г и 
ФР (ж j? 


=» x'9 | 
91 Fos F im) — 
Fix v, ) <£? 
-是 -2 


вх < 0 
ь В | 
EER 





s 











Е 


Е 3-3-2 


53-4 可 变 容 限 法 


„им. 





го Өй 


带 有 等 式 及 不 等 式 约束 条 件 的 目标 函数 极 小 问题 : 


тіп Ф(х), хек", 
并 满足 约束 条 件 
ћ:(х) = 0, і-1,2,-, т; (3-4:10 
в:(Х)>0, іс-т-1, р. 


АЕ Ф(х), В (X), Е КОИ ЕЕ. ЕК 
它 许 多 约束 最 优化 方法 中 ， 大 部 分 的 时 间 都 花 在 满足 严格 的 可 行 
要 求 上 。 而 可 变 容 限 的 算法 通过 利用 可 行 态 ， 以 及 称 为 近似 可 行 
点 的 非 可 行 点 所 提供 的 信息 来 改进 目标 国 数值 。 当 搜索 极 小 的 过 
程 趋向 于 约束 问题 的 解 时 ,. 近似 可 行 的 条 件 逐 渐变 得 严格 ， 直 到 
满足 (3-4.1) 式 为 止 。 

我 们 用 一 个 更 简单 的 形式 来 代替 (3-4'1) 式 

тіпФ(х), ХЕВ*, ) (3-4-2) 
满足 约束 ф%-т(ху>0. | 
фф 是 第 K 步 搜索 的 可 变 容 限 标准 的 值 ，T(x ) 是 由 问题 (3- 
4.1) 所 有 等 式 或 不 等 式 约 束 毛 构成 的 一 个 正 函 数 。 本 他所 用 的 无 
约束 最 优化 算法 一 般 为 单纯 形 法 ， 所 以 4'*' 选 择 为 R" 空间 中 活 
动 多 面体 顶点 正 的 非 增 函 数 : 5 ф(х, хы, Ха, 
xs )， 它 的 作用 是 作为 整个 搜索 过 程 中 对 于 违反 约束 的 一 个 容 
许 标 准 ， 同 时 也 作为 搜索 结束 时 的 一 个 准则 ， 取 

ф' = тіа(ф'*-1), 0'*›}. (3-4 +3} 
一 般 置 ф °) =2(m+ 1)t, ' | 


{ =mil, А) 
gk? = та> lx; -x | 
i= | 


-т БЕ {P(e ж (3-4 • 4) 
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其 中 t- 一 初始 多 面体 的 大 小 因子 ， 
| .105. 





m 一 一 等 式 约 束 的 数目 ， 
п--ФЖИЖН,; 


x 4* 一 一 R" 中 多 面体 第 i 个 顶点 ， 
г=п-т HHE; 
ха: 单纯 形 法 除去 坏 点 后 剩 下 点 的 质心 坐标 ， 
к-0,1-- 完成 搜索 次 数 指标 。 
从 (3-4.4) 式 看 到 ，90'" 表示 RR" 中 每 个 顶点 x1*' 到 多 面体 质 


хр 的 平均 距离 。 虽 然 96 在 搜索 中 随 单纯 形 的 反射 、 扩 张 、 


收缩 等 可 增 可 减 ， 但 4 mino, ОЖ д ЖЕЛЕ 
列 ， 即 有 О | 

ф'9%);>ф\!);>®..;>ф#;>0, (3-4*5). 

”在 单纯 形 算法 中 ， 随 着 搜索 接近 于 解答 时 ， 多 面体 项 点 与 质 

心 的 平均 距离 收缩 为 零 ， 由 式 (3-4。4) 求 出 的 804) 逐渐 变 小 ， 随 

200 baka. AB WS T, фо 随 着 达到 解 答 X' 而 站 于 


=, 


lim 中 心 ) =, | (3-4%6) 
. Xh) y ` - 


ЯР, RETO EXA FASTRAR RANER, 


T(x) = (жюз > б,в" ку". (3-4.7) 
{ =m+t 1 
其 中 | | 
өз? WB, (<)2>0; (2-48) 
1, Е, (ж) <0. 


我 们 可 以 根据 T(x ) 的 值 来 区 分 可 行 与 非 可 行 іл. 设 中 Я 
КЖ ФЕ, XO IR ВЕНЫ, ИЖ: 
(1) ЗАТ‘) =0, ОЖ, 000 
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(2) ОТ), химия: 

(3) Тм >", ход. 

因此 可 以 根据 7T(x НИК ЛЕНЕ КЖ 
O xe 点 周围 可 行 域 的 情况 。 这 是 一 个 很 有 意义 的 改进 ， 它 有 点 类 
似 于 惩罚 函数 法 中 惩罚 项 的 作 用 。 

可 变 容 限 法 的 优点 是 当 搜 索 趋 向 于 解答 时 约束 条 件 是 逐步 
达到 的 。 这 一 算法 与 多 (XxX) 的 局 部 性 质 关 系 不 大 ， 因 此 可 以 避免 
一 些 不 合 震 要 的 解 。 

实际 计算 时 ， 可 变 容 限 法 一 般 分 为 两 步 ,第 一 步 , 对 于 给 定 的 
qb'*' 信 ， 找 到 使 T(xX*')=0 或 T(X， <ф 的 %“'， 第 二 步 ， 
以 X* а ЖаН, ӘЖ ФХ( «ФО 
хана» ppt) 一 了 (X(t*?1)) 宇 0 。 下 面 给 出 详细 计算 步 
Ж: | 
(1) 用 可 变 容 限 法 求 (Xx) 极 小 , НЕ EEx’, t, 
фо Же. 一 般 选 为 变量 x 所 期 望 的 变化 范围 的 一 个 函数 ,通常 
对 于 xX; 的 上 上 下界 已 知 的 情况 ， 可 用 下 面 的 公式 信 计 t， 


t=min [HER (i=l), бшу 11), зө (а, 10}. 
іші 4 


(3-4%9) 
Хана, - 1) 是 第 i 个 变量 下 上 界 的 差 。 而 go) = 2(m+ 1)t，r = 
п-т. ЖҢ т, t, 9 就 可 以 在 x ° 处 计算 T(X) 的 值 。 
(2) их HR" 中 一 个 非 可 行 点 ， 中 上 为 第 kk 步 搜 索 的 容 
限 标准 。 将 t= 0.05q'， 作为 初始 多 面体 的 大 小 ， 并 用 单纯 形 法 
确定 TCX) 极 小 化 的 n+ 1 个 项 后 ， | 
xl < xO), Di, ісі, 2, +, ntl. (3-4.10) 


D ,由 单纯 形 法 确定 。 设 各 顶点 处 T(%) 值 为 TCxfo )(1=1,2, s 
n+1), 且 设 单纯 形 法 各 系数 为 a=1,8B=0.5，7Y =2。 用 单纯 形 算 
法 使 TC(X) 极 小 化 。 并 让 s 步 后 用 TX! ) (i=1, 2, +з, п+1) 
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p -— Ñ 
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给 定 初 值 x"… ， 初 始 单纯 形 大 小 ， 各 种 参数 0.4.7. М 
并 求 项 点 x!"},。 = K ft 








ЕЖ. 容 限 初 值 6 = 2 (m+ 1), 










确定 х; YE 4-2,2. 






利用 单纯 形 求 7 Oq) 
极 小 ， 并 使 

对 单纯 形 进行 扩张 反射， тө" 
收缩 , БЕТ ОУ «фл, 
Ж Ф (х) 











Ф RENAN ) <O (х{*') 
Ех: ЖІфіх 9) 


EG 








4 = min [T хк’, 6.1 


图 >-а-: 


"Нн Е/МЕТАС. 0) Бф НШ, 
(3) ETX Sp t) Ший E тАУ. 


ШТА (0509220, Жыл» = (为 近似 可 行 点 。 并 结束 求 T(x ) 


的 极 小 而 开始 求 @(x ) 的 极 小 。 如 果 中 (xx )=0 且 m=0， 转 到 
第 6 步 。 
(4) ETX ) >25, MHA 


n+l a 


`8) = 1 (=) үу (<) ұұ2 - 
А 5 -ræ e] . (3-4.11) 


APTO 0 ДЕТХУБМЕВ3 步 在 多 面体 质心 上 ЛЕ. Ж 
145 之 10-'， 则 转向 第 2 步 继续 进 行 ;+ 1 步 T(X ) 的 极 小 化 。 

(5) ЖА’ 10-7， 则 可 行 多 面体 将 变 为 一 个 点 。 这 时 再 
”用 单纯 形 法 寻求 极 小 将 有 很 大 困难 。 因 而 可 沿 每 一 坐标 轴 方 向 进 
FERR., LEDAMA, ATASS, WA, АЖ 
xi:4)， 求 T(% ) 最 小 过 程 结 束 。 

若 所 有 方向 搜索 后 仍 找 不 到 一 个 可 行 或 近似 可 行 氮 ， 则 转 问 
第 1 步 。 如 果 连 续 三 次 重复 1 一 5 步 都 找 不 到 ， 则 以 搜寻 失败 而 
结束 。 Е | 
(6) JH E ШЕ ЕЖ ФООЖ R. Ж B(x tl) < b(x'k)) E. 
хе дня, НФ"! <>, ДЖ, Я 
则 继续 求 T(x ОЖ. 

可 变 容 限 法 计算 框图 如 图 3-4-1 所 示 。 


$ 3-5 解约 束 最 小 二 乘 问题 的 计 
算 程序 和 实例 


本 程序 用 奇异 值 分 解 算法 解 不 等 式 约束 最 小 二 乘 问题 LSI。 
| +109. 


其 基本 想法 是 把 LSI 问题 转化 为 最 短 距离 规划 问题 ГОР. 然后 
再 转 为 非 负 约束 最 小 二 乘 问题 NNLS。 本 程序 有 . 七 个 子 程 序 及 一 
个 主 程序 ， 使 用 FORTRAN- 了 语言 编写 。 


(一 ) 标识 符 及 子 程序 说 明 | 


最 小 二 乘 问 题 奇 异 值 分 解 子 程序 SVDRS 
对 给 定 的 Mx N 矩阵 A 及 M x NB EE B, Ел 
М Ах = ВАНИЕ, 
А=О$РГ. | 
жағын PHS, V KG=UrB FEFPR ESHIT: 
一 一 二 维 数组 ， 开 始 时 存放 M x N НМА, АЯН 
МХМ Е, МММ < 之 N 都 允许 。 
B 一 一 可 作 一 维 或 二 维 数组 用 ,开始 时 存放 MxNB 或 MX1 
矩阵 8B ， 计 算 结 束 时 存放 MX NB 或 M x1 ЕС, 
S-- 一 一 中 间 工 作 单 元 ， 结束 时 前 N 个 工作 单元 元 存放 奇异 值 
$(1)>5(2)>.-.25(№) 20. | 
”如 果 在 调用 子 程序 QRBD 时 不 能 收敛 ， 那 么 将 打印 信息 
“CONVERGENCE FAILURE ІМ QRBIDIAGONAL SVD 
ROUTINE” 并 停机 。 
2。 双 对 角 和 矩阵 的 奇异 值 分解 子 程序 QRBP 
对 于 NxN ЖА ЕЕ ЕВ 进行 奇异 值 分 解 
= в-08 т. 
本 子 程序 执行 QR 分 解 算法 。 最 后 输出 包括 矩阵 B 的 奇异 信 以 及 


两 个 矩阵 的 积 РУ» Отс. "кем 为 给 定 的 NRVxN 和 
Nx NCH. 


QR Я, 
2 作 10XxN 次 QR 扫描 后 仍 未 收敛 。 
”DD 一 一 开始 存储 8B 的 对 角 元 素 ， 结 束 时 存储 奇异 信 。 


110» 


ІРАЅЅ = {, 


E 一 一 存放 和 矩阵 B 的 上 对 角 元 素 。 

N—— FEB РЫС. 

V 一 一 二 维 数组 ，Y 开始 包括 NRV X N 矩阵 VV， 返回 时 将 由 
NRV x N ВЕРЕН У AER. 

C 一 一 二 维 数组 C， 开 始 时 存放 N x NC 矩阵 C， 输 出 时 由 积 
矩阵 上 7C 代 替 。 

3 。 最 短 矩 离 规划 子 程序 LDP 

计算 下 列 约束 景 小 二 乘 问题 : Сх В ТОВ ЦА Ж 
小 值 。 这 里 G 为 MxN 和 矩阵 日 严 为 M 维 向 量 ， 本 程序 调 用 NNLS 


子 程序 求解 。 其 中 : 
G 一 一 LDP 问 题 中 的 M x МС. 
H 一 一 M 维 向 量 h。 | 
X- 一 一 解 向 量 x 。 


INDEX, W 工作 单元 。 

МОРЕ 标志 计算 完成 情况 ，1 为 成 功 ，2 表示 维 数 不 正 确 ， 
Шм<<0, 8 为 子 程序 NNLS 中 最 大 迷 代 次 数 超 过 3x M; 5 表示 
不 等 式 约束 GX 之 kh 不可解。 

4。 非 负 约束 最 小 二 乘 问题 子 程序 NNLS 

计算 满足 xX 宇 0 时 Ax 实 bp 的 解 。 其 中 OO 

А--мМхмЖЯВ А. 

B 一 一 M 维 向 量 b。 

х———^;>0{ ЫН. | 

RNORM 计算 结束 时 残 差 向 量 的 范 数 6 一 Ах. 

W 一 对 侦 向 量 w = А" Ф- Ах). 

Z 一 一 工作 单元 。 

INDFX 一 一 工作 单元 。 

MODE -一 计算 完成 情况 及 结束 原因 ，1 表示 成 功 ，2 表示 
ЕЖЕН, ЦМ<0н М<0 出 现 ，3 ЕКЕНІ 3X N. 
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5。 构 造 和 应 用 Househoilder 变换 的 子 程序 H12 
给 定 M 维 向 量 » 及 整数 1, 及 11， 本 子 程序 计算 M 维 向 量 wu 及 
一 个 数 S， 构 成 Mx M Householder ЇЕ О = T+ (ші?) 


ASD RRE OVW, Rh wi =v: Fih) we] = (v3 + 


| % 
> v3) ‚ МұлаОМ1,<і<і1), И Им: = ОС <#=М>. 
ВО 窍 阵 乘 以 给 定 的 M 维 向 量 ,。 其 中 00 

-MODE 一 一 使 用 时 置 1 执行 算法 Hl, E 2 时 执行 算法 H2。 

ТР, 11, М--МШБІ<ІР<ІЛ<МИЕӘ, EMARE, 
11 和 M。 如 果 不 满足 不 等 式 时 ， 子 程序 不 执行 计算 并 返回 。 

U Householder 变换 中 的 向 量 x。 

C 一 一 中 间 工 作 单 元 。 

_ 6。 构造 及 应 用 旋转 矩阵 子 程序 G1 及 G2 | 
对 给 定 的 两 个 数 x; 及 х., ТИЙНСІН Сіуепз ЕЖ ДЕ E 








阵 使 | | 
[L | 
子 程序 G2 НЕ HRRRHA 
ajz |52 
Zs | (UZ, ). 











7. Я ТЕРРИЕЕ 
用 以 计算 二 个 实数 的 差 。 


(=) 程序 使 用 及 实例 


EEEF PHG, ЕЖА, SERRE. 
本 程序 给 出 一 个 计算 实例 。 对 于 下 述 不 等 式 约 束 最 小 二 乘 问 
ЖЕІ,5І: 


在 GX 之 kh 条件 下 求 上 EX- ЛЖЛ. 








其 中 
1} о? 
Е = 0.50 1 | f = 0.6 
0.50 1 өл 
0.80 17, 1.2/, 
5- | 








为 将 LSI 问题 转化 为 LDP 问题， 我 们 对 矩阵 计算 正 交 分 
Ж, KEE 的 QR 分 解 和 奇异 值 分 解 都 要 用 到 。 奇异 值 分 解 式 为 


S2x2 Т, 

Е = valo] ах2» 
ç = [° 0.0 ] 
0.0 0.3464, 


у=[ 704 НИ, 
- 0.884 — 0.4672, 





( — 1.536 
КЕ -4лу- | 0.384 
2 f; x - 0.054 
| L 0.174 
引入 变量 
z¿=SVTx- fı. 


于 是 问 题 便 转 为 求 下 列 LDP 问 题 : 
满足 G с> 4 条 件 下 求 |zl 的 极 小 。 
其 中 
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(一 0.207 2.558 
С -СИ8-і-|-0,392 — 1.351 
| 0.599 — 1.206 J, 
以 及 
| -1.300 
h =h-G fj =| -0.084 
0.384). 


解答 z 为 满足 上 述 约束 条 件 的 最 小 欧 氏 范 数 。 用 子 程序 LDP 


计算 得 
| т -| 0,127) 


– 0.255 
于 是 最 后 可 计算 解答 | 
реа, Тур 、_[0.621 
| х =FS-H +f [ о. 
Ех 的 残 差 向 量 为 “ 
| - 0.034 
Раҷ ` ЖМ - 0.089 
r 7-х = 0.011 
0.324). 
残 盖 范 数 为 К 
|> || = 0.338. 
_ <=> FORTRAN-N # ЙЕЛ 
С MAIN PROGRAM | 


”DIMENSION ЕС, 2), ЕЧ), G(3, 2), H(3), G2(3, 2), 
Н2(8), Х(2), 262), У/(4) | 
DIMENSION WLDP(21), S(6), T(4) 
INTEGER INDEX(3) 
WRITE(6, 110) 
МОЕ =4 
МОСН =3 
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10 


11 


ME=4 

MG =3 

М-2 
DEFINE THE LEAST SQUARES AND СОМ5ТКА- 
INT MATRICES 

Та) = 0.25 

T(2)= 0.5 

T(3) = 0.5 

T(4)=0.8 

W(1)=0.,5 

W(2) = 0.6 

\ (3) = 0.7 

\ (4) =1.2 

DO 10 I=1, ME 

ЕС, 1) = ТІ) 

Е(1, 2)=1.0 

ЕСІ) = \ (Г) 

G(1, 1)=1.0 

С(1, 2)=0.0 


G(2, 1)=0.0 


С(2, 2) =1.0 

G(3, 1)=-1.0 

С\З, 22--1.0 

НО) =0.0 

Н(2) = 0.0 

H(3)= -1.0 
COMPUTE THE SINGULAR VALUE DECOMPOSI- 
TION OF THE MATRIXE. 

CALL SVDRS (Е, MDE, МЕ, N, Р, 1, 1, 5) 

DO 121=1, N 

DO 11 1-1, N 

ЕС, J)= -ЕЛЧ, J) 
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12 


20 
30 


40 
50 


60 


ЕС) = ~ Е) 

WRITE (6, 120) СЕС, J), 7-1, №, І-і, М) 

WRITE (6, 130) Е, (5(7), 1=1, М) ` 
DEFINE THE CONSTRAINT MATRIX FOR THE 
Z-C-OORDINATE SYSTEM 

DO 30 I=1, MG 

DO 30 J=1, N 

5М-0,0 

DO 20 1,-1, М 

SM =SM+G(¿(T, L) * E(L, J) 

G2(1, J) = SM/S(J) 
DEFINE CONSTRAINT RT SIDE FOR THE 7-СО- 
ORDINATE SYSTEM 

DO 50 I=1, MG 

$М=0.0 

DO 40 17-1, М 

SM = SM+G2(I, J) «ЕСУ; 

Н2(Г) = НФ - SM 

WRITE(6, 140) ((G2(I, J), 2-1, М), I= d, MG) 


WRITE (6, 150)H2 


SOLVE THE CONSTRAINED PROBLEM ІМ 7-С- 
OORDINATES. 

CALL ГОР (G2, MDGH, МС, М, Hz, 7, ZNORM, WL- 

ОР, INDEX, MODE) 

WRITE (6, 200) МОРЕ, ZNORM 

WRITE(6，160)Z 
TRANSFORM BACK FROM Z-COORDINATES ТО 
X-COORDINATES 

DO 60 7-1, М 

Z(J) = (Z(J)+E(J))/S(CJ) 

DO 80 I=1, М 

5М-0,0 
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70 
80 


90 


100 


120 
130 
140 
150 
160 
170 


180 


190 
200 


DO 70 J=1, N 
SM= SM+E(I, J) * ZJ) 


Х(І) = SM 
КЕ5-2МОВМ» * 2 
МР1=М+1 

DO 90 I= NPI, МЕ 
RES=RES+EF(I) * < 2 


RES = SQRT(RES) 
COMPUTE THE RESIDUALS 
DO 100 I=1, ME 
Е) =W(1I) - Х(р * ТО) — X(2) 
WRITE(6, 170) (ХО), J=1, N) 
WRITE(6, 180) (1, ҒА), I=1, МЕ) 
WRITE(6, 190) RES 
STOP | 
FORMAT (36HO EXAMPLE ОЕ CONSTRAINED CUR- 
VE FITTING ,26H USING THE SUBROUTINE LDP., 
/43HORELATED INTERMEDIATE QUANTITIES ARE 
1СВУЕ 2N.) А 
FORMAT (10Н0У-, 2Е10.5/(10Х, 2Е10.5) 
FORMAT (10H0F TILDA=, 4F10.5/10H0S=, 2510,5) 
FORMAT (10H0G TILDA=, 2610.5/(10Х, 2F10.5)) _ 
FORMAT (10Н0Н TILDA =, 3Е10.5) 
FORMAT (10Н027-, 2510.5) | 
FORMAT (52НОТНЕ СОЕКІСІЕМТ5 OF THE FITTED 
ИМЕ F(T)= X(1)* T+ X(2), 12H 
1АКЕ Х(1) =, F10.5, 14H, AND X(2)=, F10.5) 
FORMAT (30НОТНЕ CONSECUTIVE RESIDUALS 
ARE/11X, 4(110, F10,5)) 
FORMAT (23HOTHE RESIDUALS NORM 15, F10.5) 
FORMAT (18H0MODE (FROM LOP)= 13, 2X, 7HZN- 
1ОВМ =, F10.5) 
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ЕМГ 
SUBROUTINE SVDRS (А, MDA, ММ, ММ, В, МОВ, 


мв, 5) 
DIMENSION A(MDA, ММ), В(МОВ, МВ), 5(ММ, 3) 
ZERO=0 
ОМЕ-1 
с ВЕСІМ SPECIAL FOR ZERO ROWS АМО COLS.PA- 
С СК THE NONZERO COLS ТО THE LEFT 

N=NN 

IF(N.LE.0.OR.MM.LE .0)RETURN ` 

J=N | 


10 CONTINUE 
DO 20 I=1, MM 
IF(A(I, J)) 50, 20, 50 
20 CONTINUE 
ІЕ(2.Е0.М) GO TO 40 
DO 30 1-1, MM 
30 АС, J)=AC(I, N) . 
40 CONTINUE 


АС, N)=J 
N=N-1 
50 CONTINUE 
J=J-1 
IF(J.GE.1) GO TO 10 
С IF N=0 THEN А15 ENTIRELY ZERO AND SVD C- 
OMPUTION CAN BE SKIPPED | 
NS=0 
.IF(N.EQ.0) GO ТО 240: 
С PACK NONZERO ROWS ТО ТНЕ ТОР QUIT РАСКІ- 
С NG IF FIND М NONZERO ROWS | 
I=1 с 
M= MM 
+118, 


соо 


60 


70 


80 


90 


100 


110 
115 
120 


130 
140 


150 


IF(I.GT.N.OR.I.GE.M) СО ТО 150 

ТЕХАС, D) 90, 70, 90 

рО 80 7-1, М 

І (АСТ, J)) 90, 80, 90 

CONTINUE 

GO TO 100 

I=I+1 

GO TO 60 ЕС 

ROW І 15 ZERO ЕХСНАХСЕ ROWS І AND М 

IF(NB.LE.0) GO ТО 115 

ЮО 110 Ј=1, МВ 

T=B(I, J) . 

B(I, J)= ВОМ, J) 

B(M, у) =Т 

РО 120 1-1, М 

A(I，J) = A(M.J) 

IF(M.GT.N) GO ТО 140 

DO 130 1-1, М 

A(M，J) = ZERO 

CONTINUE 
EXCHANGE IS FINISHED 

M=M-1 

GO TO 60 

CONTINUE 

L=MIN0(M, М) 

THE FOLLOWING LOOP REDUCES А TO UPPER В- 

IDIAGONAL AND 

ALSO APPLIES THE PREMULTIPLYING TRANSFO- 
RMATIONS TOB ° 

DO 170 J= 1，L 

IF(J.GE M) GO TO 160 

CALL H12 (1, J, 3+1, М, AG, J> 1, Т, Аа, 1+1), 
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160 


170 


180 
190 


200 


1, MDA, N-J) 

CALL Н12(2, J, 1+1, М, А(1, J) 1, T, B, 1, MDB, 
NB) 

IF(J.GE.N-1) GO TO 170 

CALL Н12(1, J+1, 1+2, N, А(), 1), MDA, S(J, 3), 
A(J+1, 1), MDA, 1, M-J) 

CONTINUE 

COPY THE BIDIAGONAL MATRIX INTO THE ARR- 
АҮ 5( ) FOR QRBD 

IF(N.EQ.1) СО ТО 190 

DO 180 J=2, М 

S(J, 1)= AG, J) 

S(J, 2)= A(J~1, J) 

S(1, 1)= А(1, 1) 

NS=N 

IF(M.GE.N) СО ТО 200 

М5-М-1 

S(NS, 1)= ZERO 


50м, 2)= A(M, М+1) 


CONTINUE 
CONSTRUCT THE EXPLICIT N BY N PRODUCT M- 
ATRIX 

№= 01+ 02+... *QL*I IN THE ARRAY АС ) 
DO 230 K=1, N Б 
1=№+1-К 


 ТЕа.СЕ.М-1) СО ТО 210 


CALL Н12(2, 1+1, 1+2, М, АЦ, 1), MDA, S(I, 3), 
АС, І+1), 1, МОА, N-I) 


210 DO 220 J=1, N 


220 


230 


С 


A(I，J) = ZERO 
A(I, 1I)=ONE 
COMPUTE THE SVD OF THE BIDIAGONAL MATRIX 
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wam _ _ . 


< to 


CALL ОКВр‹(ІРА 55, 5(1, 1), SG, 2), NS, А, MDA. 
N, В, MDB МВ) 
СО ТО (240, 310), ІРА55 
240 CONTINUE 
IF(NS.GE.N) СО ТО 260 
М5Рі-М5-1 
DO 250 J= МӨРІ, М 
250 S(J, 1)= ZERO 
260 CONTINUE 
IF(N.EQ.NN) RETURN 
NP1= N +1 
MOVE RECORD OF PERMUTATIONS AND STOšR - 
ZEROS 
DO 280 J= NPI, NN 
SOJ, 1) = А(1, J) 
20270 1=1, М 
270 АС, J)=ZERO 
280 CONTINUE 
PERMUTE ROWS AND SET ZERO SINGULAR VAL- 
UES 
РО 300K= МР1, NN 
I= S(K, 1) 
S(K, 1)= ZERO 
DO 290 J=1, NN 
А(К, р-АС, J) 
:90 АС, J)= ZERO 
А(1, К)=ОМЕ 
300 CONTINUE ` 、 
END。。SPECIAL FOR ZERO ROWS AND 
COLUMNS 
RETURN 
310 WRITE(6，320) 


и 


.121* 


AAAA 


320 


10 


20 


STOP 
FORMAT(50H0 CONVERGENCE FAILURE IN QR BI- 
DIAGONAL SVD ROUTINE) 
END 
SUBROUTINE QRBD(IPASS, Q, E, NN, V, MDV, N- 
RV С, MDC, NCC) 
QR ALGORITHM FOR SINGULAR VALUE OF 
A BIDIAGONAL MATRIX. 
LOGICAL WNTV, HAVERS, FAIL 
DIMENSION Q(NN),E(NN),V(MDY, NN),C(MDC, NCC) 
ZERO=0 
ONE=1 
TWO= 2 
N= NN 
IPASS=1 
IF(CN，LE .0)RETURN 
№10=10* М 
WNTV = МКУ.СТ.о 
HAVERS = МСС.СТ.0 
ҒАШ, = „FALSE, 
NQRS= 0 
Е(1) = 2ЕКО 
р МОВМ = ZERO 
DO 107=1, М Е 
р МОКМ = AMAXI1(ABS(Q(J))+ АВЅ(Е(Ј)), DNORM) 
рО 200 КК-1, М 
K=N+1- КК . 
TEST FOR SPLITTING OR RANK DEFICIENCIES, 
FIRST MAKE 
TEST FORLAST DIAGONAL TERM, Q(K), 
BEING SMALL. 
IF(K .ЕО. 1) СО ТО 50 
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30 


49 


50 


55 
60 


ТЕСОТЕЕ(РМОВМ «ОСК», DNORM)) . 50, 25, 50 
SINCE ОСК) IS SMALL WE WILL MAKE А SP- 
ECIAL PASS ТО ТВАМ.Е(К) ТО 0 

CS = ZERO 

SN= -ONE 

DO 40 1= 2, К 

I=K+1- II 

F= - SN* E(I+1) 

E(I+1)=CS=EC(GI+1) 

CALL G1 (0(1), F, CS, SN, Q(D) 
TRANSFORMATION CONSTRUCTED TO ZERO PO- 

SITION (I, K). 

IF(.NOT.WNTV) СО TO 40 

DO 30 J=1, NRV 

САНЫ, 6%С5, SN, VO, D, VOJ, К)) 

ACCUMULATE RT.TRANSEORMATIONS IN V 

CONTINUE 

THE MATRIX IS NOW BIDIAGONAL, AND OF LO- 
WER ORDER SINCE Е(К).ЕО.0 

DO 60 LL=1, K 

L=K+1-LL 

IF(DIFF(DNORM+E(L), DNORM)) 55, 100, 55 

IF(DIFF(DNORM + Q(L-1), DNORM)) 60, 70, 60 

CONTINUE | 

THIS LOOP CAN, T COMPLETE SINCE Е(1) = ZERO 

GO TO 100 

CANCELLATION ОҒ ЕСІ), L.GT.1. 

CS= ZERO 

SN= -ONE 

DO 90 I=L, К 

= — SN + (I) 

E(I)=CS + ЕСТ) 
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rerDIFFIDNORM+E，PDNORM)) 75, 100, 75 
75 CALL С1(ОСТО, Е, CS, SN, Q(1)) 
ІЕ(.МОТ.НАУЕВ5) СО ТО 90 
DO 80 1-1, МСС 
80 CALL G2(CS, SN, C(I, J), C(L-1, Ј)) 
90 CONTINUE 
С TEST FOR CONVERGENCE 
100 Z=Q(K) 
IF(L.EQ.K) СО ТО 170 
С SHIFT FROM BOTTOM 2 BY2 MINOR OF B= * (T) e : 
X=Q(L) | 
Y=Q(K-1) 
G=E(K-1) 
H=E(K) 
F=((Y-Z)* (Ү+2) + (С-Н) • (G+H)/(TWO * Н* Y) 
_С=5ОВТ(ОМЕ+Е* • 2) 
IF(F.LT.ZERO) GO TO 110 
T=F+G 
GO TO 120 
110 T=F-G 
120 Е=((Х-7,)*(Х+7)+Н* СУ/Т-Н))/Х 
С МЕХТ ОВ SWEEP | 
С5-ОМЕ | 
 SN=ONE 
LP1=L+1 
DO 160 І-ІРІ, K 
G=E(I) 
Ү=0(1) 
Н=5М,С 
G=CS*G 
= CALL G1(F, H, CS, SN, Е(1-1)) 
ЕЕХ + С$+С * $М 
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С= -Х*+5М +G* C S 
H=Y* SN 
Y=Y*CS 
IF(.NOT.WNTV) GO ТО 140 
ACCUMULATE ROTATIONS (FROM THE RIGHT) IN 
“у”, | 
рО 130 2-1, МКУ 
130 CALL G2(CS, SN, у], 1-1), У D) 
140 CALL СІСЕ, H, CS, SN, О(1-10) 
Е=С5 *С+ 5М* У 
X=—SN*G+CS * У 
ІЕС. МОТ.НАУЕКЅ) СО ТО 160 
DO 150 Ј=1, МСС | 
150 CALL G2(CS, SN, C(I-1, J), СА, J)) 
APPLY ROTATIONS FROM THE LEFT TO RIGHT S 
IDES INC’, 
160 CONTINUE 
ЕГ) =ZERO 
ЕК) =F 
Q(K)=X 
NQRS =NQORS+1 
IF(NQRS.LE.N10) СО ТО 20 
RETURN TO TEST FOR SPLITTING’ 
FAIL = .TRUE， | 
CUTOFF FOR CONVERGENCE FAILURE NORS WIL 
LBE 2. NUSUALLY. 
170 IF(Z.GE.ZERO) GO TO 190 
Q(K)= -Z 
IF(.NOT.WNTV) GO TO 190 
DO 180 J=1, NRV 
180 УЧ, K)= — VG, K) 
190 CONTINUE 


200 


210 


220 


230 


240 
250 


260 


270 


СОМУЕКСЕМСЕ.О(К) IS MADE NONNEGATIVE». 
CONTINUE 
ІЕ(М.Е0.1) RETURN 
РО 210 I=2, N 
IF(Q(D .GT.Q(I-1)) GO TO 220 
CONTINUE 
ІР (FAIL) IPASS=2 
RETURN 
EVERY SINGULAR VALUE JS IN ORD" " 


` DO 270 I=2, N 
 T=Q(I-1) . 


К=1-1 
DO 230 1-1, N 
ІЕСТ.СЕ.О()) СОТО 230 
T=G(J) 

K=J 

CONTINUE 
IF(K.EQ.I-1) GO TO 270 
Q(K) = Q(I- 1) 


-0а-ы-т 


ІЕ(.МОТ,НАУЕВ5) СОТО 250 


“рО 240 1-1, NCC 


T=C(I-1, 1) 
са-1, D) =C(K, J) 
са, J)= T 
ІЕ(.МОТ.УУМТУ) GO TO 270 
DO 260.J=1, NRV 
Т= У, 1-1) 
VG, 1-1) = УС, K) 
ҮС, K)=T 
СОМТІМОЕ 
END ОЕ ORDERING ALGORITHM 
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20 


30 


40 


IF(FAIL) ІРА55-2 
RETURN 
END 


SUBROUTINE LDP(G, MDG, M, N, H, X, XNORM, 


W, INDEX, MODE) 


* ж *LEAST DISTANCE PROGRAMMING * 


INTEGER INDEX (M) 


DIMENSION G(MDG, N), НОМ), ХОМ), W(1) 


ZERO = 0.0 ` 

ОМЕ-1,0 

ТЕСМ.ГЕ.0) СО ТО 120 
DO 10 J=1, М 
ХО) = ZERO 
XNORM = ZERO 


 IF(M.LE.0) GO TO 110 


IW=0 

DO 30 J=1, М 
DO 20 I=1, N 
IW=IW+1 
МОМ) = G(J, 1) 
IW=IW+1 
WGW) = НС) 
IE=IW+1 


STORE N ZEROS FOLLOWED BY A ONE INTO F 


DO 40 1=1, N 
IW=IW+1 
W(IW)=ZERO 
W(IW+1)= ONE 
NP1= N+1 
IZ=IW+2 

ТУ = 17 + МР1 
IWDUAL=IY +M 





-гт--------- 
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САМ, NNLS (W, МР1, NPIL, М, WOIE), WOY), RN 
ORM,W(IWDUAL), W(IZ), INDEX, 1МОБЕ) 
С - USE THE FOLLOWING RETURN JF UNSUCC - 
с о ESSFULIN NNLS 
IF(MODE .NE.1) RETURN 
IF(RNORM) 130, 130, 50 
50 FAC= ONE 
IW=IY-1 
DO 60 I=1, M 
IW=IW+1 | 
С ' НЕВЕ МЕ АВЕ USING THE SOLUTION VECTOR Y 
69 FAC=FAC-H(I)* W(IW) 
IF(DIFF(ONE + FAC, ОМЕ)) 130, 130, 70 
70 FAC=ONE/FAC 
DO 90 J=1, N 
IW=IY-1 
DO 80 1-1, M 
IW=IW+1 
88 X(J)=X(J)+G(I, J) * WOW) 
99 X(J)= X(J) * FAC 
DO 100 1-1, N 
100 ХМОКМ = ХМОВМ + Х(Ј) * + 2 
XNORM = SQRT(XNORM) 


С SUCCESSFUL RETURN 
110 МОРЕ=1 | 
RETURN 
С ERROR RETURN.  N.LE.0 
120 МОРЕ = 2 | 
RETURN 
C RETURNING WITH CONSTRAINTS- МОТ 
СОМРАТІВІЕ | К 


130 МОРЕ = 4 
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а со. 


20 


30 


КЕТ», 2. 


END БЕ | 

SUBROUTINE NNLS(A, MDA, М, М, В, X, RNORVM. 

үу, ZZ, INDEX, МОРЕ) 

* + x NONNEGATIVE LEAST ЗОЧАВЕЗ * +>» 
DIMENSION АСМРА, М), B(M), X(N). МСМ), 22 СМО 
INTEGER INDEX(N) 

ZERO=0.0 
ОМЕ=1.0 
TWO= 2.0 
ЕАСТОК =0.01 
МОРЕ = 1 
ТЕСМ.СТ.0.АМР.М.СТ.0) СО ТО 19 
МОРЕ = 2 
RETURN 
ТТЕВ = 0 
ІТМАХ =3 * М 
INITIALIZE THE АВВУЗ ПМОЕХ( ) AND ХО» 
ОО 20 І-1, N 
Ха) = ZERO 
ІМБрЕХ(Т) =] 

І72-М 
І21-1 
МЅЕТР = 0 
NPP1 = 1 
* ж + MAIN LOOP BEGINS НЕВЕ * * * 
CONTINUE | 
QUIT IF ALL COEFFICIENTS АВЕ ALREADY ІМ 
ТНЕ 
SOLUTION ОК ТЕ М COLS ОҒ А HAVE BEEN 
TRIANGULARIZED 
IF(I1Z1.GT.IZ2.OR.NSETP.GE.M) GOTO 359 
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G O сс 


40 
50 


60 


70 


80 


СОМРОТЕ СОМРОМЕМТ$ OF THE DUAL (NEGAT- 
IVE GRADINT)VECTOR W( ) 
DO 50 12-171, 172 
J= INDEX(IZ) | 
SM= ZERO ` 
DO 40 L= NPP1, М 
SM= SM+ A(L, J) * ВА.) 
W(J) = SM 
FIND LARGEST POSITIVE МЈ) 
WMAX = ZERO 
DO 70 12=171, IZ? 
1-ІМРЕХ(127) | 
IF(W() ТЕ МУМАХ) СО ТО 70 
WMAX = WO) | 
IZMAX = 1Z 
CONTINUE 
IF WMAX.LE.0，GOTO TERMINATION .THIS IND- 
ICATES SATISFACTION 
ОЕ THE KUHN-TUCKER CONDITIONS 
IF(WMAX) 350, 350, 80 
IZ= IZMAX 
J= INDEX(IZ) 
THE SIGN ОЕ W(J) IS OK FOR J ТО BE MOVED 
TO SET P.BEGIN THE TRANS 
-FORMATION AND CHECK NEW DIAGONL ELEM- 
ENT TO AVOID NEAR LINEAR DEPENDENCE 
ASAVE = A(NPP1, J) 
CALL H12- (1, МРРІ, МРР1+1, M, AG, J), 1, UP, D- ` 
UMMY, 1, 1, 0) 
UNORM = ZERO 
IF(NSETP.EQ.0) GO TO 100 
DO 90 L=1, NSETP ` 
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9% 'UNORM=ÚNORM+AC(L, J) • + 2 
100. UNORM = SQKT(UNORM) 
IF(DIFF(UNORM + ABS(A(NPP1, J)) * FACTOR, UNO- 
ВМ))130, 130, 110 Е 
J10 DO 120 L=1, M 
120 ZZ(L)=B(L) — 
САШ,Н12(2, МРР1, МРР1+1, М, А, J), 1, UP, ZZ, 
1, 1, 1) | | 
ZTEST=ZZ(NPP1)/A(NPP1, J) 
C SEE IF ZTEST IS POSITIVE 
IF(ZTEST)130, 130, 140 
130 А(МРР1, J) = АЅАУЕ 
W(J) = ZERO 
GO TO 60 
140 .DO 150 L=1, M 
150 Ва) = ZZ(L) 
INDEX(IZ) = INDEX(1Z1) 
INDEX(IZ1) = J 
171 = 171+1 
МЅЕТР =МРР1 
МРР1 = МРР!1 + 1 
IF(IZ1.GT。.IZ2) СО ТО 170 
рО 160 72-171, 172. 
JJ= INDEX(JZ) | 
160 CALL Н12(2, МЅЕТР, МРР1, М, АС, J), 1, UP, А 
(1, JJ), 1, МДА, 1) 
170 CONTINUE 
ТЕ(МЗЕТР.ЕО.М) СО ТО 190 
РО 180 L= МРРІ, М 
180 A(L, J)= ZERO 
190 CONTINUE 
WG) = ZERO 
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С SOLVE THE TRIANGULAR SYSTEM STORE THE 
SOLUTION TEMPORARILY IN ZZ(` 
ASSIGN 200 TO NEXT 
GO TO 400 
200 CONTINUE | 
* + SECONDARY LOOP BEGINS HERE • * + ITER- 
С ATION COUNTER 
210 ITER= ITER+1 
IF(ITE ,LE .ITMAX) СО ТО 220 
MODE = ? 
WRITE(6, 440) 
GO TO350 
220 CONTINUE 
ALPHA = TWO 
DO 240 IP=1, NSETP 
'L=INDEX(IP) 
IF(ZZ(IP))230, 230, 240 
230 T= -X(L)/(ZZ(IP)-X(L)) 
IF(ALPHA.LE .T) СО ТО 240 
ALPHA = T 
JJ= IP 
240 CONTINUE 
С IF АМ, NEW CONSTRAINED СОЕҒЕЅ АВЕ FE- 
ASIBLE THEN ALPHA WILL 
STILL-= 2.IF EXIT FROM SECONDARY LOOP ТО 
С MAIN LOOP | | 
IF(ALPHA.EQ:TWO) GO ТО 330. 
DO 250 IP=1, NSETP 
L= INDEX(IP) 
X(L)=X(L)+ ALPHA * (ZZ(IP) - ХОУ» 
SET P TO SET Z 
_ I=INDEXGDP 


e 
сл 
©з 


СҮ 
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260 ХО) = ZERO 
ІЕ(77.ЕО.М5ЕТР) GO ТО 290 
П-277%1 
DO 280 1-/, М5ЕТР 
П-ІМГрЕХСУ) 

ІМрБЕХ(1-10- ПІ | 
CALLG1KAQGQ- 1, П), АС, 11), СС, SS, А«<1-1, iD- 
А(Ј, П) = ZERO 
DO 270 L=1, N | 
IE(L.NE,II) CALLG2(CC, SS, А(7-1, Г), АО, EL 

270 CONTINUE 

280 CALL С2(СС, SS, B(J- 1), B(J)) 

290 NPP1= NSETP 
NSETP= NSETP-1 
І21-171-1 
INDEX(1Z1) = I 
DO300 JJ=1, NSETP 
I=INDEX(JJ) 

ІЕСХОО) 260, 260, 300 

300 CONTINUE 
РО 310 1=1, М 

310 2761) = B(I) 

ASSIGN 320 ТО МЕХТ 
СО ТО400 

320 CONTINUE 
GO TO 210 
«ж END ОЕ SECONDARY LOOP = + * 

330 DO 340 ІР-1, МЅЕТР. 

| I= INDEX(IP) 

340 X(I)=Z(IP) | | 
ALL NEW СОЕҒЕЅ ARE POSITIVE .LOOP BACK ТО 
BEGINNING 


; 4133” 
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350 


360 


370 


380 
390 


400 


GO ТО 30 
»» *END ОЕ MAIN LOOPe* = 
SM= ZERO 
IF(NPP1.GT.M) СО ТО 370 
РО 360 1= NPP1, M 
ЭМ = ЭМ + В(1) * * 2 


СОТО 390 


DO 380 1-1, М 

W(D = ZERO 

RNORM= SQRT(SM) - Ң ` 

RETURN 

THE FOLLOWING BLOCK OF CODE IS USED AS 
AN INTERNAL SUBROUTINE 

ТО SOLVE THE TRIANGULAR SYSTEM.PUTTING 
THE SOLUTION IN ZZ( ) 

DO 430 L=1, NSETP 

IP= NSETP+1-L 

IF(L.EQ.1) GO TO 420 

DO 410 П=1, ІР 

277.10 =ZZ(II)~A(II，JJ) * ZZ(IP+1) 

JJ = INDEX(IP) 

ZZ(IP) = ZZ(IP)/A(IP, JJ) 


. GO TO NEXT, (200, 320) 


БОКМАТ(35НО NNLS QUITTING ON ITERATION 
COUNT) 

END 

SUBROUTINE H12(MODE, LP, L1, M, U, IUE, UP, 
C, ICE, ICV, NCV) 

CONSTRUCTION AND/OR APPLICATION OF A SI- 

NGLE HOUSEHOLDER 

TRANSFORMATION.. Q=I+U (U * * T)/B 

DIMENSIONU(IUE, М), C(1) 


.134° 


Q 


DOUBLE PRECISION SM, B 
ONE =1.0 О 
IF(0,GE.LP. OR,LP.GE,LI.OR,L1.GT.M) RETURN 
CL= ABS(U(1, ІРУ) | 
IF(MODE, EQ. 2)GOTO60 
DO 10 J=L1, M 
CL = АМАХ1(АВ$(0(1, J)), CL) 
IF(CL)130, 130,20 
СЫМУ = ONE /CL 
SM=(DBLE(U(1, LP))* CLINV)* «2 
DO 30 Ј=11, M 
$М = SM+(DBLE(U(1, Ј)) * СМУ) * +2 
SM1 = SM 
CL= CL* SQRT(SM1) 
IF(U(1, LP))50, 50, 40 
CL= -CL 
UP=U(1, ІР) - CL 
001, LP)= CL 
СО ТО 70 
» + APPLY THE TRANSFORMATION ItU*(U* *T) 
/В ТОС жж 
ІЕ(СІ,7130, 130, 70 
IF(NCV.LR.0)RETURN 
B= DBLE(UP) + U(1, ГР) 
IF(B)80, 130, 130 | 
В=ОМЕ/В 
12=1- ICV + СЕ * (LP-1) 
INCR = ICE (11-ТР) 
р0120 1-1, NCV 
12-І2-ІСУ 
13 = 12+ INCR 
14 = 13 
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$М = С(12) 。DBLE(CUE)- ^ 
DO 90 I=L1. М 
ЗМ = SM + СЗ) * DBLE(U(1, 00) 
30 ІЗ-ІЗ-ІСЕ 
IF(SM) 100, 120, 100 
100 SM= SM*B 
С(12)- С(12) + SM * DBLE(UP) 
DO 110 TI=E1，M 
См) = C(I4) + SM * DBLE(U(1, TD) 
110 14=14+ICE 
120 CONTINUE 
:30 RETURN ` 
END 
SUBROUTINE G1(A, B, С, S, R) 
COMPUTE ORTHOGONAL ROTATION MATRIX 
ZERO= 0.0 
ОМЕ-1.0 
IF(ABS(A).LE.ABS(B)) СО то1о 
ХЕ-В/А 
ҮК = SORT(ONE + ХВ * = 2) 
C= SIGN(ONE/YR, А) 
S=C*XR 
R= АВЅ(А) • YR 
RETURN 
10 1Е(В)20, 30, 20 
20 ХЕ-А/В 
УВ = ЅОВТ(ОМЕ + ХВ * • 2) 
S= БІСМ(ОМЕ/ҮВ, В) 
С= S * ХЕ 
R=ABS(B) * YR 
RETURN 
30 R=ZERO 
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+ 2 


C= ZERO 

5-ОМЕ 

RETURN 

END 

SUBROUTINE G2(C, S, X, Y) 


С APPLY THE ROTATION COMPUTED BY С! 
С (Х, Ү) 


XR=C=*X+S*Y 
У= -$*+Х+С*+У 
Х= ХК 
RETURN 
END 
FUNCTION DIFF (X, Y) 
DIFF=X- Y 
RETURN 
END 
对 于 上 述 的 数值 例子 ， 其 计算 结果 及 打印 格式 如 下 : 
EXAMPLE ОҒ CONSTRAINED CURVE FITTING US- 
INGTHE SUBROUTINE LDP. 
RELATED INTERMEDIATE QUANTITIES ARE GRV- 
EN, 


V = -0.46711 0.88420 
0.38420 -0.46711 
Е ТИРА= -1.53602 0.38402 -0.05353 0.17408 
S= — 2.25455 0.34571 | 
С TILDA = ~ 0,20718 2.55762 
-0.39219 -1,85115 
0,59937 -1,20647 
H TILDA= -1.30041 —-0.08354 0.38395 
МОРЕ (FROM LDP)=1 ZNORM= 0.28501 
2- 0,12680 -0.25525 


THE СОЕҒІСІЕМТ5 OF THE FITTED LINE ЕТ) = X 
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(1)* Т+Х(2) ARE ` 
X(1)= 0.62131 AND Х(2) = 0.37869 
THE CONSECUTIVE RESIDUALS ARE ` 
1 — 0.03401 2 -0.08934 
3 0.01066 4 0.32426 
THE RESIDUALS NORM 15 0.33823 


$ 3-6 带 惩罚 函数 的 阻尼 最 小 二 乘 算 
法 程序 和 实例 
本 程序 用 于 解约 束 条 件 下 (特别 是 线性 不 等 式 约束 ) 的 地 球 物 
理 反 演 问 题 。 方 法 原理 已 在 了 3-3 中 叙述 。 本 程序 是 按 照 一 个 
位 场 反 演 例子 编写 的 。 用 于 其 它 问题 时 应 作 适 当 改变 。 本 程序 用 
FORTRAN- 人 语言 编写 ， 包 括 四 个 子 程序 及 一 个 主 程序 。 
(一 ) 主要 标识 符 


1。 主 程序 





1，J，K 一 一 循环 控制 变量 ， 

M 一 一 参加 反 演 的 采样 点 数 (观测 点 数 ); 
RN 一 一 地 球 物理 模型 的 参量 数 ; 

1H 一 一 约 来 方程 个 数 ， 


DX 一 一 采样 间隔 或 测 点 距 (等 间隔 )， 
EC 一 一 用 实际 资料 或 理论 模型 作 反 演 的 注 制 变量 

ЕС -{° 实际 资料 反 演 ; 

1 理论 模型 反 演 。 

XM 一 一 理论 模型 的 参量 值 数 组 ， 
X0 一 一 反 演 模型 参量 初始 值 数组 ; | 
GE 一 一 包括 以 上 DX，EC，XO 等 参量 的 数组 ; 
G，C 一 一 约束 方程 所 构成 的 系数 矩阵 及 右 端 列 向 量 ， 
GM 一 一 实际 地 球 物理 观测 值 数组 ， 


.138° 





FUN1 迭代 过 程 中 每 一 循环 计算 的 理论 值 数 组 。 

2. ТЕНХАЗЦ(ХХ, FUN, М, М) 

计算 模型 体 正 演 问 题 理 论 值 的 子 程序 。 一 般 应 根据 具体 的 地 
球 物理 问题 自行 编制 。 本 例 是 计算 二 维 有 限 延 伸 板 状 体 的 磁 异 党 
值 。 其 中 | 

X- 一 一 模型 体 参量 数组 ; 

ЕОМ 一 一 地 球 物 理 理论 值 数组 。 

3。 子 程序 TEDU(X，GAC，FUNO，M，N) 

求 地 球 物理 理论 值 对 各 参量 的 偏 导 数 ， 形 成 Jacobi 和 矩阵 I 
导数 的 计算 采用 扰动 法 ， 步 长 为 1.0x 10°. HF 

GAC Jacobi ЖЕЖ ЖЕНЕ. 

4. 子 程序 QF(F, DG, В, GM, FUN, М) 

求 地 球 物 理 理论 值 与 实测 值 ( 或 理论 模型 试验 值 ) 偏差 平方 
和 。 其 中 

F 一 一 偏差 平方 和 ， 

DG 一 一 各 所 偏差 值 数组 НФ Е 

5。 子 程序 MAQT(D0O0，80，X0，V，FUN，GMH，G，C， 
М, М, ІН) 

带 惩罚 函数 的 阻尼 最 小 二 乘法 计算 过 程 。 








Жох 
卫 , 一 一 初始 阻尼 因子 vo; 
Хо 会 量 的 初始 数组 ; 








V 一 一 初始 惩罚 因子 。 其 余 同 上 。 

该 子 程序 中 还 有 一 些 主要 的 标识 符 ， 现 说 明 如 下 : 

FL 一 一 确定 约 东 满足 与 否 的 控制 数组 ; | 

E 一 一 惩罚 项 构成 的 矩阵 ; 

A 一 一 前 n 行 n 列 为 正则 方程 系数 第 阵 ， 第 n+ 1 列 为 方程 组 
的 右 端 项 ; | 

Ор 3 By AE 8; 


R 一 一 A 和 矩阵 对 角 元 素平 方 和 ; 

x 一 一 达 代 过 程 参量 的 改正 结果 。 

本 子 程序 迷 代 结束 标准 为 满足 下 列 两 个 不 等 式 之 一 : 
IF0- FI 和 BT， 本 程序 BEBW 取 10-3; 

ЖА IDAD>10 


(=) 程序 的 使 用 说 肖 
输入 按 下 列 顺序 进行 
(1) 控制 参量 和 初始 模型 参量 数组 GE， 
(2) 约束 方程 组 系数 矩阵 数组 С; 
(3) 约束 方程 组 右 端 项 数组 C， 
(4) 理论 模 弄 参量 数组 XM， 
(5) 实测 地 球 物理 观测 值 数组 GM. 
计算 结果 按 下 列 顺 序 打 印 : 
(1) 输出 全 部 初始 输入 数据 ， 
(2) 输出 每 次 送 代 的 次 数 IDAD ， 人 偏差 平方 和 FO ,阻尼 及 惩 
HATAS, | Е 
(3) 输出 反 演 结果 数组 X ， 以 及 反 演 计算 异常 数组 IFUN 。 
(=) 反 演 计算 实例 
”本 程序 给 出 用 乱 罚 函数 法 进行 反 演 计算 的 一 个 位 场 反 演 实 
例 。 选 用 二 维 斜 磁化 板 状 体 模型 。 该 模型 体 共有 七 个 不 同 的 参量 : 


МН ҚАНА (М: m) 
ФАЙЛА “(单位 : m) 


Хғ” 





мая ” (单位: m) 
27 一 一 模型 体 延 深长 度 CHi: m) 
a 一 一 模型 体 倾角 (单位 : (°)) 
9 一 一 磁化 方向 倾角 (单位 : (99) 


J 一 一 磁化 强度 (HM: 10-5CGSM) 
-140。 = 


理论 模型 的 参量 选择 为 


х(1) =х = 160т, х(2) =h = 60m, 
x(3) =2b = 20m, х(4) =2?1 = 50m, 
x(5) =a = 120°, x(6)=0=90°, 


x(7)=J=1500x 10-5CGSM， 
由 图 3-6-1 可 见 ， 若 采用 不 带 约 束 条 件 的 阻尼 最 小 二 乘法 
反 演 ， 尽 管 反 演 计算 得 到 的 位 场 曲 线 与 理论 计算 曲线 符合 得 很 








„тол ИИБ 
«с... 


и ҖЫ НУ 
БИН НАЛЫ АҢ Ж 


REA УН УМ 


wanana x m s w 





好 ,但 得 到 的 模型 体 与 原 设 模型 有 很 大 差异 ( 负 的 深度 ， 见 反 演 模 
型 1 ) 如 采用 约 东 条 件 反 演 ， 从 同一 初始 模型 出 发 ， 能 很 快 收 全 
于 正确 结果 ( 反 演 模型 2) ,约束 方程 组 为 
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x(1)= 200, x(2)= 100, х(4)- 2x(3)=< 20, 
x(5)=<120, х(6)=100, x(7)=< 1600 








£ УЕ ЖЕ 
| 1 0 0 0 0 0 о O | Xi] 200 
| 0 1 0 0 0 0 0 x ха | 10% 
| 0 0 1-2 0 0 0 | Xs | | 20 | 
о о 00 1 0 0 х, < 120 
о 0 0 0 0 1 011 x 100 
оо оо оо 1 |x 11600 
| jlx] ` | 


(М) FORTRAN-W 语 言 的 源 程序 


с . * MAIN PROGRAM “• • 
IMPLICIT REAL*8(A-H, О-2) 
DIMENSION GE(10), G(6, 7), C(6) 
DIMENSION XM(7), X0(7), FUN1(30), GM(30) 
COMMON ХК(30), ZK(30) 

М= 30 

N=7 

IDIT=0 

V=1.0 

В-0.0 

ІН-6 

В=0.0 

ВЕАО(5, +) (GE(I), 1=1, 10) 

WRITE(6，20) СЕ 
20 FORMAT(5H0GE = 10Ғ10,3) 

READ (5, *) ((СЧ, J) 7-1, М), І-1, ІН) 

‚ WRITE(6, 30) ((СА, J), 1-1, №, I=1 ІН) 
30 FORMAT (5HOBE = 7Е10.3/(5Х, 7Е10.3)) 

READ (5, +) (С), 1=1, ІН) 
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WRITE(6，40) С 
40 БОВМАТӨН0О C=, 7F10.3) 
DX = GE(1) 
DC = GE(2) 
EC = GE(3) 
DO 45 І-1, М 
45 XK(I)=(I-1)* DX 
JF(DC) 70, 70, 50 
50 ВЕАБ(5, «) (ZK(I), 1=1, M) 
70 DO 80 I=1, M 
80 ZK(I)=0.0 
90 DO 100 I=1, М 
100 X0(1)= GE(3+ 1) 
IF(EC)130, 130, 110 
110 READ(5, *)(ХМ(1), Із1, М) 
WRITE(6，120)XM 
120 FORMAT(5HOXM= 7Ғ10,3) 
САМ, XASU(XM, GM, M, N) 
GO TO 140 
130 READ(5, *) (GM(I), I=1, М) 
140 WRITE (6, 150)(GM(I), І-1, М) 
150 FORMAT(5X, 10F10.3/(5X, 10F10,3)) 
200 IDIT=IDIT+1 | о 
ТЕ(ІБІТ,бТ,10) СО ТО 260 
CALL МАОТ(1,00-1, В, X0, V, FUNI, СМ, G, С, М, 
М, ІН) 
DO 220 1-1, N 
IF(X0(J)) 210, 220, 220 
210 X0(J)= — X0(J) 
220 CONTINUE 
DO 250 I=1, IH 
US=0.0 
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230 


240 


250 


260 
270 


170 
300 


БО 230 7-1, N 
US=US+G(I, J)* X0(J) 
IF(DABS((US-C(I))/C(I)).LT,.0.1)GOTO250 


V=5.0*V 


GO TO 200 
CONTINUE 
WRITE(6, 270) IDIT, V, Х0 
FORMAT(1HO, “ПІТ = ? 12, 2X, “У-”, F15.1, 2X, 
‘XO =’ ,7E12.3) ` 
WRITE(6，170) (FUN1(1), I=1, М) 
FORMAT(6HOFUN1=, 10Ғ12,3/(6Х, 10F12,3)) 
STOP 
ENG 
‚+ THIS SUBROUTINE MINIMIZES THE ОВЈЕСТІ- 
VE FUNCTION USING - 
THE CONSTRAINED AND DAMPED LEAST SQUA 
RES METHOD ж. О 
SUBROUTINEMAQT(D0, B0, ХО, У, FUN, СМ, С, С, 
М, М, ІН) | | 
IMPLICIT REAL*8(A-H, О-2) 
DIMENSION Х0(М), G(IH, М), COH), FUN(M), GM- 
M) | 
DIMENSION FL(6), G2(7, 6), X(7), B(8) 
DIMENSION GAC(30, 8), A(8, 8), DG(30), СВ(7), GB- 
(7), Е(7» 7), R(8), Q(8) | 
D=D0 | 
ІШАр-0 
ІВ- М1 
ЕУ -1,00-3 
CALL XASU(X0, FUN, M, м ) 
CALL QF(F0, DG, B0, GM, FUN, M) 
WRITE(6, 270) F0, D, Хо 
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30 D=D/1 a 
ІШАр-ІрАРр-1 
WRITE(6，* ) IDAD 
DO 50 1=1, ІН 
0$=0.0 
DO 35 Ј=1, М 
35 US=US+G(CI，J)* Х0(Ј) . 
IF(DABS(US- С(1))-5.0)” 45, 45% 40 ` 
40 FL(I)=1,0 
СОТО 50 
45 FL(I)=0.0 
50 CONTINUE Е 
CALL TEDU(X0, САС, FUN, М, М) 
РО 60 І-1, М 
60 GAC(I，IB)=DG(I) 
DO 80 І-1, М 
DO 80 7-1, IB 
A(I, 73-0,0 
DO 70 К=1, М 
70 A(L J)=A(I, J)+GAC(K, D + GAC(K, J) 
80 CONTINUE 
DO 100 I=1, N 
НЕ-0,0 
DO 91-1, ІН 
G2(I, Ј) = FL(J) + G(J, 1) 
90 HF= HF+G2(I, Ј) * С(Ј) 
CB(I)=HF 
100 CONTINUE 
DO 120 1=1, М 
DO 120 К=1, N 
HF=0,0 “ 
DO 110 J=1, IH 
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110 НЕ=НЕ+62А, Ј) GG, К) 
ЕСТ, К)=НЕ 
120 CONTINUE 
РО 140 Ісі, М 
GB(I)=0,0 ` 
DO 130 J=1, N 
АС, J)=A(I, J)+ V * E(I, J) 
130 GB(I)= GB(I) +E(I, Ј) • X0(J) 
СВ) = V * (GB(I) ~ СВ(1)) 
А (1, ІВ)-А(1, ІВ)- GB(I) 
R(I)= DSQRT(A(I, D) 
IF(R(D).EQ.0.) WRITE(6, =) R(D 
140 CONTINUE 
DO 160 I=1, N 
IG=I+1 
IF(IG.GT.N) GO TO 155 
DO 150 J=IG, М 
150 AG, J) = А(І, J)/R(D/R(J) 
155 А(1, IB)=A(I, 1В)/К(1) 
160 CONTINUE 
165 DO 200 I=1, N 
X(I) =D+1.0 
IG=I-1 
IF(IG,LT,1) СО ТО 170 
DO 170 К-1, ІС 
B(K)=X(K) + АСТ, К) 
хр =X(D ~ B(K)*A(I, K) 
170 CONTINUE 
ТЕ =1+1 
DO 190 )-ІЕ, ІВ 
о АСЯ, I)=A(I, J) 
IF(IG.LT.1) СО ТО 199 
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180 
190 
200 


201 


210 
202 


205 
220 


250 


260 


270 


280 


DO 180 К-1, 16 

АС, О-А(), О)-В(К) «АСУ, K) 

AG; D=AG, D/X D “` o 

CONTINUE | 

DO 220 I=1, N 

K=N-I+1 

L=K+1 

IF(L.GT.N) GO ТО 202 

DO 210 J=L, N 

А(ІВ, K)=A(IB, K)- А(Ј, К) * A(IB, J) 

Q(K)=A(IB, K)/R(K) 

X(K) =X0(K)+Q(K) 

IF(X(K)) 205, 220, 220 

X(K)=-X(K) 

CONTINUE 

CALL XASU(X, FUN, M, N ) 

CALL QF(F1, DG, ВО, GM, FUN, М) 

IF(F1- F0) 250, 250, 280 

S=(F0- Е1)/Е1 

F0 = F1 

DO 260 1-1, N 

XAD =X(1) 

WRITE(6, 270) F0, D, X0 

FORMAT(1H0, “Ғ0-?”, E15.5, 2X, ‘D=’, F14.7, 2X, 
“Х0-”, 7F12,3/(25X, 7Е12,3)) 

IF(IDAD.LT.10, AND., S.GT.EW)GOTO 30 

GO TO 300 | 


Р= + 109.0 
IF(D.GT.1.0D8) СО ТО 300 
СО ТО 165 

WRITE(6，310) ЕОМ 


FORMAT(5HOFUN = 10Е12.3/(5Х, 10612,3) 
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RETURN 
END | | | 
«ж COMPUTE MODEL FUNCTION F(X) ы» 

SUBROUTINE XASU(X, FUN, М, N) ` 
‚ IMPLICIT REAL* 8А -Н, O-Z) 
DIMENSION X(N), FUN(M) 

COMMON XK(30), ZK(30) 
РІ-3,1415926500/180,0 
AA=DSIN(CX(5)*PI) 

BB = DCOS(X(5) * РГ) 

CC = DSIN(X(6) + РІ) 

DD = DCOS¿(X(6) «РГ 

DO 10 K=1, M 

A =X(2)- ZK(K)+X(4) * AA/2.0 

В= Х(2) - ZK(K)— Х(4) * AA/2.0 

С= ХКК) - (1) + Х(4) + ВВ/2,0 

D = ХК(К)- Х(1) - Х(4) * BB/2.0 

Е= С+Х(3)/2,0 

Е=С- Х(3)/2,0 

G= р + Х(3)/2,0 

H=D- Х(3)/2,0 

О=(В*В+Е* Б) * (А А +6 •* 6) / (Ве В+Е + Е) /(А *A + 

Н *Н) 

У= Х(3) * В/(В*В+С*С-Х(3)*Х(3)/4.0) 
W=X(3) А/КА * A+ D + р- X(3) + X(3)/4.0) 
U = DLOG(U) 

V=DATAN(V) 

W= DATAN(W) 

FUN(K)=2.0* Х(7) * AA*((DD*AA-CC*BP) 
/2.0*U+(DD *BB+CC * АА) + (V — W)) 

10 CONTINUE 
300 RETURN 
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END 
° ° THIS SUBROUTINE COMPUTES THE SUM OF 
THE DEVIATION 
SQUARE VALUES OF FUNCTIONS e e 
SUBROUTINE QF (F, DG, B, GM, FUN, M) 
IMPLICIT REAL + (А -Н, O- 2) 
DIMENSION DG(M), GM(M), FUN(M) 
F=0.0 
DO 1000 К=1, М 
DG(K) =GM(K)- FUN(K)-B 
F=F+ DG(K) * DG(K) 
1000 CONTINUE 
RETURN 
END 
жж COMPUTE JACOBI MATRIX САСж. 
SUBROUTINE TEDU(X, GAC, FUN0, M, N) 

IMPLICIT _ REAL *8(A -H, О-7) 
DIMENSION X(N), GAC(M, N), FUN(30), FUN0(M 
DO 11 К=1, M 

11 FUN(K)=FUNO(K) 
DO 131=1, М 
X(1)=X(I)+1D-5 
CALL XASU(X, FUN0, M, N) 
X(I)=X(I) - 10-5 
DO 12 ]Ј=1, М 

12 GAC(J, 1) =(FUN0(J)- ЕОМ(Ј))/10 -5 

13 CONTINUE | 
ВЕТОК М 
END 


83-7 可 变 容 限 算 法 程序 和 实例 
本 程序 用 于 解 一 般 非 线性 规划 问题 。 使 用 了 单纯 形 加 速 法 计 
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算 目标 函数 极 小 。 该 程序 用 FORTRAN-T 语言 编写 ， 包 括 五 
个 子 种 序 和 一 个 主 程序 。 寡 数 的 信息 传递 全 部 由 公共 区 党 成 。 
_ (一) 主要 标识 符 
I、J、K 一 一 循环 控制 变量 ， 
NX 一 一 参量 总 数 ， 
NC 一 一 等 式 约 东 总 数 ， 
NIC 一 一 不 等 式 约 东 总 数 ， 
STEP 一 一 单纯 形 多 面体 的 大 小 1 
CONVER 一 一 结束 搜索 的 收敛 标准 s; 
ALEFA 一 一 反射 系数 3 
BETA 一 一 收缩 系数 B， 
GAMA 一 一 扩张 系数 Y， 
ICONT 一 一 记录 迭代 次 数 的 计数 单元 ; 
”NCONT 一 一 打印 每 一 (NX+1) 步 的 计数 单元 ; 
FDIFER 一 一 违反 约束 的 容 限 标准 $; 
工 DW 一 一 旦 标 函 数 最 低 值 指标 ; 
LHIGH 一 一 目标 函数 最 大 值 指 标 ， 
LSEC 一 一 目标 函数 第 二 最 大 值 指 标 ， 
XX 一 一 初始 搜索 点 ， 
X1，X2 一 一 多 面体 各 顶点 坐标 数组 ， = 
R 一 一 目标 函数 及 等 式 不 等 式 约束 的 值 的 数组 。 
以 下 为 各 子 程序 的 功能 : 
(1) FEASBL RTO) 极 小 以 寻求 可 行 或 非 可 行 点 的 ТЖ 
序 。 通 常 当 违反 约束 情况 的 组 合 值 大 于 容 限 标准 时 被 调用 一 次 。 
(2) START 计算 初始 多 面体 各 顶点 坐标 的 子 程序 。 
(3) SUMR 计算 违反 约束 方程 的 值 的 平方 和 ， 以 便于 与 容 
ВЕНЫ. = 
(4) WRITEX 输出 打印 目标 函数 ， 等 式 、 不 等 式 约 东 和 结 
150. | | 


y 








MERTE. | | | | 
(5) PROB(INQ) 把 要 解 的 问题 引入 到 计算 程序 中 。 其 中 


虚 元 
| | 1 表示 等 式 约束 ， 
ІМО =! 2 表示 不 等 式 约束 ， 
. 8 表示 目标 函数 。 
(с) 程序 的 使 用 
。 子 程序 PROB(INQ) 的 组 织 


б 在 说 明 语句 “EQUATITY CONSTRAINTS” 之 后 写 入 
АР | 
1 R(1) =h,(x), | 
В(т)=й„(х). 
(2) 在 说 明 语句 “INEQUALITY CONSTRAINTS” 之 后 
写 入 不 等 式 约束 
2 В(т+1) = в„+:(%), 
| В (р) = (Хх), 
(3) 在 说 明 语句 “OBJECTVE FUNCTION” 之 后 写 入 目标 


? 


函数 
3 R(p+1)= D(X). 
如 果 问 题 不 包含 等 式 约 束 (m= 0)， 则 在 标号 1 后 不 写 入 任 
何 语句 ， 且 Кон + 1) 变 为 R(1)。 同 样 如 有 等 式 而 无 不 等 式 约束 
标号 2 后 面 略 去 任何 语句 ， 使 R(p+ 1) = КОт +1): 在 无 约束 情 
况 下 RC(p+1)=R(1)。 | 
”2， 第 一 批 输入 参量 NX, МС, МІС, SIZE, CONVER 等 
其 中 CONVER = еН] 91075851075 SIZE = t, ЖА 
КЕШЕ АР, хЕТЯЙЕН, M: 
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(1) ВЗАМЕН АНИ, SIZP 了 209* 的 上 
下 界 之 差 。.… 

(2) наданнан нл, 则 取 SIZE КЕ 
界 之 差 最 小 的 值 。 | 

з) Желе оН, 


(=) 计算 实例 


用 本 程序 计算 了 以 下 非 线性 规划 问题 
min Ф(х) = 4х. — x$ — 12. 
满足 约束 条 件 
h, СЖ) = 25 ~ Х4-х%-0, 
8.00) = 10х, -xi + 10x, -xi - 34220, 
gI (X) =x,>= 0, 
gX) =x,= 0. | 
当初 值 取 为 X07= (1,1), #=0.3, $ 0) =2(т+1)ғ = 1.2 
时 ， 其 搜索 轨迹 及 迷 代 次 数 如 图 3-7-1 所 示 。 最 后 计算 前 结果 为 


Хх” =(1.001, 4.989), 


259 x? -xi =À 
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Ф(х’)= 7 21.992. 


0020 (9) FORTRAN- 语言 源 程 序 | 


* ж * PROGRAM FLEXIPLEX * ** 

DIMENSION X(50), X1(50, 50), Х2(50, 50), R(100), 
SUM(50), F(50), SR(50), Е 
1ROLD(100), Н(50) 

СОММОМ/А/МХ, МС, МІС, STEP, АІ РА, ВЕТА, GA ` 
МА, ІМ, INF, FDIFER, SEQL, Ki, K2, 

K3, K4, K5, Кб, K7, K8, K9, X, X1, X2, В, SUM, 
F, SR, ROLD, SCALE, FOLD | 

СОММОМ/ВЛ,ҒЕА85, L5, 16, 17, 18, 19, ВІА, К?А, 
ЁЗА 

PROBLEM IDENTIFICATION HEADER IS READ ІМ 
AFTER THIS CARD i 

PARAMETERS FOR THE PROBLEM ARE READ IN 
AFTER THIS CARD 

ВЕАО(5, 1) NX, NC, МІС, SIZE, CONVER 

ALFA =1, | 

ВЕТА =0.5 

GAMA =2, 

TIME =1, 

PERMANENT DATA FOR THE PROBLEM SHOULD 
BE READ IN AFTER THIS CARD 

TEMPORARY DATA FOR THE PROBLEM, SUCH AS 
VARIABLE COEFFICIENTS OR 

NEW PARAMETERS SHOULD BE READ IN AFTER 
THIS CARD 

STEP = SIZE 

THE ASSUMED INITIAL VECTOR IS READ IN AF- 
TER THIS CARD 

READ(5, 2) (Ха), Ікі, NX) 
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11 WRITE(6, 106) 
ҮҮЕКІТЕС6, 759) 
WRITECG, 756) NX,NC,NIC, SIZE, CONVER, TIME 
K1=NX+1 
К2= МХ + 2 
Кз = МХ + 3 
К4= МХ + 4 
K5= МХ +5 
K6 = NC + МІС 
К7 = МС +1 
K8 = МС + NIC 
К9= К8+1 
N = МХ - МС 
№ = М+1 
ТЕМ .СЕ.3) СО ТО 50 
N1=3 
N=2. 

50 N2=N+2 
N3=N+3 
N4=N+4 
N5=N+5 
N6=N+6 
N7=N+7 ` 
№ = М+8 
XN=N = 
ХМХ = МХ 
XN1= № 
ВІА = 0,5 • (ЗОКТ(5.)-1.) 
В2А = В1А + RIA 
ВЗА =В2А * RIA 
15= МХ +5 
1.6 = МХ + 6 
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341 


237 


1.7 = МХ +7 
18 = МХ +8 ` 
1.3 = МХ +9 
ІСОМТ-1 
МСОМТ =1 
WRITE(6, 115) 
ҮУЕІТЕ(6, 116) (ХФ, 2-1, МХ) 
FDIFER=2.s。(NC+1I) * STEP 
FOLD = FDIFER 
IN=N1 
CALLSUMR 
SR(N1) = SQRT(SEQL) 
WRITE(6, 763) FDIFER, SR(N1) 
IF(SR(N1),LT,FDIFER) GO TO 341 
CALL WRITEX 
WRITE(6, 757) 
INF=N1 | 
5ТЕР-0,05» FDIFER 
CALL FEASBL 
WRITE(6, 764) 
WRITE(6, 116) (X2(INF, J), 1-1, NX) 
WRITE(6, 765) SR(INF) 
IF(FOLD ТТ,1.0Е-9) GO TO 80 
WRITE(6，35) s 
WRITE(6，758) ICONT, FDIFER 

CALL WRITEX 

FTER = К(К9) 
COMPUTE CENTROID ОЕ ALL VERTICES OF INIT- 

TAL POLYHEDRON | 
STEPI = STEP * (ЗОВТ(ХМХ +1.)+ХМХ-1.)/(ХМХ» 
5ОВТ(2,)) 
STEP2= STEP* (ЗОВТ(ХМХ+1.)-1 /CANX + SORT 
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‚ (9,9) 
ЕТА = (ЗТЕР! + (ХМХ-1.) + ЗТЕР2)/(ХМХ +1.) 
DO 4 J=1, МХ 
X(J)=X(J)-ETA ` 
4 CONTINUE 
САШ, START 

DO 9 I=1, N1 
DO 9 J=1, NX 
х2а, J)=X1(I, J) 

9. CONTINUE 
DO 5 I=1, МІ 
IN=I 
DO 6 J=1, NX 

6 X(J)=X2(I, J) 
CALL SUMR 
SR(I)= SQRT(SEQL) 
IF(SR(I).LT.FDIFER) GO ТО 8 
CALL FEASBL 
IF(FOLD.LT.1.0E-9) GO TOz80 

8 CALL PROB(3) 
F(I) =R(K9) 

5 CONTINUE 

1000 ЅТЕР = 0,05 • FDIFER 

ІСОМТ = ICONT:+ 1 


С SELECT LARGEST VALUE OF OBJECTIVE FUNCT- 
С ION FROM POLYHEDRON VERTICE = 
ЕН = Е(1) 
LHIGH =1 


DO 16 І-?2, N1 

ға | ГЕ(Е(І)І/Т.ЕН) GO TO 16 
ЕН = ЕСГ) 
LHIGH =I 
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Ф! 


б 


16 


41 


17 


86 


87 


20 
19 


CONTINUE 

SELECT MINIMUM VALUE OE OBJECTIVE FUNCTI- 
ON FROM POLYHEDRON VERTICE I 

ЕТ, = Е(1) 

LOW =1 

DO 17 1=2, № 

IF(FL.LT.F(1)) СО ТО 17 

FL = Ер) 

LOW =I 

CONTINUE 

DO 86 1-1, МХ 

Х(Ј) = X2(LOW, J) 

IN=LOW 

CALL SUMR 

SR(LOW) = SQRT(SEQL) 

IF(SR(LOW).LT.FDIFER) GO TO 87 

INF = LOW. 

CALL FEASBL 

IF(FOLD .LT.1.0E~09) GO ТО 80 

CALL PROB(3) 

F(LOW) = R(K9) 

GO TO 41 

CONTINUE | 

FIND СЕМТВОГО ОЕ POINTS WITH І DIFFERENT 

THAN LNIGH ` 

DO 19 1-1, NX 

SUM2 =0. 

DÓ 20 I=1, МІ 

SUM2 = SUM2 + Х2(1, J) | 

X2(N2, J) =1./XN * ($0М2- X2( LHIGH, J)) 

SUM2 = 0. 

БО 36 І-1, МІ 


—— T" O 


РО 36 1-1, МХ w. 
~SUM2 = SUM2+ СОСТ; уу = XN pyw ао 77 
36 CONTINUE: өзе өзе Пи 
FDIFER = (NC+1)/XN1* SoRT( $0М2) 
IF(FDIFER .LT.FOLD) GO ТО 98 
FDIFER = FOLD 
СО ТО 198 
08 FOLD = FDIFER 
198 CONTINUE 
ЕТЕВ = F(LOW) 
137 NCONT= МСОМТ +1 
IF(NCONT LT 4* М1) СО ТО 37 
IF(ICONT.LT.1500) СО ТО 337 
FOLD = 0,5 • FOLD 
337 МСОМТ-0 
\ВТТЕ(6, 35) 
WRITE(6，758) ІСОМТ, FDIFER 
CALL WRITEX 
37 ТЕ(ЕОТЕЕВ ІТ.СОМУЕК) СО ТО 81 
С SELECT SECOND LARGEST VALUE ОЕ OBJECTIVE 
C FUNCTION 
IF(LHIGH ЕО 1)60Т043 
FS=F(1) 
LSEC=1 
GO ТО 44 … 
43 FS=F(2) 
LSEC=2 
44 ЮО 18 1=1, Ni 
IF(LHIGH.EQ.I) СО ТО 18 
IF(F(I).LT.FS) СО ТО 18 
Е5-Е(І) 
LSEC=I 
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18 
С 
61 
89 
82 
92 
93 
1 
С 


84 


23. 


CONTINUE 0 

REFLECT HIGH POINT THROUGH CENTROID 

DO 61 3-1, NX 

X2(N3, J)=X2(N2, J) + ALFA + (X2(N2, у) ~ X2(LHI- 
GH, р) 

X(J) =X2(N3, J) 

IN= N3 

CALL SUMR | 

SR(N3) = SQRT( SEQL) i 

IF(SR(N3).LT.FDIFER) GO TO 82 

INF=N3 

CALL FEASBL 

IF(FOLD .LT.1.0E~9) СО ТО 80 

CALL PROB(3) 

F(N3) = R(K9) 

IF(F(N3),LT,F(LOW)) GO ТО 84 

IF(F(N3) ,LT,F(LSEC)) GO TO 92 

GO ТО 60 

рО 93 1-1, МХ 

X2(LHIGH, J)=X2(N3, J) 

SR(LHIGH) = SR( N3) 

FO(LHIGH) = F( N3) 

GO TO 1000 | | 

EXPAND УЕСТОВ ОЕ SEARCH ALONG DIRECTION 
THROUGH CENTROID AND 

REFLECTED VECTOR 

DO 23 1-1, МХ | . 

X2(N4, J) =XXN3, J) +САМА s (Х2(№3, Ј) – X2(N2，J)) 

X(J) =Х2( №4, J) 

ТМ = М4 

CALLSUMR 

SR(N4)= SQRT(SEQL) 
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25 


26 


60 


65 
64 


66 


67 


69 


IFCSRCN4) J т ‘FDIFER) 60 то 25 
ЕК š 
CALLFEA SBL 


FEFPOPD LT 06-069) GO ТО 80 ` 


CALL РВОВ(3) 

F( N4) =R(K9) 

IF(F(LOW) ,LT .F(N4))GOTO 92 
DO 26 J=1, NX 

X2(LHIGH，J) =X2(N4，J) 
F(LHIGH) = F(N4) 

SR(LHIGH) = SR( N4) 

GO TO 1000 
IF(F(N3).GT,F(LHIGH)) GO TO 64 


X2(LHIGH, J)=X2(N3, J) 
DO 66 7-1, NX 


Х2(№4, J) = ВЕТА * X2(LHIGH, J)+ 0 .-ВЕТА) * X2( N- 


2, J) 

X(J) =X2(N4, J) 

IN=N4 

CALLSUMR 

SR(N4) = SQRT SEQL) 

IF(SR(N4) .LT.FDIFER) GO ТО 67 


INF= № 


CALL FEASBL 
IF(FOLD .LT.1.0E-9) СО TO 80 
CALL PROB(3) 


 FO(N4) = 及 (K9) 


IF(F(LHIGH).GT.F(N4)) GO ТО 68 
DO 69 7-1, МХ. 


X2(I，J) =0.5* (X2(I, J)+X2LOW, J)) 
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71 


72 
70 


68 
73 


81 


80 


1 

2 
35 
106 
115 


116 
755 


DO 70 1-1, МІ 

DO 71 J=1, МХ 

X(J)=X2(I, J) 

ІМ =1 

CALL SUMR 

SR(I) = SQRT(SEQL) 
IF(SR(I) .LT .FDIFER) СО TO 72 

ІМЕ-І 

CALL FEASBL 

IF(FOLD Т,Т.1.0Е -09) СО ТО 80 

CALL PROB(3) 

Е(1) = В(К9) 

СО ТО 1000 

DO 73 1-1, МХ 

X2(LHIGH, J)=X2(N4, J 

SR(LHIGH) = SR( N4) 

F(LHIGH) = F(N4) 

GO TO 1000 

WRITE(6, 760) ICONT, FDIFER 

CALL WRITEX | 

СО ТО 9999 

WRITE(6, 760) ІСОМТ, FDIFER 

CALL МЕТТЕХ 

WRITE(6, 762) 

ЕОВМАТ( 315, Ғ10,5, Е10,3) 
FORMAT(8F10 .5) 
ЕОВМАТ«‹/, 40X, 48 e e w w ç w e % w ü е % e о ° * у 
ЕОВМАТ(1Н1, //) 

FORMAT(//, 41H THE STARTING VECTOR SELEC- 

TED ВҮ USER IS) 

FORMAT(8E16.6) | 

ЕОКМАТ(//, 35H THE COMPUTATION TIME ІМ SE- 
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CONDS = E12.5) 
756 FORMAT(//, 10X, 40H NUMBER OF INDEPENDENT 
VARIAB ES 
15, /, 10Х, 40H NUMBER ОЕ EQUALITY CONSTR- 
AINTS І5,/, 10Х, 40Н NUMBER О F INEQUALETY 
CONSTRAINTS 15, /, 10Х, 40H SIZE OF INITIAL 
POLY HEDRON 22 E12,5, /, 10X, 40H THE 
DESIRED CONVERGENCE 16 
Е12,5, /, 10Х, 40H THE COMPUTATION TIME ІМ 
SECONDS 
E12.5) | 
757 ЕОВМАТ(//, ТІН THE INITIAL X VECTOR DOES 
МОТ SATISFY THE INITIAL Т LERANCE CRITE 
RION) | 
758 РОВМАТ(/, 10X, 27H STAGE CALCULATION NUMB- 
ER= 15, 20X, 27H THE TOLER ANCE CRITERION = 
E14.6) 
759 FORMAT(1H0, 3H* • <) . 
760 FORMAT(//, 39H TOTAL NUMBER OF STAGES CA- 
LCULATIONS=15, 10X, 25H 
THE CONVERGENCE LIMIT= Е14,6) | 
761 FORMAT(//, 50X, 25H THESE ARE FINAL ANSW- 
ERS) | | 
762 FORMAT(//, 50X, 29H THESE АВЕ NOT FINAL AN- 
SWERS ) | 
763 FORMAT(//, 10X, 40H THE INITIAL TOLERANCE 
` CRITERION IS Б12,5, /, 10Х, 40H THE SUM OF V- 
IOLATED CONSTRAINTS IS E12,5) 
764 РОВМАТ(//, 70Н THE VECTOR FOUND BY PROGR- 
-AM WHICH SATISFIES THE ПИТ IAL TOLERA- 
NCE IS ) | 
765 ЕОВМАТ(/, ЗІН SUM ОЕ VIOLATED CONS TRAI- 
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отс 


С) 


9999 


25 


4 


NTS = Е17,7) 

STOP 

END | 

SUBROUTINE FEASBL | 

* » а SUBROUTINE FEASBL МІМІМ2Е5 THE SUM 
ОЕ THE SQUARE VALUES ОЕ ТНЕ 


VIOLATED CONSTRAINTS ІТ IS CALLED EVERY 


TIME THE COMBINED VALUE OF 
THE VIOLATED CONSTRAINTS EXCEEDS THE VA 
LUE OF THE TOLERANCE CRITER 

ION FOR THE CURRENT STAGE 

DIMENSION Х(50), Х1(50, 50), Х2(50, 50), R(100), 
SUM(50), F(50), SR(50) 

DIMENSION ROLD(100), R1(100), R2(100), К3(1001, 
FLG(10), H(50) 


(СОММОМ/А/МХ, NC, NIC, STEP, ALFA, BETA, GA- 


МА, IN, INF, FDIFER, SEQL, K1, K2, 1КЗ, K4, 
K5, K6, K7, K8, K9, X, X1, X2, R, SUM, F, SR,RO- 
LD, SCALE, FOLD | 

СОММОК/В/ТЕЕА$, 15, 1.6, L7, 18, 1,9, RIA, В?А, 
R3A | 

ALFA =1, 

ВЕТА =0.5 

САМА =2. 

XNX = МХ 

ICONT=0 

LCHEK=0 

ICHEK=0 

CALL START 

DO 3 I=1, КІ 

DO 4 J=1, NX 

X(J) = X1(I, J) 
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28 


10 


ІМ-і 

CALL SUMR 

СОМТТМОЕ | 

SELECT LARGEST VALUE ОЕ SUM(I ІМ SIMPLEX 
SUMH = 50М(1) 

INDEX=1 


` DO 7 I=2, КІ 


IF(SUM(I) .LE .SUMH) GO TO 7 

SUMH = SUM(I) 

INDEX=I 

CONTINUE 

SELECT MINIMUM VALUE OF SUM(I) IN SIMPLEX 
SUML = SUM(1) 

KOUNT = 1 

DO 8 I=2, K1 

IF(SUML,LE,SUM(I)) GO TO 8 

SUML = SUM(DI) 


_ КООМТ=Т 


CONTINUE ` | | 

FIND CENTROID ОЕ POINTS WITH I DIFFERENT 
THAN INDEX 

DO 9 J=1, NX 

50М2 = 0 

DO 10 I=1, КІ 

SUM2 = SUM2 + X1C(I, J) 

Х1(К2, J) =1./ХМХ • (SUM2-X1(INDEX, J> = 

FIND REFLECTION OF HIGH POINT THROUGH CE- 
NTROID 

Х1(К3, J)=2.* X1(K2, J) ~ XI(INDEX, J) 

X(J) =X1(K3, J) 

IN=K3 

CALL SUMR 
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39 


12 


11 


IF(SUM(K3).LT.SUML) GO TO 11 

SELECT SECOND LARGEST VALUE IN SIMPLEX 

IF(INDEX.EQ.1) СО ТО 38 

SUMS = Зима) 

GO TO 39 

SUMS = SUM(2) 

DO 12 І-1, КІ 

IF((INDEX- 1) .EQ.0) СО ТО 12 

IF(SUM(I) .LE .SUMS) СО ТО 12 

SUMS = SUM(I) 

CONTINUE 
IF(SUM(K3),. СТ. SUMS) СО TO 13 

GO TO 14 

FORM EXPANSION OF NEW MINIMUM IF REFLE- 
CTION HAS PRODUCED ONE МТМ. | 

DO 15 J=1, NX | 

X1(K4, J) =X1(K2, +2, * (X1(K3, J(- X1(K2, У) 

X(J) =X1(K4, J) 

IN=K4 

CALL SUMR | 

1F(SUM(K4).LT,SUML) GO TO 16 

GO TO 14 

IF(SUM(K3).GT.SUMH) GO TO 17 

DO 18 Ј=1, NX | 

Xı (INDEX, J) =X1(K3, J) 

DO 19 J=1, NX | 

X1( (K4, 5) =0.5* XI(INDEX, J) +0.5 * X1(K2, J) 

X(3) =X1(K4, J) 

IN=K4 

CALL SUMR 

IF(SUMH,GT.SUM(K4(GO TO 6) 

REDUCE SIMPLEX BY HALF IF REFLECTION HA- 
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20 


30 


29 


23 


31 


16 


21 


РРЕМ5 ТО PRODUCE А LARGER 
VALUE THEN THE MAXIMUM 
DO 20 1-1, МХ | 
РО 20 І=1, КІ | 
X1(I, J) =0,5 • (X1(I, J) +XI(KOUNT, р) 
DO 29 I=1, K1 
DO 30 1-1, NX 
XQ) =X1(1, J) 

ТМЕТ 

CALLSUMR 

CONTINUE 

SUML = SUM(1) 

KOUNT=1 

DO 23 1=2, КІ 
IF(SUML .LT .SUM(I)) GO ТО 23 
SUML = SUM(1) 

KOUNT=I 

CONTINUE | 
SR(INF) = SQRT(SUM(KOUNT)) 
DO 27 J=1, NX 

X(J) = X1 (KOUNT, J) 

GO TO 26 

DO 31 J=1, NX 

X1(INDEX, J)=X1(K4, J) 
SUM(INDEX) = SUM(K4) 

GO ТО 5 

DO 21 J=1, NX 

XI(INDEX, J)=X1(K4, J) 
X(J) =Xı (INDEX, J) 
SUM(INDEX) = SUM(K4) 
SR(INF) = SQRT(SUM(K4)) 

GO ТО 26- 
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a o сб O Oo O O 


14 


22 


26 


36 


24 


57 


51 


DO 22 J=1, NX 
X1(INDEX, р =X1(K3, J) 
ХО) =X1(INDEX, J) 
SUM(INDEX) = SUM(K3) 
SR(INF) = SQRT(SUM(K3)) 
ICONT = ICONT+1 

рО 36 J=1, NX 


X2(INF, J) = X(J) 


IF(ICONT .LT .2* K1) GO TO 50 
ICONT =0 

DO 24 J=1, NX 

ХФ =X1(K2, J) 

IN=K2 

CALL SUMR 

DIFER=0, 

DO 57 1=1, КІ 


` DIFER = DIFER + (SUM(I) - SUM(K2)) * «2 


DIFER =1./(К7 + ХМХ) + SQRT(DIFER) 
ТЕ(ОТЕЕВ.СТ.1.0Е.-14) СО ТО 50 
ТЕ FLEXIBLE SIMPLEX METHOD FAILED ТО ЅАТ- 
ISFY THE CONSTRAINTS WITH- 
IN THE TOLERANCE CRITERION FOR THE CUR- 
RENT STAGE, THE SEARCH IS | 
РЕВТОВВЕР FROM ТНЕ POSITLON WHERE ТНЕ Х 
VECTOR IS STUCK AND THEN 

FEASBL IS REPEATED ONCE MORE FROM THE BE 
GINNING | | 

IN=K1 

ЅТЕР = 20.* FDIFER 

CALLSUMR 

SR(INF) = SQRT(SEQL) 

DO 52 J=1, NX 
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52 X1(K1, J) =Х(3) 
DO 53 1-1, МХ 
FACTOR =1. 
ХО) =X1(K1, J) + FACTOR < STEP 
X1(L9, 1) =X(J) 
IN =19 
CALL SUMR 
X(J) =X1(K1, J) ~ FACTOR * STEP 
X1(L5, J) =X(J) 
IN=L5 
CALL SUMR 
_ 56 IF(SUMCL9) .LT,SUM(K1)) GO ТО 54 
IF(SUM(L5) .SUM(K1)) GO TO 55 
GO TO 97 
54 X1(L5, JD =X1(K1, р 
SUM(L5) = SUM(K1) 
X1(K1, J) =X1((L9, J) 
SUM(K1) = SUM(L9) 
FACTOR = ЕАСТОВ +1. 
ХО) =X1(K1, J) + FACTOR * STEP 
ІМ =L9 
CALL SUMR 
СО ТО 56 
55 X1(L9, 2 -Ххі(кі, J) 
SUM(L9) = SUM(K1) 
хіккі, J) =X1(L5, J) 
SUM(K1) = SUM(L5) 
FACTOR = ЕАСТОВ +1. 
ХО) =X1(K1, J) ~ FACTOR » STEP 
IN =15 | 
CALL SUMR 
СО ТО 56 
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59 


76 


68 


ONE DIMENSIONAL SEARCH: ВУ GOLDEN SECTI- 
ON ALONG EACH COORDINATE o 
Н) = XI(L9，J) -X1(L5， D = 

X1(L6, J)=X1(L5, J + H(J) * RIA - 


ХАБ Ха, J): 


IN =L6 

CALL SUMR О 
Х1(17, J) =X1(L5, J +H(J) + R2A - | 
Хб =X1(L7, J) 

IN =17 

CALL SUMR ` 

IF(SUM(L6) .GT.SUM(L7)) GO TO 68 
X1(L8, J) =X1(L5, р) + 1. - ВЗА) + НО) 
X1(L5, 7) =X1(L7, J) 

ХОУ = X1(L8, J) 

ІМ =18 

CALL SUMR | 
IF(CSUM(L8) .GT .SUM(L6)) СО ТО 76 
-х1а,5, J) =X1(L6, J) 

SUM(L5) = SUM(L6) 

GO TO 75 

X1(L9, J) =X1(L8, J) 

SUM(L9) = SUM(L8) 

GO TO 75 

X1 (L9, J) =X1(L6, 1) | | 
X1(L8, J) =Х1(15, D+R3A* НОЈ) 
X(J) =X1(L8, J) | 

IN =L8 

CALL SUMR 

SUM(L9) = SUM(L6) 
IF(SUM(L7) ,GT .SUM(L8)) GO TO 71 
X1(L5, р =X1(L8, J) 
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SUM(L6) = SUM(L8) | 
GO TO 75 
71 X1(L9, J) =XI(L7, J) 
_ 50Ма.9) = SUM(L7) 
15 IF(ABS(X1(L9, J) ~ X1(L5, J)).GT.0.01 * FDIPER)GO ТО 
97 
X1(K1, J) =X1(L7, J) 
X(J) =X1(L7, J) 
SUM(K1) = SUM(L5) 
SR(INF)= SQRT(SUM(K1)) 
IF(SR(INF).LT.FDIFER) GO TO 760 
53 CONTINUE 
ICHEK =ІСНЕК + 1 
STEP = FDIFER 
IF(ICHEK .LE .2) GO ТО 25 
FOLD =1,0Е-12 
WRITE(6, 853) 
WRITE(6, 850) 
WRITE(6, 851) (ХОУ), 1-1, NX) 
WRITE(6, 852) ЕОТЕЕВ, SR(INF) 
GO TO 46 
760 DO 761 1-1, NX 
X2(INF, J) =X1(K1, J) 

761 XGO) =XI1(K1, J) 

.50 IF(SR(INF).GT.FDIFER) GO TO 28 
С MODIFIED LAGRANGE INTERPOLATION FOR TI- 
С GHTINEQUALITIES 

IF(SR(INF).GT.0) GO TO 35 
CALL PROB(3) 
FINT = R(K9) 
ПО 139 J=1, NX 
139 Х(Ј) =X2(INF, J) 
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Ср ами = ———  — т ---. -- : ro -= — 


40 


41 


42 


43 


44 


45 


CALL РВОВ(2) 

DO 40 J=K7, K8 
R1(J) = ЕО) 

РО 41 Ј=1, МХ 
X(J) =X1(KOUNT, J) 
CALL PROB(2) ` 
DO 42 J=K7, K8 
R3(J) = 有 R(J) 


| DO 43 Ј=1, МХ 


H(J) =X1(KOUNT, J) - X2(INF, 3J) 
ХО) =X2(INF, J) +0.5* НО) 


CALL PROB(2) 
FLG(1) = 0, 
FLG(2)=0, 
FLG(3) = 0, 

рО 44 1-К?, K8 


IF(R3(J).GE.0) GO ТО 44 
FLG (1) =FLG(1) +R1(J) * R1(J) 
FLG(2) =FLG(2) + 及 (J) * R(J) 


FLGK (3) = FLG (3) + R3 (J) * R3 (J) 


CONTINUE 


SR(INF) = SQRT (FLG (19) 
IF(SR(INF) .LT.FDIFER) СО TO 35 


ALFA1 = ЕТС (1) - 2, * FLG(2) + FLG(3) 


ВЕТА1 =3, + ЕСП) ~ 4.FLG(2) + FLG (8) 
КАТІО-ВЕТА1/(4, + АГЕАТ) . 


РО 45 1-1, МХ 


ХО) =Х2 МЕ, J) +H(J) + RATIO 


ІМ =ЕТМЕ 
CALL SUMR 


SR(INF) = SQRT(SEQL) 


IF(SR(INF).LT.FDIFER) GO TO 465 


БО 49 I=1, 20 


DO 48 1-1, МХ 


48 ХО)-ХО)-0.05% НОЈ) 


49 
465 


46 
47 
35 
335 
850 


851 


852 


CALL SUMR 

SR(INF) = SQRT(SEQL) | 

IF(SR(INF).LT.FDIFER) СО TO 465 ` 

CONTINUE | 

CALL PROB(3) 

IF(FINT.GT.R(K9)) GO-TO 46 

SR(INF) =0. А 

СО ТО 35 

DO 47 Ј=1 NX 

Х?(ІМЕ, J) =X(J) 

CONTINUE 

DO 335 J= 1, NX 

X(J) =X2(INF, J) 

FORMAT(//108H IT IS NOT POSSIBLE TO SATISFY 

THE VIOLATED CONSTRAIN2CHOOSE A NEW ST 

RTING VECTOR AND REPEAT SOLUTION AGAIN- 

ЕОВМАТ(//, 63H THE VECTOR FOR WHICH THE 
CONSTRAINTS COULD NOT ВЕ SA“ 

1ТІ FIED IS/, (8E16, 6)) | 

FORMAT(//, 27H, THE TOLERANCE CRITERION = 
Е14,6, 20Х, 49Ң ТНЕ SQUARE | 

1ВООТ ОЕ THE CONSTRAINTS SQUARED IS =Е!6 .6 + 


853 ЕОВМАТ(//, 81Н* + * » з SUBROUTINE FEASBL 


FAILS ТО FIND А FEAS IBLE ЕОІМТ» * + = +»; 
RETURN | | Б 

END 

SUBROUTINE WRITEX 

DIMENSION Х(50), X1(50, 50), X2(50, 50), R(100), 
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су Су вв 


SUM (50), Е(50), SR(50) Е 
DIMENSION ROLD(100) 00 амы 
СОММОМ/А/МХ, МС, МІС, STEP, ALFA, BETA, 
GAMA, IN, INF, FDIFER, SEQL, КІ, K2, КЗ, КА,К5, 
кв, кт, K8, КӨ, X, ХІ, X2, R; SUM, F, SR, ROLD, 


62 


SCALE, FOLD 


COMMON/B/LEEA S, L5, L6, L7, L8, L9, ВІА, R2A， 
ЕЗА 


CALL PRDB(3) 
WRITE (6, ПВС K9) 


ҒОКМАТ(/, 28H ОВ JECTIVE FUNCTION VALUE =E 
17.7) 


WRITE(6, 2)(X(J), J= 1, NX) 


FORMAT(/,29H THE INDEPENDENT VECTORS ARE 
/(6E17.7)) | 


IF(NC.EQ.0) GO TO 6 
CALL PROB(1) 
WRITE(6，3)(R(J)，J= 1，NC) 
FORMAT(/,36H THE EQUALITY CONSTRAINT УАГ- 
ОЕ АВЕ /(6Е17.7)) | 
IF(NIC.EQ.0)GO TO 5 
CALL PROB(2) 
WRITE(6. 4) (RG), J=K7, K6) 
FORMAT(/,34H THE INEQUALITY CONSTRAINT y- 
ALUES/(6E17.7)) 
RETURN 
END 
SUBROUTINE SUMR 
“ * THIS SUBROUTINE COMPUTES THE SUM OF 
ТН SQUARE VALUES OF THE ~ 
VIOLATED CONSTRAINTS IN ORDER ТО ВЕ СО- 
MPARED WITH THE TOLERANCE / 
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` + 


CRITERION ` ИО 
DIMENSION Х(50), Х1(50, 50), Х2(50, 50), (100), 
2 “SUM(50), Е(50), $Е(50›` С. о 
- DIMENSION ВОГО (100) ` 
,-- COMMON/A/NX, NC, МІС, STEP, ALFA BETA, GA- 
22 MA,IN, INF, FDIFER, SEQL, КІ, K2; К3,К4,К5» 
K6, K7, K8, K9, X, X1, X2, R, SUM, F,SR,ROLD, 
SCALE, FOLD 
COMMON /B/LFEAS, L5, L6, L7, 18, L9, RIA ,R2A， 
R3A | 
SUM(IN) = 0， 
. CALL PROB(2) 
SEQL =0, 
IF(NIC.EQ.0) GO TO 4 
DO 1 J=K7, K8 
IFR(D GE.0.) GO TO 1 
SEQL = SEQL + R(J) + R(J) 
1 CONTINUE 
4 IF(NC.EQ.0) СО ТОЗ 
CALL PROB(1) 
DO 2 1-і, МС 
2 SEQL = SEQL+R(J)*R(J) 
SUM(IN) = SEQL 
5 RETURN 
END | 
SUBROUTINE START 
DIMENSION Х(50), Х1(50, 50), Х2(50, 50), В(100), 
50М(50), Е(50), SR(50) 
DIMENSION А (50, 50), ROLD(100) 
СОММОМ/А/МХ, МС, МІС, STEP, ALFA, ВЕТА, 
САМА, 1М ИМЕ, ЕОТЕЕВ ‚5ЕОГ.,К1,К2,КЗ,К4,К5, Кб, 
К7» K8 К9, X, ХІ, X2, R, SUM, Е, SR, ROLD, 
SCALE, FOLD | 
COMMON/8/LFEAS, L5, 16, 1.7, 1,8, 19, ВІА. К2А, 
R3A ` 
VN =NX 


сә 
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; 


ТЕР! = $ТЕР/(УМ в SQRT(2, )) + (SQRT(VN +1, )+VN 
-1. ) 
ЗТЕР2 = ЅТЕР/(УМ + SQRT(2, )) * (SQRT(VN +1, 2- -1,) 
DO 1 J= 1, NX 
} А(1, J) =0. 
DO 2 І-2, КІ 
DO 4 3-1, NX 
4 АЧ, J) =5ТЕР2 
L=I-1 
А(Т, L) -5ТЕРІ 
CONTINUE 
DO 3 І-і1, КІ 
БОЗ 2-1, МХ 
3 ХІІ, J) =X(J) + A(1, J) 
RETURN 
END 
THIS IS A SUBROUTINE OF PROBLEM 
SUBROUTINE PROB (IND) 
DIMENSION R(5), Х(2) 
COMMON/A/NX, NC, NIC, STEP, ALFA, BETA, 
GAMA, IN, INF, FOIFER, SEQL, K1, K2, 
1K3, K4; K5 „Кб, К7, К8, К9, ХІ, Ха, В, SUM, Е, . 
SR, ROLD, SCALE, FOLD 
EQU ALITY CONSTRAINTS 
GO TO (1, 2, 3), INQ 
1 КА) =25— X(1) s #2—X(2) * е2. 
GO TO 5 
INEQU ALITY CONSTRAINTS 
2 R(2)=10* Х(0)- XC x 2--10 е X(D-XQ2)* + 2-34 
R(3) = X(1) 
В (4) = X(2) 
GO TO 5 
OBJECTIVE FUNCTION | 
3 R(5)=4* X(1) — X(2) * +2-12 
5 RETURN 
EN D 


5 
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батар ИТІ 
ти 4 \ = . 


O BNR “震源 断层 面 解 的 数值 方法 


地 震 发 生 时 ， 震 源 运动 的 一 个 重要 结果 是 辐射 地 震波 。 地 震 
纵波 到 达 台 站 第 一 个 振 辐 的 方向 ( 初 动 方向 ) ;在 地 面 分 布 呈现 一 
种 特殊 的 图 象 ， 这 种 图 象 反映 了 震源 的 运动 过 程 。 | 

目前 ， 对 于 震源 机 制 的 研究 多 以 断层 说 为 基础 。 所 要 确定 的 
震源 参数 包括 断层 面 的 走向 、 倾 向 、 错 动力 的 方向 、 汤 层面 的 尺 
度 、 地 震 发 生 时 震源 处 主 应 力 方向 及 应 力 隆 等 。 | 

利用 P 波 初 动 求 断 层面 解 是 目前 国内 外 常用 的 方法 。 因 为 这 
种 方法 对 资料 的 要 求 不 高 ( 仅 需 要 读 出 初 动 的 符号 ) ， 求解 方 法 简 
单 ， 因 此 从 六 十 年 代 起 就 有 人 研究 用 计算 机 求 断层 面 解 ， 以 提高 
精度 和 效率 。 在 六 十 年 代 末 ， 国 外 已 实现 了 计算 机 处 理 。 我 国 在 
七 十 年 代 初 也 根据 有 关 文 献 作 了 适当 改进 ,在 计算 机 上 处 理 了 大 
量 实际 资料 。 下 面 讨论 基本 原理 及 数值 计算 方法 。 


$41 РУТЕ 


(一 ) 基 本 概念 


р 波 初 动 符号 在 地 面 上 分 布 的 图 象 ， 与 震源 运动 过 程 中 汤 列 
的 几何 产 状 及 力 的 作用 形式 有 直接 关系 。 震 源 运 动 过 程 可 以 用 一 
个 力学 模式 来 表示 。 | 

最 简单 的 是 单 力 偶 模 式 。 如 图 4-1-1 所 示 ， 在 XOY 平面 内 ， 
用 沿 X 轴 作用 的 大 小 相等 、 方 向 相反 的 一 对 力 来 模拟 震源 运动 。 
XOZ 相当 于 地 人 震 发 生 时 产生 的 断层 面 。 根 据 理论 计算 ， 在 ХО2 
面 和 YOZ 面相 互 正 交 所 分 成 的 四 个 象限 区 域内 。 属 于 力 的 正方 
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何 的 两 个 区 域 ， 辐射 初 动 为 压缩 
(+ 号 ?的 纵波 ， 属 于 力 的 反方 向 
的 两 个 区 域 .辐射 初 动 为 膨胀 (~- 
号 ) 的 纵波 .显然 ,XOZ 面 和 YYOZ 
面 成 了 纵波 和 两 个 节 面 。 它 们 扩 
展 后 与 地 面相 交 ， 就 造成 了 地 面 
上 纵波 初 动 符号 分 布 上 正 负 相间 
的 四 和 象限， 以 及 分 隔 这 些 象限 的 
两 条 相交 的 节 线 。 地 面 上 的 垂直 
向 地 震 仪 在 压缩 纵波 相对 应 的 象限 内 ， 将 观测 到 波 初 动向 上 
(+ 号 ) ,在 膨胀 纵波 相对 应 的 象限 内 ,将 观测 到 P 波 初 动向 下 (一 
号 )。 

单 力 偶 源 所 产生 的 P 波 辐射 图 象 与 地 震 发 生 时 在 地 面 的 P W 
钾 动 符号 分 布 是 一 致 的 。 但 是 ,能 够 解释 P 波 初 动 符号 分 布 的 还 
有 一 种 双 力 假 模式 。 如 图 4-1-2(a) ж. fE XOY Hi р, W X 
轴 和 沿 Y 轴 同 时 有 大 小 相等 方向 相反 的 两 对 力 的 作用 。 可 以 证 明 
它们 完全 等 效 于 图 4-1-2(b) 中 的 主 压力 及 主张 力 。 

显然 ， 主 压力 P 与 主张 力 T 和 名 与 X 轴 和 Y 轴 夹 角 45” ， 汤 层面 
可 以 是 X02Z 面 ， 也 可 以 是 YOZ 面 。 | 








“177% 





Эр, Р 波 初 动 解 无 法 确定 那个 节 面 为 断层 面 ， 只 好 认为 两 
个 节 面 都 是 可 能 的 断层 面 。 对 于 单 力 偶 源 ， 即 求 两 个 可 能 的 断层 
面 和 两 个 可 能 力 轴 X 和 了 的 空间 位 值 ; 双 力 偶 源 则 求 两 个 可 能 
的 断层 面 ， 两 个 力 轴 X 和 了 ， 以 及 主 压力 轴 P 和 主张 力 轴 T 的 空 
间 位 置 。 


(=) 震源 球面 和 乌 尔 夫 网 


假定 直达 纵波 沿 射线 不 改变 初 动 符号 。 然 而 ， 由 于 纵波 速度 
证 深度 增加 引起 射线 弯曲 ， 有 可 能 使 射线 离 源 时 所 在 的 象限 区 域 
与 射线 出 射 地 面 时 所 对 应 的 象限 区 域 完 全 不 同 。 如 图 4-1-3 所 
уо 

为 了 消除 射线 弯曲 所 造 
成 的 这 种 影响 ， 必 须 将 台 站 
位 置 S 移 到 地 震 射 线 在 震源 
处 的 切线 和 一 个 以 震源 为 球 
心 的 球面 的 交点 5/7 Е Ж, 
这 个 球面 称 为 震源 球面 。 它 
的 半径 可 以 取得 任意 小 以 便 
球 内 介质 可 视 为 均匀 ， 射 线 
弯曲 可 以 忽 路 。 震 源 处 地 震 
射线 的 切线 方向 与 垂 线 方向 夹 角 称 为 离 源 角 ， 以 记 表 示 。 对 于 各 
种 纵波 ， 都 规定 它 取 锐 角 。 因 此 ， 直 达 五 波 取 射 线 向 上 发 射 方向 
与 向 上 垂 线 的 夹 角 ， 而 P 波 取 射 线 向 下 发 射 方向 与 向 下 重 线 的 夹 
角 。 | | 

这 样 ， 观 测 台 站 在 震源 球面 上 的 相应 位 置 就 由 台 站 相对 于 震 
中 的 方位 角 和 射线 离 源 角 唯 一 确定 了 。 些 外， 在 震源 的 两 个 相互 
正 交 的 节 平 面 就 将 震源 球 等 分 为 四 个 象限 区 域 ， 在 球面 上 就 为 相 
互 正 交 的 两 个 大 圆圈 所 等 分 的 四 块 面积 。 
为 了 求解 方便 ， 须 将 震源 球面 上 的 点 投影 到 平面 上 去 。 我 们 
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图 4-1-3 


采用 赤 极 投影 。 如 图 4-1-4 所 示 ， 这 是 震源 球面 在 台 站 S 方位 上 
的 剖面 图 。 图 中 O 为 震源 ，BB “为 投影 平面 ，A4 为 投射 点 。 Sf 为 
合 站 S 震源 球面 上 的 位 置 ， 则 S1 为 其 投影 。 对 于 射线 向 下 发 射 
的 台 站 ， 其 在 震源 球面 上 的 位 置 出 现在 下 半球 上 。 考 虑 到 节 面 所 
分 成 的 四 个 象限 区 域 中 相对 的 两 个 区 域 辐射 的 P ЕЖ 动 符号 相 
辣 ， 所 以 可 以 采用 它 的 对 路 氮 投 影 。 
ТЕ 4-1-4, S: 为 射线 向 下 发 射 的 
台 站 所 相当 的 位 置 ，SS ҢА 
м, Ш S58 为 其 投影 。 很 容易 看 出 ， 
台 站 的 方位 线 都 投影 成 为 自 中 心 疝 外 
的 辐射 线 。 | 

而 震源 球面 上 两 条 正 交 的 大 疼 
BI. КР ЕЛЕ НУХ [ИШ ЖП 
图 4-1-5 示 ，、4，B 二 圆 在 平面 上 的 投 
ВАА’, В’. А’БВ’ 是 正 
交 的 。 

利用 这 种 投影 方法 可 直接 使 用 现 
成 的 乌 尔 夫 网 。 我们 选取 图 网 中 心 为 
震源 的 投影 ， 并 规定 网 边 某 一 所 为 正 
北 ， 那 么 台 站 的 方位 角 可 由 正 北 湛 时 
针 方 向 在 网 边 的 度数 上 求 得 。 在 合 站 
的 方位 线 上 上 ， 根 据 射线 为 向 上 发 射 或 
向 下 发 射 ， 自 网 心 向 台 站 方向 或 背 台 
站 方向 找到 与 离 源 角 度数 对 应 的 点 ， 就 得 到 了 人 台 站 位 置 的 投影 点 
SIRS? 








(=) 震源 运动 的 参数 


在 乌 尔 夫 网 上 找到 每 个 台 站 的 位 置 ， 在 每 个 位 置 上 标 上 各 目 
的 初 动 符 张 ， 再 划 两 条 大 圆 绝 分 踢 它们 为 正 负 相间 的 区 域 。 这 两 
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Ж ХИ ЖЖР КН, АЕ НЕЕ. ИИ 
二 大 圆 弧 也 必须 正 交 。 正 交 的 标志 是 一 大 贺 弧 的 极点 必 落 在 另 一 
ЖИ Е СКА НИХ АЖ Ж pE Е SEEE 的 点 ) 。 
如 此 得 出 的 结果 如 图 4-1-6 所 示 。 对 比 图 4-1-2(a)， 可 以 看 出 ， 

АА’ 平面 相当 于 XOZ 平面 。BB' 平面 相当 于 YOZ 平面 ，X4 为 





OX 轴 出 地 点 ， 58 OX 轴 
方向 作用 力 出 地 点 一 致 。Yz 
ОУН, ROY 


” 轴 方 向 作用 力 出 地 点 一 致 。 


Й Ха H Ys ET Е 
УК АА ЕН 与 X4 和 
Ys 相差 弧 焉 为 45" 的 点 工程 
P， 对 比 图 4-1-2(b) 可 知 ， 
T 相 当 于 XOY 平 面 内 主张 
力 轴 出 地 点 ，P 相当 于 主 压 
力 轴 出 地 点 。AA 与 BB 的 
交点 No， 相当 于 OZ Bh. 


由 图 4-1-6， 可 将 所 有 参数 列表 如 下 ; 


倾 向 моя 
NY’ ҮсА”. 
NX’ | X. В’ 
m Я 
XX: 
ҮҮ; 
| №: Мо 
Р”Р 


T'T 


54-2 也 波 初 动 解 的 数值 计算 


六 十 年 代 初 ，Knopoff(1961) 提出 应 用 数理 统计 原理 求 Ж 
源 运 动 僚 数 的 方法 。 经 过 改进 以 后 ， 可 用 作 计 算 机 处 至 
(Kasahara, 1963; Hodgson，1965)。 以 后 ,Wickens(1967) 及 
Stevens(1968) 又 将 方法 进一步 发 展 。 这 里 给 出 的 计算 方法 ， 主 
要 来 自 Wickens 等 人 的 文章 。 

用 数值 方法 求 P 波 初 动 解 ， 其 关键 问题 是 坐标 轴 的 选取 及 概 
率 函 数 的 计算 。 现 分 述 如 下 。 


(一 ) 坐标 系 的 选择 — - 


取 阁 定 的 参考 坐标 系 为 X，Y，Z。 原 点 在 震源 O д, Хм] 
85. Y 轴 向 东 ，Z 轴 向 上 。 设 P 波 两 ИННА с. ЖЖ 
正 交 。 因 此 ， 这 两 个 节 
面 的 法 线 A，5C 与 两 闻 
面 的 交 线 8 (тк) 
在 震源 0 点 组 成 一 个 正 
5 ж ,我 们 称 A, B,C 为 
震源 坐标 系 ， 它 确定 了 
节 面 和 的 空间 位 置 及 各 力 
轴 的 方向 。 这 两 组 坐标 
系 的 关系 如 图 4-2-1 所 

由 图 4-2-1 可 见 ， 
震源 坐标 A В, 相对 于 固定 坐标 头 ，Y，Z 的 位 置 由 三 个 角 
度 ， 基 42Z(0 一 360°)，R(0 一 90°) 及 HC(0 一 902) 所 决定 ,矢量 A， 
B. 的 方向 余弦 用 下 列 式 子 表 达 : 


Ах = -sjin HcosAZcosR + sinAZsinR, 





图 4-2-1 
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A;= -sinHsinAZcosR— cosA7ZsinR, (4-2.1) 
“А: -СОЗНСОЗЕ, 
Вх = соѕНсоѕА7, 


Ву = созНзіпА2, | (4-2,2) 
Bz =sinH, | 
Сх = —SinHcosAZsinR - віпА?совЕ, 

Cy = ~ sinHsinAZsinR + cosAZcosR, (4-2%3 


Cz =sinRcosH. 
理论 研究 表明 ， 地 震 振 幅 在 震源 球面 上 强度 与 所 在 位 置 有 
х. W 6 为 观察 扎 矢 径 与 矢量 C 之 间 的 夹 角 ， 中 为 观察 点 矢 径 在 
矢量 A 、B 组 成 的 平面 内 的 投影 与 矢量 A 之 间 的 夹 角 。a 为 与 震 
源 强 度 成 正比 的 系数 。 则 在 震源 球面 上 第 i 个 合 站 的 理论 据 幅 (或 


理论 信号 水 平 ) 为 | 
Ор;-авіп20;сов5ф;, (4-2:4) 

或 者 写 为 | 
Орь; = 2а51п0: со80: соѕф;. (4-2.5) 


因为 我 们 采用 理论 相对 振幅 ， 所 以 将 系数 2a 略 去 ， 并 H 使 
A、B、C 和 射线 方向 p; 都 取 单 位 矢量 ， 这 样 


Ор; = Біпб;со8ф:с080:, (4-2.6) 
而 

8100:сО8ф; =р;.А, 

cosb; =p C. 
所 以 ， 第 i 个 全 站 的 相对 理论 振幅 成 为 

Upi=(pA)(CPC)。 (4-2.7) 


射线 和 拓 量 p; 的 方向 余弦 可 以 用 离 源 角 і, Хал M AZRE 
Ж: | 
Рх; = —cosZsini, s 
Ру; = 5іп25іпі,, (4-2.8) 
Ру; = -созі,. 
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(二 ) # £ E X 

一 个 可 靠 的 断层 面 解答 要 求 台 站 所 提供 的 初 动 符号 能 用 两 个 
节 面 分 开 ， 首 先 需 要 选择 一 个 概率 函数 来 描述 这 种 分 布 的 好 坏 。 
根据 数理 统计 原理 ， 一 个 台 站 提供 的 初 动 符号 正确 与 否 ， 既 取决 
于 台 站 记录 的 信 品 比 ( 这 与 仪器 性 能 ,人 台 站 干扰 背景 等 因素 有 关 )， 
也 取决 于 台 站 相对 于 震源 的 位 置 。 

由 (4-2.7) 式 可 以 看 出 ,在 节 面 4 和 C 上 (分 别 为 与 矢量 A 及 
<C 垂直 的 方向 )， 理 论 相 对 振幅 为 零 ， 而 在 两 等 分 角 面 上 达到 Ж 
大 值 。 所 以 台 站 所 提供 的 初 动 符号 的 可 靠 性 ， 与 其 距 节 面 的 距离 
有 很 密切 的 关系 。 因 为 ， 靠 近 节 面 的 全 站 初 动 振 幅 小 ， 测 不 准 的 
概率 大 ， 而 远离 节 面 的 台 站 记 到 的 初 动 振幅 大 ， 测 不 YE 的 概率 
№. КИ , ЖЖ ИНО РИМЕ. Жр, Ор. 
为 第 i 台 的 理论 振幅 ，N, 是 噪音 水 平 。 | 

Knopoff(1961) 讨 论 了 节 平 面 的 “最 佳 拟 合 ” 问题 ， 他 提 
出 用 下 列 概 率 冰 数 表 示 全 站 观测 与 理论 计算 符合 的 衡量 准则 


-C1 + erf(Ur:/|N:|)signUr isignR;), (4-2:9) 


式 中 erf ХАЖ, НЕХ 
Upi/|N ;| | 
erf(Upi/|N;:|) = 2 | е-'2ат. (4-2.10) 
ил 9 
而 sign 是 理论 振幅 的 符号 函数 ，signRi 是 观测 振幅 的 符号 м 
数 。 符 号 通 数 的 定义 为 | 
| [1 Х>0, 
sien X= 0 X=0, (4-2.11) 
21-1 Х<0. 
台 站 观测 的 初 动 符 号 与 理论 计算 符号 一 致 时 称 为 符合 ， 相 反 
时 称 为 不 符合 。 从 (4-2.9) 式 可 以 看 理 ， 台 站 符合 时 概率 大 ， 不 
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符合 时 概率 小 。M 个 台 站 同时 符合 的 概率 为 


М | 
П: егі (Ур ҒАР )signU s ;signR 2, (4-2%19) 
{=1 


当 所 选择 的 节 面 位 置 使 这 个 通 数值 取 最 大 值 时 ， 所 对 应 的 节 面 位 
ЕЛЕМЕЙ. 
为 了 计算 的 方便 ， 对 (4 -2.12) 式 了 到 对 数 ， 并 令 


М . 
Ф = > (08-21 + erf(Upi;/IN;| )signUp ;SignR ;1, 
i=l 


(4-2%13) 
取 不 同 节 面 的 位 置 , 则 有 不 同 的 四 值 。 吧 的 最 大 值 意味 着 在 M 
个 台 站 中 符合 的 个 数 已 达到 最 高 数 。 
在 公式 (4-2.13) 中 设 


W>. =erf(Up /|N:l) (4-2+14) 


为 权 函 数 。(4-2.14) 的 物理 意义 比较 清楚 ， 但 计算 时 要 作 积 分 。 
这 在 大 量 计算 时 是 不 方便 的 。Wickens 经 过 大 量 试 算 找到 一 个 近 
UEA We: RRE -2.14) 式 作为 权 函 数 
Ур; = |20р;(1- |0»; )+ KsignUe;|. (4-2.15) 
通过 实验 证 明 ，(4-2.14) 式 与 (4-2.15) 式 很 接近 。 式 中 天 
为 待定 系数 ， 从 经 验 中 得 出 用 0 .3 效果 较 好 。 综 合 上 面 的 讨论 ， 
可 得 出 最 佳节 面 位 置 的 函数 关系 为 下 列 形式 : 


M А 
у> Wor;signUp ,SignR;+tD. 
1-1 е | 
. -m g (4-2.16} 

М 


У; | W p ; | 
取 绝 对 值 的 意义 是 因为 断层 面 只 Юй 定 两 个 相互 垂直 的 节 面 ， 
所 以 S 取 最 大 的 正 值 和 最 大 的 负 值 是 等 价 的 。 其 中 忆 是 修正 项 ， 
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саң 


Ç 


TAKÉ 
D =0.3Cmin(N, P)2. | (4-2.17) 

式 中 N 和 了 P 了 是 在 第 K ЖК + 工 两 个 相 邻 节 面 位 置 时 观测 的 正 初 
动 符号 和 负 初 动 符号 的 个 数 ，D 是 取 两 者 中 小 的 一 个 乘 上 0,3。D 
的 正 负 号 选取 在 于 使 S 值 增 大 。 | 
| 显然 ， 一 组 А2. Н. В 的 数值 可 以 用 (4-2.16) 式 算 出 一 个 
514. WX BAZ, Н. R 的 数值 又 代表 一 组 断层 Ш. ИНК 
S 值 愈 大 ,表明 理论 与 观测 符合 得 愈 好 ， 即 求 得 的 节 面 解 与 待 求 
的 断层 面 解 愈 接 近 。 и 

由 于 А2. R, Н 的 可 变 范 围 很 大 ， 分 别 为 0 —360°, 0° — 
90° ,0° 一 90°。 要 直接 解 出 S 的 最 大 值 有 一 定 困难 ， 所 以 采用 试探 
法 来 计算 。 计 算 可 分 为 两 个 步骤 。 = | | 

第 一 步 是 粗 选 。4Z 63096-48, RE H М 15° м — 
值 。 这 样 所 形成 的 试验 组 合 为 432 个 ， 将 每 种 组 合 代 入 (4-2.16) 
式 ， 共 求 出 432 个 S 值 来 ， 比 较 这 些 S 值 ， 从 中 选 出 最 大 的 N 个 。 

第 二 步 是 围绕 这 N 个 最 大 的 S 值 进 行 细 y. 3 选 是 浮动 
的 ， 即 一 方面 是 寻求 S 的 峰值 ， 同 时 又 起 到 加 密 间隔 的 作用 ， 使 
原来 差别 较 大 的 解 收敛 于 一 个 峰值 附近 。 具 体 算法 可 用 类 似 于 单 
纯 形 法 那样 作 细 分 寻 查 。 对 N 个 粗 选 的 S 值 分 别 作 浮动 细 选 ， 
”得 到 N 个 精 选 的 S 值 。 最 后 从 中 挑选 出 5 个 最 大 的 S 值 算出 相应 的 
断层 面 参数 并 画 出 图 。 


5 4-3 各 有 关 参 数 的 计算 公式 
上 一 节 曾 指出 ， 射线 矢量 P 的 方向 余弦 可 以 用 合 站 方位 角 
z 及 离 源 角 i; 来 表示 。 所 以 必须 求 下 列 参数 : | 
(-- ) 全 站 方位 角 及 震中 距 . 


ВЖ ТЕАИ 下 列 球面 公式 进 4 行 计算 : 
+185° 


совА- созф, cos, + 51ПФф„51пф,сО58(А,— Ac)» (4—3-1) 
cosZ = (созф, ~ созф,соѕ А)/віпАвіпф,, | 
sinZ = – ѕіпф,=іп(А. – А.) /5іпА. (4-3.2) 
式 中 Ло 震中 经 度 ; ло ВИ; Фе 震中 的 地 心 余 纬度 ， 
台 站 的 地 心 余 纬度 ，A4: 震中 距 !Z: 台 站 方位 角 。 
地 心 纬度 4 与 地 理 纬 度 “的 关系 如 下 : 
taep=(1-f)’tgeb’. 


j 为 地 球 的 扁 率 
_ 1 
Í 598.25. 
地 心 余 纬度 的 定义 是 
po, -%, (北纬 )， 
90" +0, (WA). 
<) Е # A 


我 国境 内 绝 大 部 分 地 震 都 发 生 在 地 壳 中 ， 对 于 震中 距 4<2” 
№, 用 直达 波 () 公 式 计算 离 源 角 ， 


аА 2. 
z (4-3-3) 


ір = tg 
NFP 及 P. 波 ， 其 离 源 角 取决 于 地 壳 模 型 。 我 国 地 壳 一 
般 采 取 双 层 模型 ， 东部 地 区 hi s 15km, пг =20km 西部 地 
区 取 hi =20 Кт, п: =30km。 不 论 东 部 或 西部 ，Vi =6.0km/s, 
V2=6.75km/s， 地 覃 项 部 的 纵波 速度 为 8.049km/s。 
因此 ， 对 于 P' 波 ， 离 源 角 按 下 式 计算 ， 


Г, = н 26-0 s)= 62. 7° (4-34) 


对 于 P, 波 ， 当 震源 深度 位 于 上 层 地 党 时 ， 
186” 





i = sin (Eet )~ 48.2". (4-3%5) 


当 震 源深 度 位 于 下 层 地 过 时 (有 妈 h 宇 15 或 20 公 里 ) 


іт sin (( 8-75. )=57° . (4-3:6) 


ЖЕРИ, FT HR f POR ВОЛ, Я] АЛЕНЫ РУЛЕТ HH 
的 ， 其 离 源 角 Іі, 的 计算 方法 如 下 : 

当 人 震源 接近 地 面 时 ，P 波 射线 是 对 称 的 ， 其 离 源 f i fü 31 
线 到 达 地 震 合 的 入 射 角 i 近乎 相等 。P 波 在 地 表 的 入 射 角 为 


sini, = №. (4-8:7) 
у | 


式 中 Уо 为 地 面 附近 波 传播 的 真 速度 ，Y 为 在 地 震 台 附近 与 震中 


距 有 关 的 P 波 沿 地 面 的 视 速度 。V 是 大 中 距 人 的 函数 ， 故 离 源 有 角 
也 随 震 中 距 而 变化 。 

当 震 源 在 地 壳 深 处 或 地 由 中 时 ，P 波 射线 是 不 对 称 的 。 即 离 
源 角 i 不 等 于 入 射 角 i 。 其 计算 公式 为 


h V, . | а, 
R-k У sini. (4-3,8) 


Sini, = 
Жік УЖЕ, У, 为 震源 处 P МЕ, Vo Aiit P Wk Ж 
E, hh 为 震源 深度 。 入 射 角 i 是 震中 距 4 的 函数 。 
因此 ， 对 于 不 同 震 源深 度 的 地 震 ， 可 以 按 震 中 距 4 作 出 离 源 
角 表 供 查 用 。 | 


(=) 震源 运动 参数 公式 


按 (4-2.1) 一 (4-2.3) 式 给 出 的 方向 余弦 ， 即 可 根据 以 下 公式 
计算 震源 运动 参数 : 
(1) 4 节 面 的 倾向 方位 
| ‚387. 





- 


sinHcosAZs8inR - sinAZcosR 





Ea=arctg (= sinHsinAZsinR + cosAZcosR 
-arctg ) (4-3:9) 
Cy | 


车 Cy<0， 则 五 4+ 270"， 否则 也 44 30°. 
(2) C 节 面 的 倾向 方位 


sinHcosAZcosR + sinAZsinR 





Ec=arctg (= sinHsinAZcosR — cosAZsinR 
= <, | (4-3:10) 
arct А, | 
#А,<0, ШЕс+ 270°, ЖШЕС+ 90° 
(3) A 节 面 的 倾角 | 
_ (1— (sinRcosH)23% 
Рл =атсїв ginR cosH 
_ Ga О 
=аток С. (4-3•11) 


(4) C 节 面 的 倾角 | 
С1- (совНсовЕ)72% 


= ar 
Dc=arctg cosH cosR 
~ АЗ) 
=arotg ~ A. | | (4-3+12) - 


(5) P 轴 的 方位 | 
Жж А.С. <9Ө%А,“С, <0, 9 | 
sinHcosAZ(sinR - созК.) + за Ай (т К +cosR)_ 


ЕР =aTctE SinHcosAZ(sinR — cosR) — cosAZ(sinR + cosR) 
Але соз | 
Нате, 4-3+13) 
arc A, C; и | i h 


ЖА;-С,<0, МЕР+ 90°, #Ep>+ 270°, 
(6) P 轴 和 水 平面 的 夹 角 
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/ 
__ | 1⁄4 
, 2 |: - > (созНсозЕ - зіп Ёсовн)° | 


Dr=90 -arctg cosH(cosR — ѕіпК) ЕЕ 








“?)--ха. -c.)*] 





=90 —arctg АЛО, . (4-3.14) 
(7) B 轴 芍 方位 
Ев =arctg (ctgA.,) =атсівз . (4-3%15) 
У 
Æ В,<0, ШЕз 590%, ЖЕ» + 270°, 
(8) В 轴 和 水 平面 的 夹 角 
Ds =90° — arctg(ctgH) | 
| — рё у! 
=90° – атс ВОТ ` (4-3°16) 


(9) T 轴 的 方位 
ЖА,“С,<0ЖА,Су<00) 0 | 
—sinHcosAZ(cosR + за В) + sinAZ(sinR — cosR) 


Er = атсір —sinHsinÁZ(cosR + sinR)— соѕ42(8іпК – cosR) 
А, +С | 
- {Ах бх 4-3*17 
arctg А,+С, ( 


ЖА»-С,<0, ШЕг+ 90°, ЖІШЕт%2707, 
(10) T 轴 和 水 平面 的 夹 角 | 


一 и 
| 21-1 CcosRcosH + sinRcosH)° | I 
Dr =90 7 атсїв cosH(cosR+ sinR) 
— ， 1⁄4 
ИЗ: - (А. + с.) | 
= 90 АС ` (4-3»18) 
ФРА, С> 0 或 4..Cx>> 0， 则 了 轴 与 7 轴 交 换 位 置 。 
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4-4 P 波 初 动 断层 面 解 计算 及 绘图 程序 
(一 ) ”PP 波 初 动 断层 面 解 计算 程序 


该 程序 是 用 FORTRAN-77 语言 编写 的 ， 根 据 P 波 初 动 计算 


斯 层面 解 。 并 自动 在 打印 机 或 绘图 仪 上 绘 出 图 形 。 


(Xx, 


(一 ) 标识 符 说 明 

NS 一 一 粗 选 S 值 较 大 的 个 数 (NS 一 般 取 15) 。 

MS 一 一 输入 初 动 符号 的 合 站 数 。 

FL 一 一 震中 经 度 %, (数据 格式 为 : 
118°40725”2839118.040025) 。 

FA 一 一 震中 纬度 p。 = 

DEPT 一 一 大 源深 度 h( 单 位 公里 ) 。 

AZI- 一 一 AZ 角 的 间隔 ( 取 30")。 

Г R BER (015202 

НІН ІН (157), 





І1,Ј,К 循环 变量 。 
П----360%/А?1, 
JI——90°/RI。 о 


KK—90° /HI。 | 

CK——# HAEC RRO. f` 

ACK 一 一 节 面 可 能 转动 范围 的 控制 精度 (一 般 取 1,0")。 
AZ，R，H 一 一 震源 坐标 系 (А, В, C) 相对 于 固定 坐标 系 
Y，Z) 的 夹 角 ， 

AZK,RK ,HK 一 一 按 角 放 分 划 时 相 应 的 AZ,R, 开 的 角度 值 。 
PIA 一 一 参数 P;. А | 
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PIC 一 一 参数 P;:C 

UP 一 一 震源 球面 上 理论 振幅 分 布 ， 即 PIA.PiC 。 

UPK 一 一 震源 球面 上 第 K 个 台 的 理论 振幅 分 布 。 

АХ, АУ, AZZ—— АЛИЯ 

BX, BY, ВВМ. 

CX, СУ, С2--СЫУІН =. 

RD，DEG 一 一 度 、 分 、 秒 与 弧度 互 换 系数 。 

AZzD(7，2) 一 -一任 源 运动 参数 (方位 角 ,倾向 , 倾角 ) 的 数组 。 

DA2(50) 一 一 输入 初 动 符号 的 数组 ， 符 号 规定 如 下 : 

P 写 为 +1 或 -4 РЫР - 2; 

P, 写 为 + 3 或 - 3， P 写 为 + 4 或 - 4。 其 中 + 号 表示 初 动 
向 上 ， 一 号 表示 初 动向 下 。 

DA(50，3) 一 一 合 站 的 信息 第 “… 列 为 各 合 的 经 度 4.。 第 二 
列 为 各 人 台 的 纬度 g, ,第 三 列 为 台 站 的 波 型 及 初 动 标志 

DAT(50，3) 一 一 计算 过 程 形成 的 台 站 有 关 参 数 ， 第 一 列 为 
震中 距 A ， 第 二 列 为 方位 角 Z， 第 三 列 为 离 源 角 1;。 

DA1I(50，2) 一 一 输入 各 人 台 站 的 经 纬度 ， 第 一 列 为 经 度 Aç , 
第 二 列 为 纬度 deo | | 

S(1: IL, 0:11, 0: KK) 一 一 计算 概率 函数 S(AZ，R，H) 
的 数组 。 Airi 

SCR(4, 1799) — KRMK, PTAR HE А, 第 二 行为 
岩 源 在 地 壳 上 层 相应 的 离 源 角 ， 第 三 行为 震源 在 地 壳 下 层 相 应 的 
НИ; зр RS ТЕЛЕ ЙЕ Н У ВГВ. 

LINE(63, 199) 一 也 字符 型 数组 ， 供 打 印 图 形 用 。 

(=) 浮 程 序 说 明 | 

RAD(E) 一 一 度 分 秒 化 为 弧度 。 

LAD(E) 一 一 将 地 理 纬 度 五 化 为 地 心 纬度 。 

DIC(AZD，TD，HD) 一 一 根据 AZD，RPD， HD 计 算 方向 余 
ЖАХ, АҮ, AZZ, ВХ, ВУ, BZ, СХ, СҮ, CZ, 
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БОМ(ХА?Е, КЕ, НЕ, А?КЕ,ЕКЕ,НКЕ)--ЖЯЙА?Б, 
ВЕ, НЕЖА?”КЕ, ККЕ, НКЕНЕЖЖИ 5. 

UPI(AZU，RU，HU，ZU，RIH) 一 一 根据 AZU， RU, 
HU，ZU，RIH 等 参数 计算 PIA，PIC，UP。， 

PAR 一 一 由 AZ、R,H 计 算 断 层面 及 各 力 轴 参 数 的 无 参 过 程 。 
MHAE, Ec, DAA, ОС, ЕР, рр, Ев, Рв, Ет, Dr, MY, 
Mc, MX，MA 等 震源 运动 参数 。 

PRDATA 一 一 计算 各 人 台 站 相应 的 震中 距 、 方位 角 及 离 源 角 。 

CALSCR 一 一 计算 概率 函数 S， 并 粗 选 15 个 较 大 的 S 值 。 

SELSDR 一 一 对 粗 选 的 S 值 进行 细 选 ， 并 绘 五 个 图 。 

(三 ) 源 程序 的 使 用 

1。 数 据 分 四 段 输入 

(1) 输入 数组 AIHI | 

(2) 输入 NS， MS, FL, FA, DEPT, AZI, RI, НІ,СК, 
АСК; | 

(3) 输入 数组 DA1 

(4) 输入 数组 DA2。 

2。 计 算 及 输出 

(1) 计算 各 人 台 震 中 距 、 方 位 角 及 离 源 角 并 打印 输出 。 

(2) 按 一 定 周 隔 分 度 计算 SW, 挑选 出 NS 个 最 大 的 5S 值 并 
打印 输出 。 | 

_ (3) 对 NS 个 最 大 的 5 值 缩小 问 隔 进 行 精 选 ， Аме S 
.中 挑 出 最 大 的 五 个 。 | 

(4) НЕЗА, R, НУНИ ӘЖ. тарка 
数 及 相应 的 S，AZ， 及 ，H 值 。 

(5) 将 各 个 符号 换算 为 相应 的 行列 位 置 ， 置 3 二 给 字符 型 数 
组 中 ， 即 可 由 打印 机 输出 图 形 、， 包 括 初 动 符 导 、 两 个 节 面 、 五 个 
力 轴 相应 的 坐标 位 置 及 坐标 轴 。 ` 

(四 ) FORTRAN-77 语 言 计 算 程 序 
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THE SOLUTION OF THE P-WAVE FIRST MOTION, 
TO DETERMINE THE FOCAL MECHANISM OF EA- 
RTHQUAKE 


INTEGER T, DA2 

COMMON/NM/NS, MS T, II, JJ, KK 

COMMON/FD/FL,FA,DEPT, AZI, RI,HI, CK, ACK, 
AZ, R, H, AZK, RK, HK, PIA, PIC, UP, UPK, 
AX, AY, AZZ, 

BX, BY, BZ, CX, CY, CZ, RD, DEG 

COMMON/AD/AZD(7, 2), DA1(50, 2), DA2(50), 


_РА(50, 3), DAT(50, 3), 5(1.15, 0:10, 0:10), SCR 


DA(I. 1) = DA1(1, 1) 


(30, 4), AIH(4, 179) 


INPUT THE INCIDENT ANGLE TABLE AND 
THE DATA OF THE STATIONS 

OPEN(1, FILE =’DATAIH’) | 

READ(1, •)((АІН(І, J), 2-1, 179, І-1, 4) 
OPEN(2, FILE=’MNF’) Е О, 
КЕАР(2, *)М$, MS, FL, ҒА, DEPT, AZI, RI, 
НІ, СК, АСК | 

П -ІҒГІ х(360,/А71%,01) 

JJ =IFIx(90,/RI+ .01) 

KK =IFI x (90./НТ+ .01) 

OPEN(3, FILE ='РАТА1') 

READ(3, *)X(DA1(1I, J), 1-1, 2), I=1, MS) 
ОРЕМ(4, FILE=’DATA2’) 
READ(4，。)(DA2(I)，I=1，MS) 

DO 40 1=1, М$ 
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РА«Т, 2) = рА!(І, 2) 
ОАТ, 3) = РА2(1) 
40 CONTINUE 
WRITE(。，50) MS, NS, FL, ҒА, БЕРТ, AZI, RI, 
HI, CK, ACK 
50 FORMAT(//, 2X, °М5 =”, 14, 5X, 'NS =”, 13, 5X, 
*FL=”, Е11,6, 
5X, 'FA =”, Е11.6, 5X, 'DEPTH =”, F5.1, 5X, ‘AZI 
=”, Б5.1, | 
5X, ’RI =’, Е4,1, 5X, "НІ-”, 24.1, 5X, °СК=’, 
Е4.1, 5X, "АСК =”, Е4.1, //) 
CALL PRDATA 
CALL CALSCR 
CALL SELSDR 
STOP 
END 


SUBROUTINE RAD(E) 
IF(E.LT,0)E =359,059060 + E 
А =AINT(E) 
Е=(Е- А) * 1000. 
B= AINT(E) 
` E= (E— B)°1000. 
C= AINT(E) 
E =3,141592653 • (А + В/60, +C/3600. 5/180, 
RETURN 
END 


SUBROUTINE LAD(E) 
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CALL RADCE) 

Е = (1,-1/298,25) * «2«ТАМ(Е) 
Е = АТАК(Е) 

Е =3.141592653/2-Е 

RETURN | 

END 


SUBROUTINE DIC(AZD, TD, HD) ` 

СОММОМ /Ер/ЕІ, FA, DEPT, AZI, RI, HI,CK, АСК, 
AZ, R, H, AZK, RK, HK, PIA, 
PIC, UP, UPK, AX, AY, AZZ, BX, BY, BZ, CX, 
CY,CZ, RD, DEG | 

AZO = AZD + RD 

RO=RD* TD 

HO=HD + RD 

CAZ = СОЅ(А70) 

CR = COS(RO) 

СН = СОЅ(НО) 

SAZ = SIN(AZO) 

SR = SIN(RO) 

SH = SIN(HO) 

AX=SAZ» SR- САД * CR * SH 

АУ = – (ЅН • SAZ* CR+CAZ * SR) 

А727, = CH e CR ` | 

ВХ = СН • CAZ 

ВҮ-СН» SAZ 

BZ= SH 

CX=-(SH*CAZ* SR + SAZ * СВ) 

CY=CAZ * CR - SH • SAZ * SR 

CZ=SR*CH 

RETURN 


END 


SUBROUTINE UPI(AZU, RU, HU, ZU, ВІН) 
COMMON/FD/FL, ҒА, DEPT, AZI, ВІ, НІ, ЄК, 
ACK, AZ, R, H, AZK, RK, НК, РІА, 
PIC, UP, UPK, AX, AY, AZZ, BX, BY, BZ, 
CX, CY, CZ, RD, DEG 
CALL DIC(AZU, RU, HU) ` 
.ZO=ZU+RD 
 RIHO=RIH * RD 
PIX = ~ SIN(RIHO) + СО5(20) 
РТУ = SIN(RIHO) + SIN(ZO) 
PIZ = -COS(RIHO) 
РТА =РХ * АХ + РДУ +» АУ+ РГА * AZZ 
РІС =PIX + СХ+РІҮ • CY+ РІ2 с2 
UP =PIA РІС 
RETURN 
END 


FUNCTION FON(AZF, RF, HF, AZKF, RKF, HKF 
INTEGER T, DA2 | 
COMMON /NM/N S, MS, T, IJ, JJ, KK 
COMMON/FD/FL, FA, DEPT, AZI, RI, НІ, СК, 
ACK, AZ, R, H, AZK, RK, HK, PIA, 
PIC, UP, UPK, AX, AY, AZZ, BX, BY, BZ, 
CX, CY, CZ, RD, DEG 
COMMON/AD/AZD(7, 2), DA1650, 2) ,DA2(50), DA 
(50, 3), DAT(50; 3), 
5(1:15, 0:10, 0,10), SCR(30, 4), AHU, 179) 
DIMENSION АМ(4, 2) 
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10 


.17 


22 


15 


20 


30 


АК =0. 

РО 10 І-1, 4 

DO 10 Ј=1,:2 

АМЧ, J)= 9 

CONTINUE 

DO 100 I=1, MS 

A2=DAT(I, 2) 

A3=DAT(I, 3) 

CALL UPI(AZKF, ККЕ, НКЕ, А2, АЗ) 
UPK=UP 

CALL UPI(AZF, RF, HF, А2, АЗ) 


IF((UP.EQ.0.),AND.(UPK.EQ.0.)) СО ТО 80 
IFCCUP.NE.0.).AND.(UPK.NE.0,)) СО ТО 17 


СО ТО 22 


IF((UP/ABS(UP)).EQ,(UPK/ABS(UPK))) СО ТО 80 
ІЕ«(РІС.СЕ.0.). АМР. (РІА .СЕ.0.)) GO ТО 15 


СО ТО 20 
IF(DA(I，3).GT.0) ТНЕМ 
АМа, 1) = АМК, 1) +1. 
ELSE 

АМА, 2)=АМА, 2) +1. 
END IF ` 

CONTINUE 


IF((PIC.LT.0.).AND.(PIA.GE,0)) GO ТО 30 


GO TO 40 “Ту, 
IF(DA(I, 3).GT.0) THEN 
АМ(2, 1) = АМ(2, 1)+1. 
ELSE 

АМ(2, 2) = АМ(2, 2)+1. 


ЕМГ IF 
40 CONTINUE 
ІЕ((РІС,ІТ,0), АМР, (РІА 1Т,0,)) СО ТО 50 
СО ТО 60 | 
50 IF(DA(I, 3).GT.0.) THEN 
АМ(3, 1) = АМ(3, 1) +1, 
ELSE 
AM(3, 2) = AM(3，2)+1。 
END IF ` 
60 IF(DA(I, 3).СТ.0) THEN 
АМ(4, 1)=АМ(4, 1) +1, 
ELSE 
АМ(4, 2) = AM(4, 2)+1. 
END IF 
80 CONTINUE 
WPI=2* UP * (1 – ABS(UP))+0, 3 * (UP/ABS(UP). 
WPI = ABS(WPI) 
A=A+WPI* (UP/ABS(UP)) *- (РАСТ, 3)/ABS(DA 
(1, 35 ` | ЕЧ 
B=B+WPI = 
WPK =2 + UPK + (1 - ABS(UPK)) +0,3 + (UPK/ABS 
(UPK)) 
WPK = ABS(WPK) 
АК = АК + WPK • (UPK/ABS(UPK)) * (БАСТ, 3)/АВЅ 
(DA(I, 3))) 
100 CONTINUE 
ОО 200 І-1, 4 
200 О=р+0.3 * АМІМІ(АМ(1, 1), АМС, 2)) 
IF(AK.LT.0) D = - D 
A=A+D | 
А-АВ5(А) 
IF(A.GT.B) А-В 
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Ы-А/В 

FON = D 

RETURN 
END 


SUBROUTINE PAR 

REAL MX, MY, MZ, MA, MC, LX, LY 

INTEGER T, DA2 

COMMON/NM/NS, MS, Т, II, JJ, КК 

СОММОМ/ЕР/ЕТ, FA, DEPT, AZI, ВІ, HI, CK, 
ACK, AZ, R, H, AZK, RK, HK, PIA, 
PIC, UP, UPK, AX, AY, AZZ, BX, BY, BZ, CX, 
CY, CZ, RD, DEG ` 

COMMON/AD/AZD(7, 2), РА1(50, 2), DA2(50), DA 

_ (50, 3), DAT(50, 3), 

S(1:15, 0:10, 0,10), SCR(30, 4), АІН(4, 179) 

IF(AZZ.LT.0.) THEN 


АХ--АХ 
АҮ = – АҮ 

А27 = - AZZ 

END IF ` 
IF(CZ.LT.0.) THEN 
CX=-CX 

CY= -CY 
CZ=—CZ 

END IF 
IF(BZ.LT.0.) THEN 
ВХ = - ВХ 

ВУ = 一 BY 

BZ = — BZ 

END IF 
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IF(ABS(CY).LT,1E- 10) THEN 

EA =90. 

ELSE 

EA =ATAN(CX/CY) * DEG 

END IF | 

ТЕСАВ$(С7).ГТ.1Е- 10) THEN 

РАА =90 

ELSE 

РАА=АВ5(1.-СЁ + CZ) * 0 aycz 

DAA=ATAN(DAA) DEG ` 

END IF | 

ТЕ(СУ.Т.Т.0.) THEN 

EA = БА +270. 

ELSE 

ЕА = БА +90, 

END IF 

IF(ABS(AY).LT.1E -10) THEN 
EC = 90。 

ELSE 

ЕС-АТАМ(АХ/АҮ) «БЕС 

ЕМІ IF 

ІҒБ(АВ5(А77).1.Т,1Е-10) THEN 
DC =90, 

ELSE 

DC -АВ5(1- А72» AZZ) * «0,5/А72 

DC =ATAN(DC)*DEG 

END ІБ- 

IF(AY.LT,0.) THEN 

EC =EC +270. 

ELSE 

EC =EC +90, 

END IF 
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IF(ABS(BY).LT.1E-10) THEN 
EB=90 

ELSE 

EB=ATAN(BX/BR) * DEG 
END IF | 
ІҒСАВ5(В7),І.Т,1Е-10) THEN 
DB=0 

ELSE 

ЮВ= АВЅ(1, – BZ * В2)» * 0.5/BZ 
DB=ATAN(DB)* DEG 

DB=90, -DB 

END IF 

IF(BY.LT.0. 2 THEN 
ЕВ-ЕВ-90, 

ELSE 

ЕВ=ЕВ +270. 

END IF 

ІЕ(ЕВ,І/Т,180,) THEN 
ЕВ=ЕВ+ 180, 

ELSE 

ЕВ-ЕВ-180, 

END IF 

MX = 0.70711 * (AX — CX) 

МҮ =0.70711 * (AY — CY) 

MZ = 0.70711 * (AZZ ~ CZ) 
РХ =0,70711 * (AX + CX) 

РУ =0,70711* (AY +CY) 

PZ =0.70711 * (AZZ + CZ) 

МА =MX + AX+ МУ + AY+MZ+ AZZ 
MC =MX * CX+ MY * CY + MZ * CZ 
WK = МА +МС 

IF(MZ.LT.0,) THEN ` 
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МХ = - MX 
МУ = -MY 
МУ = -MZ 
END IF 
IF(PZ.LT.0.) THEN 
РХ--РХ 
РҮ--РҮ 
PZ = - PZ 
END IF 
IF(ABS(MY).LT.1E -10) THEN 
AZX = 90, | 
ELSE 
А7Х = АТАМ(МХ/МУ) * DEG 
END IF 
IF(ABS(MZ).LT.1IE -10) THEN 
LX=10。 
ELSE | 
ІХ-АВ5(1,-М2» MZ) * *0.5/М7, 
LX=ATAN(LX) «БЕС 
LX = 90。 一 工 X 
END IF 
IF(MY.LT.0.) ТНЕМ 
AZX=AZX+90。 
ELSE 
AZX=AZX +270, 
END IF 
IF(ABS(PY).LT.1E-10) THEN 
AZY -90, 
ELSE 
AZY =ATAN(PX/PY) * DEG 
END IF 
IF(ABSCPZ).LT.IE-10) THEN 
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ГҮ-0, 

ELSE 
LY=ABS(1,—PZ + PZ) * + 0,5/Р2 
LY =АТАМ( ГУ) + DEG 
ГУ =90,-LY 

END IF 
IF(PY.LT.0. THEN 
AZY = AZY +90, 

ELSE 
AZY = А2Ү +270. 

END IF 
IF(WK.LT.0.) THEN 
EP = AZX 


_ DP =LX 


ЕТ = AZY 

DT=LY 

ELSE 

EP = AZY 

DP =LY 

ET = AZX 

DT = LX 

END IF 
IF(EP,LT.,.180.) THEN 


EP =ЕР+ 180. 


ELSE 

ЕР=ЕР- 180. 

END ТЕ 
IF(ET.LT.180.) THEN 
ET=ET +180. 

ELSE 

ЕТ -ЕТ-180, 

END IF 
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МУ=ЕА 

МС =90, -DAA 

МХ = ЕС 

МА = 90, -DC 

ТЕ(Т.ЕО.0) THEN 

WRITE( +, 10) 

10 FORMAT(//, 5X, ‘PLANE - А’, 14X, ‘PLANE -С?, 

13X, АХІЅ-Р', 11X,’ | 

АХІ8-В», 12X, ‘“АХІЅ -Т’, 14X, “AXIS - Y”, 13X, 
AXIS -Х›, //, 7Х) 

WRITE(*, 15) 


15 FORMAT(2X, ‘AZIMUTH’, 3X, ‘DIP’ 6X, “AZIM- 


UTH’, 3X, ‘DIP’, 7X, ' 
AZIMUTH’, 3X, ‘DIP’, 6X, ‘AZIMUTH’, 3X, ‘DIP’, 
7X, ‘AZIMUTH’, 
3X, ‘DIP :, 6X, AZIMUTH, 3X, ‘DIP’, 5X, *AZIM- 
UTH ’, 3X, ‘DIP’, /) 


AZD(1, 
AZD(1, 
AZD(2， 
AZD(2， 
AZD(3， 
AZD(3， 
AZD(4， 
AZD(4， 
А20(5, 
А205, 
А20 <6, 
А20 (6, 


1) = ЕА 
2) = ОАА 
1) = ЕС 
2) = DC 
1) = ЕР 


2) = DP- 


1) = ЕВ 
2) = DB 
1) = ЕТ 
2) = рТ 
1) = МҮ 
2) = МС 


А20(7, 1) = МХ 
А?П(7, 2) = МА 
END ТЕ 
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40 


10 


WRITE(* 40)ЕА, DAA, ЕС, DC, ЕР, DP, ЕВ, 
DB, ЕТ, ОТ, МҮ, МС, МХ, МА 

ЕОЕМАТ(1Х, Е7.2, 2Х,Е6.2, 5Х,Еб.2,3Х,Е5.2,7Х, F 
6.2,2Х, Е5.2,6Х, F6.2, 
3X, F5.2,5X, Еб.2,3Х, ЕБ.2,5Х, Е6,2,3Х,Ғ5,2, 5Х, 
Еб.2, 3X, ЕБ.2) 

RETURN 

END 


SUBROUTINE PRDATA 
INTEGER T, DA2,RR 
СОММОМ /ММ/М$,мМ$ ,Т, 11,3, KK 
COMMON/FD/FL, FA,DEPT, AZI, ВТ, НТ, СК, АСК, АХ, 
R,H, AZK, RK, HK, PIA, 
PIC,UP,UPK, АХ, АХ, AZZ, ВХ, ВУ, BZ, CX, CY, CZ,RD, 
DEG 
COMMON/AD/AZD(7,2), DA1(50,2), DA2(50), РА(50,3› 
DAT(50,3), 
6(1.15,0.10,0.10),5 СВ(30,4),А1Н(4,179) 
WRITE( + ,10) 
ЕОВМАТ(8Х, ‘STATION’ ,14X, *LONGITUDE” ,11X, 
‘LATITUDE? ,10X,’ 
DELTA” ,13X, ‘AZIMUTH‘, 12X, ‘IH?’ ,14X,‘ SIGN? , //) 
CALL RAD(FL) | 
CALL LAD(FA) 
RD =3,14159265/180. 
DEG =1,/RD 
DO 200 J=1,MS 
SL=DA(,1) 
SA = РА (7,2) 
CALL RAD(SL) 
CALL LAD(SA) 
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30 


CD=COS(FA)* COS(SA)+ SIN(FA)* SINCGCSA) > 
COS(FL- SL) 

SD= SQRT(1.- CD * CD) 

DD=ASIN(SD) 

DAT(Jy,1) = рр * DEG 

IF(CD.LT.0.)DAT(J,1) =180. - DAT(J,1) 

CZ=(COS(SA)- СОЅ (РА) * CD)/SD/SIN(FA) 

$7 = 51М(ЅА) + SIN(SL ~ FL)/SD 

DAT(J,2) = А5ЅІМ(57) * DEG 

DAT(J,2)= ABS (DAT(J, 2)) 

IF((SZ.LE ,0.).AND,(CZ,LE .0,.)DAT(J,2) =180, 
+ DAT(J,2) 
IF((SZ.LE.0,),AND.(CZ.GT.0.))DAT(J,2)=360， 
-DAT(J,2) 


IF((SZ,GT,0). AND.(CZ,LE0))DAT(J ,2)= 180DAT(J,2) 


IF(ABS(DA(J,3)).EQ.1.)DAT(J,3)= ATAN 
(DD • 6371.221/DE PT) • DEG 


IF(DAT(J,1).LT.2.) THEN 


IF(ABS(DA(J,3)).EQ.4.) THEN 

DAT(J,3) = ATAN(DD + 6371,221/рЕРТ) “БЕС 

END IF 

IF(ABS(DA(J,3)),EQ.2.)DAT(J,3)=ASIN(6,/6,75) 
«РЕС | 

ІЕСАВ6(рАС(7,3)),Е0,3.) СО TO 20 

СОТО 30 | 

IF(DEPT.LT.15.) ТНЕМ 

рАТ(7,3) = А6ІМ(6,0/8,049) БЕС 

ELSE 

рАТ(),3) =ASIN(6.75/8.049) * DEG 

END IF 

CONTINUE 

ELSE IF(DAT(J,1),LE,100.) THEN . 


-2(6: 


60 


70 


80 


90 


М=М +) 
ТЕ(АІН(1,М) .LT.DAT(J,1)) GO ТО 60 ` 


f DAT(J,3) - 0, 


IF((M-1):LE.1) M= 2 
IF((M-1).GE.176) М-177 
ІЕ(РБЕРТ,І,Т,15,) THEN 

КЕ = 2 

ELSE IF(DEPT,LT.40.) THEN 
RR=3 

ELSE 

RR=4 

END IF 

DO 90 I=M-1,M+2 

С = AIH(RR,I) 

DO 70 К=М-1,1-1 

С = С * (рАТ(Ј,1) - АІН(1, к›/‹Атна, І)- AIH(1,K)) 
ОО 80 К=1+1,М +2 

C=C »(рАТ(7,1)- ATH(1,K))/(AIH(1, D- AIB0,K0) 
DAT(J,3) =DAT(J,3)+ C 
CONTINUE 

ELSE 

DAT(J,3) =16.0 

END IF 

A'1= DA(1,.1) 

A2= DA(J,2) 

A3 = DAT(J,1) 

A4 = DAT(J,2) 

A5=DAT(J,3) 

A6 = DA(J,3) 

ІЕ(А6,Е0,1,) THEN 

WRITE( + ,130)J, А1, А2, АЗ, A4, АБ 
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130 


131 


132 


133 


134 


135 


136 


137 


200 


ЕОЕМАТ(10Х,12,2Х, Б24,6, Е20,6, Е14.2, Е19.2,Е19.2, 
15X,3H+ PD) 

ELSE ІЕ(А6.Е0.-1) THEN 

\ВТТЕ( +, 131)J, А1, А2, АЗ, А4, А5 

КОВМАТ(10Х, [2,2Х, F24.6, Е20,6, F14.2, F19.2, F19.2° 
15X,3H- PD) 

ELSE IF(A6.EQ.2.) THEN 

WRITE(* ,132)J, A1, A2, Аз, A4,A5 

FORMAT(10X,12,2X, Е24,6, Ғ20,6,Ғ14,2,Ғ19,2,Е19,2, 
15X,3H +P + ) 

ELSE ІЕ(А6,Е0.-2.) THEN 

WRITE ( + ,133)J, Al, А2, АЗ, А4, А5 

БОКМАТ(10Х,12,2Х, Е24,6, Е20.6, Е14,2, Е19,2,Е19,2” 
15X,3H-P * ) 

ELSE ІК(А6,Е0,3.) THEN 

WRITE ( * ,134)J, A1, A2, АЗ, A4, A5 

БОКМАТ(10Х,12,2Х, Е24,6, Е20.6, F14,2, Ғ19,2,Б19,2, 
15X,3H + PN) | 

ELSE 1Е(Аб.ЕО.-3.) THEN ` 

WRITE(* ,135)J, А1, A2, АЗ, А4, A5 

БОКМАТ(10Х,12,2Х, Е24.6, Е20,6,Е14,2,Ғ19,2,Е19,2, 
15X,3H~ PN) 

ELSE IF(A6.EQ,4.) THEN 

WRITE( + ,136)J, A1, A2, A3A4, А5, 

FORMAT(10X,12,2X, Е24,6, Е20,6, F14.2, F19.2, F19.2, 
15X,2H+ P) ELSE | 

WRITE(* ,137)J, А1, A2, АЗ, A4, A5 

РОВМАТ(10Х,12,2Х, Е24.6, Е20,6,Е14,2, Е19.2, Е 19.2, 
15, ХЬ2Н-Р) 

END IF 

CONTINUE 

RETURN 
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SUBROUTINE CALSCR 

INTEGER T,DA2,B,C,E 

COMMON/NM/NS,MS,T,11;JJ, KK 

COMMON/FD/FL,FA,DEPT,AZI,RI,HI, CK, ACK, 
AZ,R,H, AZK, RK,HK, 

PIA,PIC,UP,UPK, АХ, АУ, AZZ, ВХ, ВУ, BZ, СХ, СУ, 
С, ВО, рес | 

СОММОМ/АР/А70(7,2), рА1(50,2), DA2(50), DA 
(50,3), РАТ(50,3), 

$ (1.15,0,10,0;10), SCR(30,4), AIH(4,179) 

DO 10 1=1,11 | 

DO 10 J=0,JJ 

DO 10 К=0,КК 

AZ= AZI* FLOAT(I) 

R=RI* FLOAT(J) 

H=HI + FLOAT(K) 

IF(K.LT,KK) THEN 

AZK = AZ 

RK=R 

HK=HI* FLOAT(K+ 1) 

ELSE IF(J.LT.JJ) THEN 

AZK=AZ 

ВК =ВГ* ЕГОАТ( + 1) 

НК=Н | 

ELSE IF(I.LT.II) THEN 

AZK= AZl* FLOAT(I+ 1) 

RK=R 

HK =H 

ELSE 
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AZK = AZI 
RK=R 

HK=H 

END IF 

5(1,7,К)- FON(AZ,R,H,AZK,RK, HK) 
CONTINUE 

DO 50 L=1,NS 

А=0. 

DO 20 Т=1, 11 

РО 20 2-0,7 

DO 20 К=0,КК 

IF(S(I,J,K).GT.A) THEN 

А = S(I,J,K) 

B=I 

С =J 

E =K 

END IF 

CONTINUE 

SCR(L,1) =AZI* FLOAT(B) 
SCR(L,2)=RI* FLOAT(C) 
SCR(L,3)=HI+* FLOAT(E) 

SCR(L,4) = А 

S(B,C,E)=0. 

CONTINUE 

WRITEC* ,100)((S CR(I,J),J=1,4),1I=1,NS) 
FORMAT(5X, ‘SCR’ ,/,(10X, 8F12.4)) ` 
RETURN | 

END 


SUBROUTINE SELSDR 
INTEGER T,DA2,P,Q 
СОММОМ/ММ/М5,М5,7,11,7,КК 


10 


20 


30 


40 


COMMON/FD/FL, FA,DEPT,AZI,RI, HI, CK, ACK, A 
Z,R,H,AZK,RK,HK， | 
РІА,РІС,ОР,ОРК, АХ, АУ, AZZ, ВХ, ВУ, BZ, СХ, СУ, 
CZ,RD,DEG 
COMMON/AD/AZD(7,2), DA1(50,2), DA2(50), DA (50, 
3), DAT(50,3), Е 
$ (1;15,0:10,0:10),5 СЕ(30,4), АІН (4,179) 
DIMENSION АС(8,3), ОС (3,3), ОСС (3,3), ЕС(6) 
CHARACTER ІІМ№Е (63,179) 
SMA = 0, 
рО 100 І-1,М65 
AZJ= AZI 
RJ=RI 


HJ=HI 


K=0 

A=SCR(I,4) 
AZK = SCR(I,1) 

RK = SCR(I,2) 

HK = SCR(I,3) 

DO 30 J=1,4 
AG(J,1)=AZK+AZJ 
AG(J +4,1) = AZK ~ AZJ 
AG(2*J-1,3)=HK+ HJ 
AG(2 • J,3) =HK- HJ 
CONTINUE 

DO 40 1-1,2 
АС(Ј+ 4,2) = ВК + ЕЈ 
АС(1,2) = AG(J + 4,2) 
AG(J+6,2) =ВК- Ву 
АС(Ј + 2,2) = АС(Ј + 6,2) 
CONTINUE 

DO 50 J=1,8 
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50 


AZ = АС(1,1) 

R= АС (]Ј,2) 

H -АС(7,3) 

ІЕ(Н,СТ,90,) THEN 

Н -180,-Н 

А7 =180, + AZ 

END IF 

IF(H.LT.0) THEN 
=-H 

AZ=180,+ AZ 

END IF 

AG(J,1) = 人 AZ 

АС(],2) = 及 

АС(),92-Н 

\ = FON(AZ,R,H,AZK,RK,HK) 

ІҒСУУ,СТ,А) THEN 

А = W 

K=J 

END IF 

CONTINUE 

ІЕ(К,МЕ,0) THEN 

SCR(I,1)=AG(K,1) 

SCR(I,2)= AG(K,2) 

SCR(I,3 =AG(K,3) 

SCR(I,4)= А 

GO TO 10 

ELSE IF(AZJ,GT.CK) THEN 

AZJ = A73/2. 

ЕЈ =RJ/2. 

HJ = HJ/2, 

GO TO 20 


“212。 


END IF 
B=SCR(I,1) 
C = SCR(1I,2) 
D = S CR(I,3) 
100 CONTINUE 
| К=0 
DO 1000 І1-1,5 
110 К=К+1 
SMA =0. 
рО 120 І-1,М5 
ІЕ(ЅСКС(1,4), СТ,5 МА THEN 
SMA =SCR(1,4) 
J=I 
END IF 
120 CONTINUE 
IF((II.GT.).AND,.(IFIx(SCR(J,3)*100).EQ.IFI 
x (HM * 100.))) 
GO TO 180 
150 ІЕ((ІБІх(5СВ(7,1) + 100,), EQ.1FIX(AZM + 100.)) 
AND,(IFIx(SCR(J,2) + 100.).EQ.IFIx (ВМ + 100,))) 
СО ТО 160 | 
СО ТО 180 
160 SCR(J,4)=0, 
ІЕ(К,ЕО.М) THEN 
СО ТО 1000 
ELSE 
СО ТО 110 
END IF 
180 CONTINUE 
AZM=SCR(J,1) 
RM = SCR(J,2) 
HM = S CR(J,3) 
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6СВ(7,4)<0. 
WRITE(* ,2000) SMA, AZM,RM,HM 
2000 ЕОВМАТ(/,10Х,‘5МАХ-= ', F9.6,5X, *AZMAX =, 
Е7,2,5Х,ВМАХ = ›, F7,2,5X, *HMAX = ?, 
Б7,2,//) I 

DA(11,1) =AZM 

DA(11,2) =RM 

DAT(II,1) =HM 

CALL DIC(AZM,RM,HM) 
2С(1,1)=АХ 

DC(1,2) =АУ 

DC(1,3) =- А77 

DC(2,1) = ВХ 

рс (2,2) = ВУ 

Рс (2,3) = BZ 

РС (3,1) = СХ 
DC(3,2)= СҮ 

DC(3,3) = CZ 

T=0 

CALL PAR 

DC 300 I=1,6 

ACK=- ACK 

AK=ACK 

АЕ = АК 

Т-1 

220 2-ІБІх((141,1)/2.) 

IF(J,EQ.1) THEN 

К=2 

L=3 

END IF 

ІЕСІ,Е0.2) THEN 

K=1 
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L=3 

END IF 

IF(J,EQ.3) THEN 

K=1 

L =2 

END IF 

DO 230 М! =1,3 

DCC(J, MI) =DC(J,M1) 

DCC(L,M1) =DC(K, M1) • SIN(AF)+ ОС(І,М1):СОЅ 
(AF) | 

DCC(K,M1)=DC(K, M1)*COS(AF)- DC(L,M1) .SIN 
(AF) | 

230 CONTINUE 

Q=0 

DO 240 P =1,MS 

AZ =DAT(P,2)*RD 

H=DAT(P,3):RD 

РІХ = - SIN(H)* COS(AZ) 

РТУ = ЅІМ(Н) • SIN(AZ) 

PIZ=-COS(H) 

РТА =PIX* DC(1,1) + PIY * DC(1,2) + PIZ + DC(1,3) 

РІС = РІХ • ОС(3,1) “РІҮ» DC(3,2) + PIZ * DC(3,3 

ОР = РІА + РІС 

РТА -РІХ» DCC(1,1) + РТУ * DCC(1,2) + PIZ* РСС 
(1,3) 

РІС = РІХ * 0СС(3, 1) + РТУ * DCC(3,2) + PIZ * DCC 
(3,3) 

UPK=PIA РІС 

IF ((ОР.БО.0.).АМО.(ОРК.ЕО.0.)) GO:TO 240 

ІЕССОР,МЕ,0,).АМО,(ОРК,МЕ,0,)) СО ТО 19 

О-0-1 

СО ТО 240 


19 
240 


ТЕ((ОР/АВЗ(ОР)).МЕ.(ОРК/АВ$(0ОРК)))0 = О +1 
CONTINUE . 
ТЕ(О.СТ.2) GOTO 260 `` 

IF(T * EQ • 1) THEN 

AF=AF+AK 

ELSE 

АЕ= АЕ + АК/2, 

АК = АК/2, 


END IF 
IF(ABS(AK).GT.0.02) GO ТО 220 


260 


280 


СО ТО 280 
АЕ-АЕ-АК/2, 

AK = AK/2. 

T=2 | 
1Е(АВЗ(АК).СТ.0.02) СО ТО 220 
АХ=РСС(1, 1) | 
АУ=РСС(1,2) 

AZZ=DCC(1,3) 

ВХ =2СС(2,1) 

BY = DCC(2,2) 

BZ = DCC(2,3) 

CX=DCC(3;1) 

CY=DCC(3,2) 

CZ=DCC(3,3) 

CALL PAR 


FC(I)= АЕ 


300 
310 


320 


CONTINUE 

WRITE(* ,310) 

FORMAT(//,10X, ‘ ANGLE OF ВОТАТТОМ,, //) 
WRITE(* ,320)(FC(I),I=1,6) 
ЕОКМАТ(15Х,6Е10, 2, /) 

ОО 330 І= 1,63 


339 


331 


332 


350 


DO 330 J = 1,119 
LINE(I,J) =“ 

DO 331 J =1,119 
LINE(32,J) = ° — 

DO 332 I=1,63 
LINE(1I,60) =*]|? 
LINE(32,60) =* O? 
LINE(1,60) = *N? 

DO 350 JJ = 1,MS 
AZ=DAT(JJ,2)* ВО 
H=DAT(JJ,3) * RD | 
AX=SIN(AZ) * SIN(H)/(1,+ COS(H)) 
AY=COS(AZ)* SIN(H)/G,+ COS(H)) 
І-32-ІБІх(30,« АУ+0.5) | 
J=60+IFIx(58,5* AX+0.5) 
ІЕ(РА(ЈЈ,3).СТ,0.) THEN 
LINE(I,J)= +? 

ELSE 

ІІМЕС(І,Ј) =*/' 

END IF 

CONTINUE 
IF(AZD(1,1).LT,180.) THEN 
AZD(1,1) = AZD(1,1) +180, 
ELSE 

AZD(1,1) = AZD(1,1) ~ 180. 

END IF 
IF(AZD(2,1).LT.180.) THEN 
AZD(2,1) = AZD(2,1) +180. 
ELSE 

AZD(2,1) = AZD(2,1) - 180, 

END IF 

DO 400 27-1,7 
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AZ =AZD(JJ, 1) * RD 

H =AZD(JJ,2) * RD 

АХ = SIN(AZ) + СОЅ(Н)/(1, + SIN(H)) 
АУ = COS(AZ)* COS(H)/(1. + SIN(H)) 
І-32-ІЕІх(30,« АУ+0.5) 
J=60+IFIx(58,5* АХ+0.5) 
LINE(I,J) =*O” 

IF(JJ,EQ.1) THEN 
LINE(I,J+1) = “A? 

ELSE IF(JJ,EQ.2) THEN 
LINE(I,J-1)=*C” 

ELSE IF(JJ.EQ.3) THEN 
LINE(I+1,J)= “P? 

ELSE IF(JJ,EQ.4) THEN 
LINE(I+1,J)=*B? 

ELSE IF(JJ,EQ.5) THEN 
LINE(+1,) =T? 

ELSE IF(JJ.EQ.6) THEN 

І1МЕ (1,3) =’ 

ELSE IF(JJ,EQ.7) THEN 
LINE(I,J)=‘X’ 

END IF | | 
ТЕ((31.ЕО.1).ОВ.(33.ЕО.2)) THEN 
С7-А7-90, RD _ 

ВХ = SIN(CZ) 

ВУ =СО5(С7) 

I=32-IFIx(30.* ВҮ 0,5) 

;=60 + ТЕШХ (58.5 * ВХ+0,5) 
LINE(I,J) =‘0О’ 

1-64-І 

1-120-7 

LINE(I,J) = O” 
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| END IF 
400 CONTINUE 
x WRITE(»,500) (ІЛМЕ(1,19,1-1,119),1-1,63) 
500 FORMAT(10X,119A1) 
1000 CONTINUE 
RETURN 
END 


СС) P 波 初 动 断层 面 解 绘图 程序 


本 程序 根据 前 述 计 算 结 果 ， 利 用 绘图 仪 给 给 出 五 个 不 同 的 P 波 
初 动 解 节 面 分 布 图 。 

(一 ) 标识 符 说 明 

AZD(7，2) 一 一 震源 运动 参数 数组 

РАТ(50, 2 一 合 站 有 关 参 数 ， жя, 第 二 列 
为 离 源 角 。 

X(6，2)- 一 一 关于 节 面 A 的 信息 。 

Y(6，2) 一 一 关于 节 面 C 的 信息 。 

IDA(50) —-Р 波 初 动 符号 组 。 = 

LINE, мс, МСН, LC 一 一 控制 变量 。 

MS 一 一 有 关 初 动 符号 的 全 站 数 。 — 

(Z) 子 程 序 说 明 

PLOTS(J, TS) 一 一 开启 或 关闭 绘图 仪 的 子 程序 。 

CHENGP(J，IS)- 一 一 换 不 同色 笔 的 子 程序 。 

PLOT(XO，YO，I，IS) 一 一 将 绘图 笔 移 至 某 点 的 子 程 序 。 

SYMBOL(X，Y， IANG, | K, МСН, 15)—— 绘 字符 子 程 


序 。 


弧 子 程序 。 
XJZ(X，XA， K) ЖЕМГЕ, 化 为 正规 方程 组 ， 求 
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出 绘 节 面 各 相应 参数 。 

QATA(N，A，AT) 一 一 化 增 广 窍 阵 为 正规 方程 组 。 

QG(N,XX,YY,A) 一 一 高 斯 主 元 消去 法 解 方程 

HW(QX,IQD,IZD,XX,YY,R) 一 一 求 出 二 节 面 相应 的 起 
始 及 终结 的 角度 值 。 

(=) 源 程 序 使 用 说 明 

数据 输入 。 通 过 数据 文件 (一 般 在 计算 过 程 中 形成 )， 分 别 输 
入 初 动 符号 组 IDA， 台 站 参数 DAT，、 及 震源 参数 AZD。 

为 了 进行 比较 ， 可 输入 五 组 不 同 的 震源 运动 人 参数， 将 它们 分 
别 放 在 五 个 文 о: COMM6 ，COMM7 COMM8, ，COMM9 ， 
COMMI0 中 ， 依 次 执行 这 些 文件 内 容 ， 即 可 绘 出 五 张 不同 的 图 
形 。 

(四 ) 源 程序 


DIMENSION AZD(7,2), DAT(50, 2) 
DIMENSION X(6,2),Y(6,2), IDA(50) 
CHARACTER LINE,NC,MCH,LC 
PAUSE‘INPUT MS” 

READ + ,MS 

RD =3,141592653/180, 

OPEN (6, FILE =*PT” ) 

READ(6, * )(IDA(J),J= 1,MS ) 

ОРЕМ(12, FILE = ‘DEAR’ ) 

READ(12, 4) ((БАТО,,2-1,2),1-1,М89 
OPEN(1, FILE =“ANY1 ) КО 
OPEN (2, FILE = ‘АМ№ү?? } 

ОРЕМ (3, FILE =‘АМУЗ? ) 

OPEN(4, FILE = АМҮ!) 

ОРЕМ (5, FILE =‘АМУ5’) 

DO 1000 1=1,5 

READ(II, *) С(А2р(1,)),2-1,2),1-1,7) 
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ТЕ (11.ЕО.1) THEN 

МСН = ‘17 

ELSE IF(II.EQ.2) THEN 

МЄН = “2 

ELSE ІЕСІ,ЕО0,3) THEN 

МСН = ‘3? 

ELSE ІЕ(ІІ,Е0,4) ТНЕМ 

МСН = 4, 

ELSE 

МСН = ‘5’ 

END IF 

МС =*N” 

LC = *0' 

OPEN (7,FILE = *СОММ6? ,STATUS = МЕҰ ) 
OPEN (8, FILE =*СОММ7? ,STATUS = МЕҰ ) 
OPEN (9, FILE =‘СОММ8’ ,STATUS =NEW’) 
ОРЕМ (10, FILE =“COMM9， ,STATUS -“МЕМ”) 
OPEN (11, FILE =*COMMI10 ,STATUS =“ NEWI ) 
CALL PLOTS(1,II+6) 

CALL PLOT(18.0,14.0,-3,II+6) 

CALL ARC0(0.0,0.0,10.0,10,0,0,360, II + 6) 
CALL 5ҮМВОГ,(0.,0,,0,5,1,С,11--6) 

CALL CHENGP(2,II+6) 

DO 350 ЈЈ=1,26 

AZ = DAT(JJ,1) * RD 

Н = DAT0J,2) RD | 

АХ = SIN(AZ) * SIN(H) + 10./(1.+ COS(H)) 

АУ = СОЅ(А2) • ЅІМ(Н) + 10./(1.+ СО5(Н)) 
ТЕ(12А(37).СТ.0) THEN 

LINE =‘ +? 

ELSE 

LINE =“-? 


END IF À 
C ALL SYMBOL (АХ, АУ, 0,5, LINE， 11-6; . 


350 CONTINUE 


CALL CHENGP(3,II+6) 

ХА = AZD(1,1) 
IF(AZD(1,1),LT.180.) THEN ` 
AZD(1,1) = AZD(1,1)+180. 
ЕҺ5Е 

А20(1,1) = AZD(1,1) - 180. 

END IF 

XC = AZD(2,1) 
IF(AZD)(2,1).LT.180.) THEN 
AZD(2, 1) = AZD(2,1) + 180. 
ELSE 

AZD(2,1) = AZD(2,1)- - 180. 

END IF 

DO 400 JJ =1,7 
`AZ=AZD0(3,1) * RD ` 

Н = AZD(J3,2) «Кр 

АХ = SIN(AZ) + COS(H) * 10,/(1. + SIN(H)) 
AY = COS (AZ) + COS(H) * 10./(1. + SIN(H)) 
IF(JJ.EQ.1) THEN 
X(JJ,1) = AX 

X(JJ,2)= АУ 

ММЕ-“А? 

ELSE IF(JJ.EQ.2) THEN 
Ү(77-1, 1) = АХ 

Ү(Ј7- 1,27 АУ е 
ІЛМЕ-“С? 

ELSE IF(TI.EQ.3) THEN 
LINE = “P? 

ELSE ІЕ(12,Е0.4) THEN 
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LINE =*В? 

X(JJ,1) = АХ 

X(Jy,2) = АҮ 

Y(JJ, 1) = AX 

Y(Jy,2) = АУ 

ELSE ІЕ(71,Е0,5) THEN 
LINE = “T | | 
ELSE IF(JJ.EQ.6) THEN ` 
LINE = “Y? 

Y(JJ-1,1) = АХ 

Y(JJ- 1,2) = АУ | 
ELSE ІЕ(11.Е0.7) THEN ` 
LINE = “Xx? 

X(JJ-2,1) = AX 
X(JJ-2,2) = AY 

END IF 

CALL SYMBOL(AX, AY,0, 5, LINE, II+6) 
IF((JJ.EQ.1).0R.(JJ.EQ.2)) THEN 
CZ=AZ-90,*RD 

ВХ-10,» SIN(CZ) 

BY =10, * COS (CZ) 

LINE = ‘0’ 

IF(JJ.EQ.1) ТНЕМ 

X(JJ+ 1,1) = ВХ 
X(JJ+1,2) = BY 

X(JJ+ 2,1) = -BX 
Х(31+2,2) = - BY 

ELSE IF(JJ.EQ.2) THEN 
Y(JJ, 1) = ВХ 

Ү(7,2)=Вү = 
ү(Ј3+1,1) = — ВХ 
Y(JJ+1,2)= — ВУ 
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END ТЕ ИОН 
CALL ЅҮМВОІ.(ВХ,ВҮ,0,5,11МЕ,11+6) ` 
CALL SYMBOL(- ВХ, - BY,0,5,LINE,II +6) 
END IF Е 
CONTINUE 

CALL SYMBOL(0.，,10.1,0,5,NC,II+6) 
CALL CHENGP(1,II+6) | 
CALL SYMBOL(0.,12.,0,8,MCH,II+6) 
CALL СНЕМСР(3, 1+6) 

CALL XJZ(X,XA,II+6) 

CALL XJZ(Y,XC,II+6) 

CALL PLOTS (2,11+6) 

CONTINUE 

STOP 

END 


SUBROUTINE ARC(XCOR,YCOR,R0,R1,1A1,IA2,IS) 

IX=XCOR 100, 

ТУ =YCOR 100, 

ІВ =В0* 100 

181 =В1 + 100 _ 

WRITE(IS, *)*АС; 7 ,1Х,7,?ТҮ,*, ,1В,*,'1В1,*,”', 
ТА], ,? ‚ТА? 

RETURN 

END 

SUBROUTINE РІ.ОТ<Х0,Ү0,1,15) 

PRINT ,<Х0,Ү0” | 

WRITE( +, •) Х0,Ү0 

ІХ =X0 • 100 

ІҮ = У0 * 100 

WRITE(IS, <) АР, ” ,IX,’,’ „ГУ, ‘,? ,I 

ВЕТОВМ 

END 





15 


25 


11 


SUBROUTINE PLOTS(J,IS ) 
IF(J.EQ.2) СО ТО 15 
ҮҮКІТЕ(15,») “ЕХ; А” 
WRITE(IS，* ) “IN? 

GO ТО 25 

WRITE(IS, *) “НМ? 
WRITE(IS, ж) “ТЕ? 
RETURN | 

END 

SUBROUTINE SYMBOL(X,Y,IANG,K,NCH,IS) 
CHARACTER МСН 

IX = X < 100 

IV =Y * 100 


; 
WRITE(IS,*) ‘АЗ; ” ,1Х,%,”,1Ү,%,7,К,%”,ІАМС6,%, 


мсн 
RETURN 
END 
SUBROUTINE ХЈ2(Х,ХА,К) 
DIMENSION Х(6,2), А(11,4), АТ(3,4) 
Е=(Х(1,1)) ж *2+ (Х(1,2)) * *2 
РО 111=1,4 Е 
A(1,1) = ХО 1,1) - X(1,1) 
А(Т,2) = Х(1+ 1,2) - Х(1,2) СОИ 
А(Т, 3) = (Х(І+1,1)) * “2% (ХА +1,2)) * *2-Е 
А (1,3) = А(1,3)/2, 
CALL ОАТА(4,А,А,Т) 
CALL ОС (2,ХХ,ҮҮ, АТ) 
PRINT *,*ХХ- - ҮҮ’ 
WRITE(* ，* )ХХ,ҮҮ 
КЕ = 0， 
DO 112 І-1,5 
P=X(X-X(1,1)) * *2+(ҮҮ-Х(1,2))* #2 
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P = SQRT(P) 
112 RR=RR+P 
RR =RR/5. 
РВІМТ < ,* RR” 
WRITE(*,*)RR 
CALL PLOT(XX,YY, -3,К). 
CALL HW(XA,IQD,IZD,XX,YY,RR) 
CALL ARC(0.,0.,RR,RR,IQD,IZD,K) 
CALL PLOT(- ХХ, - YY, —3,K) 
RETURN 
END 
SUBROUTINE HW(QX,IQD,IZD,XX,YY,R) 
DEG =180,/3,141592653 
ALPH =ASIN(10./R)* DEG 
PRINT + ‘XX&YY’ | 
WRITE( », +) ХХ, УХУ, ОХ 
BLTE = АТАМ(АВЅ (ҮҮ/ХХ)) «БЕС 
PRINT * ,*ALPH,BLTE? ` 
WRITE( +, *)ALPH, BLTE 
IF((QX.GE .0.).AND.(QX。LE .90.)) THEN 
IQD =180,- ALPH + BLTE +0.5 o 
IZD = 180. + АЕРН + ВІТЕ +0,5 
ELSE ТЕ((ОХ.СТ.90.).АМО.(ОХ.ГЕ.180.)) THEN 
IQD = 180, – ALPH- BLTE “0,5 | | 
IZD =180,+АІРН-ВІТЕ+0,5 — 
ELSE ІБ((ОХ,СТ,180,).АМр,(ОХ,1,7,270.)) THEN 
IQD = 360, - (ALPH - BLTE)+0.5 
IZD = 360. + ALPH + ВІТЕ +0,5 | 
ELSE ТЕ((ОХ.СЕ.270.).АМО.(ОХ.ГТ.360.)) THEN 
IQD =360. - ALPH- BLTE 50,5 
IZD = 360, +ALPH-BLTE +0.5 
END IF | 
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PRINT* ,IOQD,IZD， 
WRITE(*，*)IQD,IZD 

RETURN 

END 

SUBROUTINE ОАТА(М, А, АТ) 
DIMENSION А(11,4), АТ(3,4) 
DO 12 1=1,2 

БО 12 1-1,3 

AT(I,J) = 0. 

DO 12 К=1,М 
AT(1,J)= AT(1,J) + A(K, I) + A(K,J) 
РВІМТ - ,* AT 

\ВТТЕ( •,13) ((AT(I,J),J =1,3), I=1,2) 
FORMAT(1X,3F10.4) 

RETURN 

END | 
SUBROUTINE QG(N,XX,YY, A) 
DIMENSION A(3,4) 

NMI=N-1 

DO 10 К=1, ММІ 

C=0 

DO 21=K,N - , 
IF(ABS(A(I,K)).LE.ABS(C)) GO ТО 2. 
C =A(I,K) 

19-І 

CONTINUE 
IF(ABSCC).GE.IE-06) СО ТО 3 
І5УУ-0 

RETURN 

ІЕ(І0,ЕО.К) СО TO 6 

DO 4 J=K,N 

S=A(K。J) 
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А(К, J)=A(I0, J) 
A(10,J) = 5 

$ =A(K,3) 
А(К,3) - А(10,3) 

A(I0,3) = S 

КР1=К +1 

С=1/С 

A(K,3) = A(K,3) «С 

DO 10 J=KP1,N 

A(K,J) =A(K,J) * С 

DO 20 I=KP1,N 

A(I,J) =A(1,J)—- A(I,K) * A(K,J) 
A(J,3) -А(2,3)- A(J,K) * A(K,3) 
A(N,3) -А(М,З)/А(М,М) 
DO 40 K =1,NM1 

I=N-K 

C=0 

ІР1=1+1 

DO 50 J =IP1,N 

С=С +А(1,Ј) + A(J,3) 
А(1,3) = А(1,3)- С 

УУ =А(2,3) 

ХХ =А(1,3) 

PRINT •, ‘XX,YY’ 
WRITE(*,*) ХХ,ҮҮ 
ISW=1 

RETURN 

END 

SUBROUTINE CHENGP(J,IS) 
WRITE(IS,*) “МР; ? ,J 
RETURN 

END 
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附录 计算 实例 


某 次 地 震 有 26 个 台 站 的 资料 ， 其 计算 结果 及 打印 机 输出 图 形 
如 下 (并 附 有 离 源 角 表 ): 
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图 4- 附 1 
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下 面 的 五 张 附 图 是 利用 绘图 程序 得 到 的 。 
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第 五 章 ”震源 的 计算 机 定位 


1960 年 前 后 ， 国 际 上 兴起 了 地 震 震 源 计算 机 定位 的 热潮 。 这 
就 是 采用 计算 机 测定 地 震 台 网 记录 到 的 地 震 基本 参数 ， 例 如 发 展 
时 刻 、 震 中 位 置 及 震源 深度 等 。 后 来 ， 经 过 很 多 人 的 研究 改进 ， 
计算 机 定位 的 算法 及 程序 已 得 到 了 广泛 的 应 用 。 

测定 涯 源 位 置 及 发 震 时 刻 最 常用 的 方法 是 Geiger (1912) 5] 
入 的 ， 通 常 称 为 Geiger 法 。 这 种 方法 实质 上 是 将 非 线性 问题 化 为 
线性 问题 ， 然 后 利用 最 小 二 乘 原 理 选 代 求解 。 通 过 反复 修 定 ， 以 
得 到 震源 参数 的 最 佳 值 。 

“近年 来 ， 由 于 数学 方法 的 发 展 ， 使 计算 机 定位 问题 有 了 更 普 

遍 而 行 之 有 效 的 方法 。 利 用 广义 道 或 最 优化 方法 修 定 震 源 会 数 ， 
可 以 得 到 更 快 的 收敛 速度 和 更 高 的 精度 。 
”一 般 说 来 ， 计 算 机 定位 要 确定 四 个 参数 ， 即 震源 的 空间 坐标 
(4，p，h) 及 发 震 时 刻 (1)。 为 此 ,我 们 需要 知道 台 网 各 个 台 站 的 
坐标 ， 以 及 至 少 四 个 台 的 地 震波 到 时 。 由 人 台 网 提供 的 到 时 数据 主 
要 是 指 P 波 的 到 时 ， 因 为 各 种 续 至 波 的 相位 通常 是 难以 识别 的 。 
如 果 地 震 发 生 在 合 网 内 ， 那 么 只 利用 P 波 到 时 定位 并 不 困难 。 如 
果 地 震 发 生 在 台 网 以 外 ， 这 种 解答 是 不 确定 的 。 为 了 进行 参数 的 
修 定 ， 一 般 要 用 到 走时 表 ( 有 时 是 区 域 走 时 表 ) 或 对 地 碗 平均 速度 
作出 假设 。 

这 一 章 ， 我 们 将 详细 讨论 近 震 及 远 震 的 计算 机 定位 方法 。 特 
别 是 各 种 修 定 大 中 的 算法 。 最 后 给 出 实用 的 定位 程序 及 计算 实 
例 。 
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55-1 近 震 的 初步 定位 


利用 区 域 台 网 记录 对 近 震 及 地 方 震 定位 ， 可 以 得 到 较 高 的 定 
位 精度 。 定 位 计算 一 般 分 两 步 进行 ， 即 初 定 各 修 定 。 初 定 震中 
时 ， 仅 须根 据 区 域 台 网 提供 的 直达 波 到 时 ， 将 走时 方程 线性 化 ， 
从 而 解 出 四 个 基本 震源 参数 。 在 初 定 震 源 参 数 的 基础 上 ， 然 后 采 
用 “中 国 地 区 近 震 走时 表 ” (或 区 域 走时 表 )， 以 最 小 二 乘法 或 其 
它 最 优化 方法 对 这 些 参数 进行 修 定 。 为 了 保证 修 定 的 质量 ， 必 须 
在 修 定 前 对 全 站 数据 进行 检查 ， 别 除 那些 明显 错误 的 数据 。 


— —..  .— аа — 


这 一 тн, 讨论 初 定 震源 参数 及 检查 台 站 数据 的 算法 。 


(—) 坐标 的 变换 


”对 于 近 震 及 地 方 震 的 计算 ， 采 用 平面 坐标 比 球面 坐标 方便 。 
为 此 需要 将 经 纬度 换算 为 局 部 的 直角 坐标 系 。 

这 里 需要 指出 ， 为 了 处 理 数据 方便 ， 一 般 是 将 国内 基准 合 网 
及 区 域 台 网 的 全 部 台 站 的 经 纬度 及 高 程 均 输入 计算 机 内 。 但 是 ， 
”在 作 具 体 计算 时 ， 只 用 到 其 中 一 部 分 台 站 ， 也 就 是 只 需要 把 这 部 
分 台 站 的 经 纬度 (球面 坐标 ) 化 为 平面 坐标 系 。 

因而 ， 直 角 坐 标 系 的 原点 是 
浮动 的 ， 每 次 都 选 来 尽 可 能 的 千 
近 震 中 区 ， 以 减少 变换 过 程 带 来 
的 误差 。 在 计算 程序 中 ， 坐 标 原 
点 确定 在 接收 到 该 次 地 震 信 号 各 
台 站 经 纬度 的 平均 值 40 及 go 上 ， 
x їй ЖК, у 轴 向 北 ， 如 图 5-1-1 
所 示 。 | 图 5-1-1 

于 是 ， 地 面 上 任 一 点 (其 经 纬度 为 4、 P 相对 于 坐标 原 点 0 
(ло, ФОНИЯЗИЕ x. y 的 换算 公式 为 
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х= Ё,СА — Ао)соѕфь› 
у= В, (ф- p) + апра, (5-1.1) 


其 中 参数 
= й 
(1- езеіп?фо0172” 


вю - ol-e) 
" (1-e2sin2bo)373” 


КӨЖЕ. 及 Ra 中 的 常数 又 为 
е2 = i = 0.0066935165，( 地 球 的 偏 心率 ) 


а =6378.160km, (地 球 长 半径 ) 
b=6356.778km。 ` (地 球 得 半径 ) 
经 换算 为 平面 坐标 系 后， 就 可 以 用 计算 机 确定 震源 参数 。 但 
这 样 得 到 的 震中 位 置 仍 是 局 部 的 x、? 坐标 。 因 此 ， 必须 化 为 经 
Ел. 输出 。 将 直角 坐标 值 x, УЕ), 的 换算 公 
式 为 


一 . X _ + 3 
А R.cosó, Ao 
ф- R— - алдо + ф,, | (5-1.2) 


(=) 初 定 震源 参数 


为 了 使 修 定 震 源 参 数 的 初始 值 尽 可 能 接近 实际 值 ， 有 必要 对 
震源 参数 进行 初 定 ， 以 减少 修 定时 的 迭代 次 数 。 实 际 计算 表明 ， 
只 要 输入 数据 正确 ， 初 定 的 震源 位 置 及 发 震 时 刻 足够 精确 ， 就 可 
供 地 震 速 报 之 用 。 其 其 体 方 法 如 下 。 

设 接 收 到 某 次 地 震 直 达 波 到 时 的 合 站 及 个 (n 宇 4)。 其 中 任 
一 台 站 的 坐标 为 (xi，yi)， 相 应 的 直达 波 到 时 为 Ti。 待 求 的 Ж 
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中 位 置 为 x，y， RREN z, KRRIT. НБУ 
型 ， 可 列 出 下 列 方程 : 
(x—xi)2+ (y-y:)? +z? =V2(T,— T), 
i=l, 2.-, п. (5-1.3) 
APV 为 地 震波 在 地 壳 中 的 平均 传播 速度 ， 因 区 域 不 同 而 异 。 例 
如 ， 北 京 合 网 取 V =6.0km/s ， 四 川 合 网 取 V =5.5km/s ， 均 能 
取得 较 好 的 计算 结果 。 
式 (5-1.3) 为 非 线 性 方程 组 ， 为 便于 直接 求解 ， 首 先 应 将 其 
线性 化 ， 变 为 线性 方程 组 。 为 此 将 (5 -1.3) 式 展开 得 
х2-Әххі ха ty? 2у,у+у? +22 
=V2(T!*—2TT:+ T2), 
i=l, 2, +, п. (5-1.4) 
对 于 第 一 个 台 ，(i =1) 可 以 写 出 
х? < 2xix+x1+y2-2yuy+tyl+z2 
-У2(Т7%-2ТТізТ2), ЕЕ (5-1.5) 
将 (5-1.4) 式 中 i 分 别 代 以 2，3，…，n 与 (5-1.5) 式 相 减 得 
(xi—xi)x+ (y;Ëc у1)у- V2(T; -Ti)T 
=((xi+y!-V2T1y- (x4 tyi- V2T152/2, 
=2, 3, =, п. x (5-1.6) 
HEE n-1 个 线性 方程 式 。( 5 -1.6) 式 已 消去 了 深度 参数 z， Я 
有 x、y、T 三 个 未 知 数 。 由 于 n -1 一 般 都 大 于 3 ， 故 (5-1.6) 式 
所 表示 的 线性 方程 的 个 数 多 于 未 知 数 个 数 ， 妈 构成 下 列 所谓 超 定 
方程 组 | 
(ха-хі)х + бу; Зуру- V2(T2— Ti )T 
=((x1+y1- V2T1)- (a2 + yt - V2T1)2/2, 
(x3— хх + (ys -yy V2 (Ts -TOT 
=((x1+y1- V2T3)- (xf t y1— V2T1)2/2, (5-1,7) 


ra ле лл 加 fu А асе ас. A. 


=((х1+уї — V2T1)- (x1+ y3- Ұ2Т%)2/2. 


为 了 表达 简洁 起 见 ， 将 此 超 定 方程 组 用 甜 阵 形式 表达 


Ах =, | (5-1.8) 
其 中 | | 


Ха-хі у-ур -V?(T2-T1:); 


Х3-хі 93-уі —V2(T3 — Ti): 
A= ... ... 


n” Xl у, — у! -Ұ?(Т,-Т1) 


» 


f x 


((хз + у? — 


УТ) - (хі +yi- У?2Т{)2/2 
Cityt- | 


-У?Т})— (ха tyi - У т: 2/2 


Сх + у? урну сиу А! 


可 以 证 明 ， 矩阵 A 是 列 满 秩 的 。 НГУЕН ЕН, 
А: = (АТА) 47， 线 性 方程 组 (5 -1.8) 式 的 解答 为 
| x%=A 7 1b=(ATA) A. 
由 此 便 确 定 了 x = (х, у, ТОЕ НАЙ. 
МТА И z， 可 把 求 得 的 震源 参数 x、>、T 回 代 入 
(5-1.3) 式 ， 由 n 个 台 站 的 数据 计算 平均 的 震源 深度 z 


= Р (V2(T; - T)2— (x — xi) — (yy) 1% /п. 


(5-1,9) 


i=l 
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(=) 个 站 数据 的 检查 


在 初 定 震源 参数 x、?>、z、T 后 , 即 可 利用 这 些 数 值 去 检验 由 
于 时 间 服 务 不 准 或 其 它 各 种 原因 导致 的 地 震波 到 时 的 错误 数据 。 | 
在 处 理 大 量 资 料 时 ， 输 入 一 些 个 别 的 错误 数据 是 难免 的 。 为 了 保 
证 被 修 定 的 震源 参数 的 质量 ， 必 须 对 台 站 的 资料 进行 检查 。 这 可 
以 由 以 下 方法 实现 。 | 

根据 初 定 的 震中 位 置 x、y 及 各 人 台 站 的 坐标 xi уг, WUR 
出 相对 于 各 台 站 的 震中 距 

а; =4/(х;- х)? + (у-у)? . 

由 震中 距 а; 根据 “中 国 地 区 近 震 走时 表 ” (或 区 域 走时 表 ) 

内 插 求 得 理论 走时 AT 胖 ， 则 各 相应 的 理论 到 时 为 


T = T+ aT”. 

其 中 7 为 发 震 时 刻 , 将 计算 得 到 的 理论 值 T 7” 与 实际 观测 的 到 时 了 
相 比 较 ， 若 二 者 相差 在 土 (1 一 2 ) 秒 范围 内 (应 根据 台 网 时 BJ ДИ 
务实 际 精度 而 定 )， 则 认为 是 正常 偏差 。 若 二 者 相差 超过 此 范围 ， 
则 认为 该 台 站 观测 到 时 T 尿 的 数据 有 错误 而 予以 蓟 除 。 

当 一 组 数据 经 剔除 后 剩 下 的 台 站 不 足 4 个 时 ， 则 停止 运算 。 
车 等 于 或 多 于 4 个 ， 则 利用 这 些 满足 要 求 的 台 站 到 时 继续 进行 震 
源 参 数 的 修 定 。 


$ 5-2 Сене ЕЛЕНЕ 


为 了 得 出 更 精确 的 定位 值 ， 必 须 对 初 定 值 进行 修 定 。Geiger 
法 包含 非 线性 方程 线性 化 和 最 小 二 乘 两 个 基本 概念 。 下 面 详 细 讨 
论 这 种 算法 。 

设 第 ;个 台 直 达 波 到 时 的 观测 值 为 T 丙 ， 对 于 均匀 地 帝 模 型 理 


“247% 





ас" Галай туу? wau, wa—- a. —— 8н 一 Т 
І 


论 到 时 值 为 


T;(X,y,zZ,T) = Ух (у-у)? + (2-21) +T. 
СОН © (5-2.1) 
式 中 x，y，z，T 工 为 震源 参数 ，x;，yi,z 1; 为 第 i 个 台 的 平面 坐标 
位 置 及 高 程 。 Т; 是 x， ys 2» T 的 函数 。 
我 们 将 初 定 的 震源 参数 记 为 (xo， уз, 59» To)”, 则 由 此 可 
求 得 相应 的 理论 到 时 为 


то» yos Zos То) = тя 


+То, ісі, 2, +з, в. (5-2.2) 


ШЖ И (х, y, 2, T)7 表 示 震 源 参 数 的 真实 解 ， 且 假 定 初 定 
的 震源 系数 (xo，y。，zo，To)7 与 真 解 足够 接近 ， 根 据 Taylor 
展开 式 可 以 得 到 下 述 近 似 表达 式 : 


T (X, у, Z, Т) =т;(хо» Yos Zo, То) 





+ x. + бт; 9, ) 
(хо.,У0,20,То) ду (хо.У9,29. То) 
+ дт; + Or ôT + Сі» 
92 (xo, Y”, zo, To) "ӛт (хо,Уо,20,7) 








| i=l, 2, 4... и. (5-2,3). 


式 中 ti(x，y,.z，T) 是 真实 到 时 ， 实际 上 可 以 认为 它 是 第 i 个 
合 的 观测 到 时 TY， дх-х- хо» ду=у- уо, 9252-24; ÔT = 
т-То: ei 为 二 次 及 二 次 以 上 高 次 T ;截断 误差 项 。 

”我 们 把 观测 到 时 T 于 [无 误差 时 ， 它 应 等 于 理论 值 r;(x，y，z， 
7T)J 与 由 初 定 企 源 参数 计算 的 理论 到 时 7 (хо, уо, 20, То) 2. Æ 
为 到 时 残 差 ， 记 为 
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„+ <. 


Бұ-т.(х, у, 2, T)— Ti(X0> У, 20, То) 









































_ ӧті Өх 十 От; | 
ax (хо, Уо, 29, То) ду (Хо. Уо,20, Го), 
дт; |. от; 
y+ Di 82+ 911 
РУ 92 (Хо, Уо, 20, Го) ôT (Хо, Уо, 20, То.) 
ÔT + е;, i=l, 2, s ne (5-2.4) 
根据 (5 -5.1) 式 ， 不 难 求 得 各 偏 微分 项 为 
оті ме ЕЕ 
OX 1 (хо, ув. де. То) Ух; 98% 0%- yi)? + (z, — га): 
= (is 
ОФ; Е ГУНГ 
Ayi (хо, уо, 20, То) V (xo — x ;)2 (уо — у) 2 (2—2)? 
= bis (5-2,5) 
ОТ: Zo- Zi 
GZ | (хо, уо, Zo, To) Ух, .) 2 + (уз 一 у? + (zo _ z, ҺЕ 
-с;, 
OTi = 1 
oT (Хе, о, 28, Го) 
式 ( 5 -2.5) 都 是 常 系数 : 这 样 便 得 到 一 个 线性 方 称 组 
К-дТ-а;дх + Ы;дут c;óz+-e;, 
1-1, 2, б, И, 
移 项 便 得 


ei = Ri—ÓT-aióx—biióy- с:02, ` 


i=l, 2, `... и. 


上 面 我 们 指出 e; 是 截断 误差 ， 但 实际 上 还 存在 观测 误差 ， 央 
此 把 e; 看 成 包含 观测 误差 及 其 它 所 有 误差 项 更 合适 一 些 。 


И HGDE32EDUOF RS ЖЛ 


> е? = У? [к іт (Т “а; Ох +b: oy+ eon] = тіп, 


i=l іші 
(5-2,7) 
由 此 条 件 ， 可 分 别 求 偏 导数 ， 并 令 结果 为 零 
д п өз Ё 
ЗСТ) (> ')= o, | 
GCCx) (> ')= 0， | 
(5-2.8) 


sap (> “) 79. 


不 难得 到 下 列 线性 方程 组 


HG7T + > а;дх + у! р:ду + ў с:д2 = Ri, | 

i=] i=l i=l i=] | 
| 
у; а07+ уу а!дх+ у; abiðy+ у; асг = p ак, | 


i=l i=} i=} $ = 1 i=l 





п | . п P no ; | n pa _ n u | 
> biT + Уу ад + >> р.ду+ > DiCiGZ >; Ь.К,, 
ізі! i=] - i=1 1=1 i=l 
| | 
cioT + а;с:дх + р:с:бу 十 сїд& = сы | 
> > > > > 


i=] j=} i=1' =1 i=] 


(5-2,9) 


注意 ， 在 和 迭代 过 程 中 ， 式 (5-2.9) 中 各 系数 可 以 写 为 





XX 
' Үр; 
=- УТУ: 
b үр; А 
с =: 
1 үр; 2 
Romon- D, 





D. = Urn (усу) 0220)? 


х, у, 2, T AEREE H AW ur 36 ВАН. | 

-一般 说 来 ， 解 方程 组 (5-2,9) 即 可 求 得 震源 参数 各 修 定 项 
6x，Jy，0Z 及 6T。 因 此 ， 用 Geiger 法 修 定 参 数 是 一 个 简单 易 行 
的 方法 。 特 别 是 用 计算 机 处 理 更 为 便利 。 但 是 ， 解 方程 组 (5- 
2.9) 并 不 一 定 都 能 得 到 预定 的 结果 。 这 常常 是 因为 台 站 分 布 不 台 
理 及 地 党 速度 模型 不 正确 而 导致 方程 组 (5 -2.9) 中 的 系数 矩阵 是 
病态 的 。 由 于 求解 校正 量 6x，6y，6z ОГНЯ, ВСЕ E 
震源 参数 过 程 中 采用 和 迭代 法 ， 对 未 知 量 进行 分 离 ， 先 求 出 6x，69 
及 6z 的 值 ， 然 后 再 回 代 求 or РИН. ЖА 045389 34% EF JS BJ 
参数 ， 都 作为 下 一 次 计算 的 起 点 。 

出 方程 组 ( 5 -2.9) 的 第 一 式 得 


р le ЕЕ ке 
Ти: (у, ах Ж ду D сїт}. 
i= 1 ізі ств 


із! 


(5-2.10) 


АА ДАША 5 -2.9) 式 中 后 面 三 个 式 子 ， 可 以 得 到 以 下 线性 方程 


ё) 5а 808 9), 


> а----- у aibi 


(©...) 


р + | CC 一 一 
> | Е 2= У ав, 





к) 


È JÈ: D di К) 


Аш. 





(5 э. ) 


+ D b; с; 5-22-22. 21 óz = У; Ы.Е; 
іш 1 











Бау 


22524 





,ENE Ұй 





у 66. 
2 @ "ХЕ; ) 
x 2 9%: i =- 19% 
БУ, 6989 
бу et- ” abu as | 


(5-2,11) 


方程 组 (5-2,11) 中 只 有 三 个 未 知 数 ，6x, ду, бх, 利用 一 
般 的 消 元 法 即 可 解 出 这 个 修正 项 。 而 时 间 修 正 项 6T 可 将 求 出 之 
6x，dy，6z 回 代入 (5-2.10) 式 中 即 得 。 | 
不 过 ， 用 这 样 的 方法 修 定 震 源深 度 z 是 不 准确 的 。 所 以 ,我 们 
将 用 试探 法 求 震 源深 度 ( 方 法 见 后 ) 。 Банка ЖЖ 
时 刻 为 
х’=х+дх, 
у’ =у+ду, 
| Т ЕТ+ОГ. | 
修 定 项 6x，d6y，6T 的 绝对 值 可 用 来 估计 精度 。 癌 不 满足 预 
ERRI, MHE EIE, y RT 作为 下 次 修 定时 的 初 值 ， 
再 进行 修 定 。 如 此 和 迭代 计算 ， 直 至 满足 预定 精度 为 止 . 
最 后 应 当 指 出 ， 用 计算 机 对 震源 参数 进行 计算 ， 很 大 程度 上 
依赖 于 输入 数据 的 质量 。 因 此 ， 必 须 仔 细 地 准备 输入 数据 。 由 于 
各 台 的 时 间 服 务 及 记录 质量 的 差别 ， 可 以 用 加 权 最 小 二 乘法 来 合 





理 的 处 理 数 据 ， 提 取 有 用 信息 。 ЕС 
55-3 远 震 震源 参数 的 修 定 
这 一 节 ， 讨 论 用 Geiger 法 对 远 震 震 源 参 数 进行 修 定 的 算法 。 
由 于 远 震 是 在 球面 坐标 上 定位 的 ， 所 以 它 它 的 计算 方法 与 近 震 有 很 
KAR. 
对 远 震 震源 参数 进行 修 定时 ， 必 须 给 出 震中 经 续 度 及 发 展 时 
刻 的 初始 值 。 这 个 初始 值 可 由 于 手 算 或 其 它 任意 方法 估计 。 例 如 ， 
常常 取 最 小 走时 ( 即 最 靠近 震中 ) 的 台 站 位 置 作为 初始 震中 。 计 算 
时 一 般 都 采用 JB 表 。 目 前 ,已 编制 了 “中 国 地 区 P 波 走时 表 ”。 因 
此 ， 对 国内 或 邻近 边境 的 地 震 ， 用 这 种 走时 表 也 可 取得 较 好 的 效 
果 。 下 面 讨论 修 定 震 中 的 计算 方法 。 


(—) ЕЛАН 

在 修 定 震源 参数 前 ， 必 须 对 观测 走时 进行 合 站 高 度 校正 和 地 

球 椭圆 扁 率 校正 ， 以 便 使 观测 结果 划 归 到 同一 基准 面 。 
п 


— FW 


Е 








я , (A>1,5°) 

Р 

А 6 =— Zs/Ze (А1.5°). 
Ур v (111.1954)? + 21, 


ір Zs 人 台 站 海拔 高 程 ， 以 公里 计 。 
Z ,震源 深度 ， 以 公里 计 。 
.Vp 表层 纵波 速度 ， 可 取 为 5.5km/s。 
R 地 球 平均 半径 ，6371.0km。 
ARPE, ВЕЛ AM. 


земани аввл EN 以 通过 走时 











(5-3,2) 





НЕН ЧЕН КИ 
走时 的 地 球 椭圆 遍 率 校正 公式 如 下 
бір- КА) (И.И). 

Ж5-5-1 ЛЛА kh St 
ф һ(Ет) b. Е 
000” | | +17 44°55” 

10711” | 十 6 47°37’ 

16°12” +5 50°17’ 

20742” 十 4 53701” 

24729” 3 | 55°50” 

27°53” +2 р] 587467 

31700” tl Ca 61°51? 

33758” ог 65711” 

36748” | —1 68759” 

39733” — 9 73°11’ 

42715” —3 78750” 

447557 907007 





Жаз», УЕНИЯКЕНЕ 与 等 
kR [B] Јур НЕЕ, ДЕН) 
理 纬度 的 函数 ( 见 表 5-3-D)。 
台 站 处 按 同 上 定义 前 高度， 
差 ， 也 是 地 理 纬度 的 函数 。 上 述 
两 值 可 分 别 由 震中 或 台 站 的 地 理 
纬度 查 得 。 | 
КОЖ B Bü 
数 ， 可 由 表 5-3-2 查 出 。 


Ж5-5-2 КОМ 


А 


124° 


(с) 震中 距 A 的 计算 
在 作 震 源 参数 修 定时 ， 要 计算 震中 到 和 名 台 站 的 距离 4. Ш 


Қаз 


"Оз" 


HA; 从 走时 表 查 得 理论 走时 ， 与 实际 观测 走时 相 比 较 。 RER 
差 以 确定 各 震源 参数 的 校正 值 。 | 
_ 设 地 震 台 的 地 理 纬 度 为 内， 经 度 为 4,， 地 心 余 纬度 为 $/ ;地 
震 震 中 的 地 理 纬度 为 $。， 经 度 为 4。， 地 心 余 纬度 为 5'。 则 可 按 
下 式 计 算 震 中 距 A: 
cosA=aA+bB+cC, (0°<А=180°). (5-3,3) 
жн аз віпф”совА.» 
b= ѕіпф/ѕіпл,, 
с= Cosoi, 
А = віпф/ совА5, 


B= sing /sinÀs,; 


С = cos’. 
. е 
地 心 纬度 $ 与 地 理 纬 度 $ 的 关系 为 о 
tand = (1-е)?1а1. (5-3.4) 
АН е=1/298.2537 ЯН. | 
жо РВ ЛЕ БЕ М, ШК: 
b’ = 90 一 中 ， (北纬 )， : К ` (5-3.5) 


29095, (Ң Б). 


(=) 震源 参数 的 修 定 


”再 (5-3.3) 式 计算 的 第 i 台 震 中 距 A; ， 可 以 按照 对 应 于 震源 
深度 的 走时 表 用 内 播 方法 得 到 理论 计算 走时 t。 。 于 是 第 i 台 的 走 
НУ ЭЁ ЖЕ Е, 便 是 观测 走时 与 理论 走时 之 差 

Е: = (Фр; і0)-іс:» | | 
ілз1,2,--- ‚п. (5-3,6) 


式 中 tp WPi BPRS, to ARRA. P RARA 
жнт нЕ. ЖЕУ ЖІ. Mar 
将 残 着 与 各 种 误差 之 间 的 关系 表示 为 | 














діс; діс: діс: діс; 
іт а ОА. + = Өф» + 5, 9 г, 
š ato 9107 дА. 4 9. $ д.“ 
| іс-1,2,--, п. (5-8,7) 
上 式 中 各 偏 导 数 项 分 别 为 
Эс; — 
1, 
Oto | 
діс, - Ее; ОА; 
ЧАС QA; ОА. | 
діс - 044: ОД; 1-25 
дф, дА; дф, . (5 2. ) 
且 有 以 下 关系 
од: = — sinz; віпф”, 
ОА. 
ОА; _ | - 
дф, COSZ;, (5 3. 9) 
A P- | 
sinz; = (sing, (со84.8іпЛ;- біпА.сов4.))/віп А;» 
со82; = (с0$ф/ - совф “сов А) / (зіпф sinAi) 。 
(5-3.10) 


现在 解释 式 (5-3.7) 一 (5 -3,10) 中 各 符号 的 意义 : 
zi ”震中 相对 于 第 i 合 的 方位 角 075<2<3607, 
SCi 走时 曲线 的 斜率 ， 即 慢 度 (单位 为 秘 / 度 ) ,可 以 走时 志 


дА; 
上 由 内 插 公 式 计算 。 
Siei 走时 对 震源 深度 的 微 商 ， 也 可 由 走时 表 用 内 权 公 式 求 


将 (65- -3. 8) 及 (5 -3。 9) 式 中 各 有 关 项 代入 (5- 3. DR, чив 


























到 下 述 修 定 震 源 人 参数 的 超 定 方程 组 
ОЕ. + (Ze )eosz, :99, үзі ілді 8іпф/04. + Ср Ei, 
i=l, 2» б, И. ` | (5-3.11) 
如 将 上 述 方程 组 改写 为 矩阵 形式 则 为 
Ах =), (5-3,12) 
其 中 
6 дісі А __ Otci р . / дісі № 
1 JA, CCSZ1 ЗА; 51021 sino; z | 
| | | 
| діс: а : Stes ny, Qina! дісі : 
_ 1 А, -СС822 JA: біп2>біпф; 32. | 
А = | | 
Otca _ біс, 0. ~ 7 Оса | 
k дА, ccSZ, ЭА: ѕіп2,5іпф, 52. | 
| епха» 
| . (5-3.13) 
x= (to, Ób, ОЛ.» 92.01, (5-3,14? 
b= ë, &2, "ta En) 1, | (5-3.15) 


Е, АЖЯБАРЖИЛРНМИНИЖБӘЖВЕУФИН H E 
时 表 算 出 。 根 据 广义 道 方 法 ， 可 得 出 震源 参数 修正 值 x. 的 解 为 

| х=(АТА)-! АТВ. (5-3.16) 

向 此 ， 得 到 修正 后 的 震源 参数 为 

tó = {о + біз» 
| (5-3.17» 
ф^ = фо + ӧф., | 
А = д, + дА, 
2/ = 2„+ 02,, 


ЕРІН ТЕЛІ ， 每 一 次 都 用 修 定 后 的 参 
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数 ， 作 为 下 一 次 计算 的 初 值 ， 反 复 计算 。 直 到 相 邻 两 次 计算 结果 
的 走时 残 差 的 标准 误差 (以 秒 为 单位 ) 的 差 值 小 于 某 一 限 差 为 止 。 
残 差 的 标准 误差 定义 为 С, 


Е (п-т). w. ^ (5-3,18) 

ТЕ 22 g 
n 为 所 用 的 地 震 台 数 ， Ht 为 修 定 的 参数 值 ， 一 般 mm = 4。 若 不 修 定 . 
震源 深度 z,,m = 3。 


而 修 定 信 tf，$/，4/ 及 z! 的 均 方 误差 为 


п = latl, Е. 


Ша = uv |а|, 

ид = +u аі, |, 

нану йа). | (5-3.19) 
Жанар УЗ (САТАНА, 


55-4 阻尼 最 小 二 乘法 修 定 震 源 参 数 


由 于 震源 参数 的 目标 函数 具有 残 差 平方 和 形式 ， 故 用 求 目 标 
沙 数 的 一 阶 导数 的 方法 进行 修 定 是 合适 的 。 以 下 将 以 近 震 修 定 为 
例 进行 讨论 。 | 
_ 设 第 i 合 P 波 到 时 的 观测 值 为 工 ;， 由 给 定 的 震源 参数 x 求 出 
之 理论 到 时 为 Ti (XxX) ， 故 残 差 


К;(х) =Т;- т; (x), i=1, 29077» п. (5-4,1) 
而 目标 函数 为 
PX) = у R(x). | (5-4,2) 
i= 1 
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Киря = (x, у, 2, ТГ, ЖАҒА ЩА = (4, $, z, ТГ. А 
某 一 初始 点 x。 НЕ, ВЕКЕ ЖАННАН хі» ха) +з, 
хк, s ҖАН ЕЕ АЛ = (Ax, Ду, Аг, ATIPE (2- 
6.213 式 计算 | 

АХ = (АТА Dg, 
ЖаН АННАН, Гуа, А ЭЗШ РЕЗКА RAE 


‚бту Оту От, ÖT, ` 
‘Ox ду 92 ӨТ 


T2 012 012 ÖT? | 

_— Gx бу б; ат | И 
07, 07, 07, От, | 
дх (бу 02 ЭТ ХХ), 


ШІН СА» | 
£ = ATCT- N. (5-4,4) 


ЖФ = CT 72 人 TD) TCMN) = (т, (х) TCX), -ет,Сх))7, 
Е ЕЕЕ ЕРІГЕНДЕ . 


ЛУ ВОН PE АНТ ЕТІН E By atiy ру В, ВИ ХЧ 79 
定 的 震源 参数 x,，y，z, 工分 别 增 大 10-* 或 10-”， 考 察 相 应 走时 
的 变化 ， 并 用 (2-6.33) 式 进行 计算 。 
| 按照 式 (5-1.1)—(5-4.4) АКИН, НАНЫ AO) 
达到 预定 类 度 为 下。 中 了 用 走时 残 差 平方 天 作为 评定 准则 外 ， 还 
可 以 采用 校正 什 的 大 小 作为 收 钱 条 件 。 例 如 ， 于 于 近 震 ， 当 震中 
距 校 正 量 Ax? + Ау? <1km, REHA 校正 Е А75<0,55; 
远 震 震中 距 校正 量 /A95+ АА? 三 0.1°， 发 震 时 刻 校正 量 AT<1 
88, ИМЕ. 

НЕН КЕЛЕ ӘНІНЕН 如 图 5-4-1 
示 。 本 方法 对 远 震 震中 修 定 也 同样 适用 。 


“260。 




















МІНЕ ЖЕР 20. BESE Xo. 


=> i Ао >À, ` X; = X, 








[йй ЫЕ А, о, НЕМ IX.) 





НИ ИЙИЛ ЛАВЕ ЯГНН: 





-uti 










形成 正 况 方程 组 系数 矩阵 
АТА, МЕИМАТВ (Xi) 






Я ЕН ТВЕН ЖЕРІНЕН 
АХ) (АГА А, TO ATR (X; ) 


ТЕГЕН 1 = X, + AX, 







4 


тар 目标 函数 Ф Үн ) ` А 






用 二 分 法 


TE Ау. ) ФАХ, Ж а, x; | 





ИА -Д ЕБ та>" | &AT<0.5 @ x D XN 





ях 





R5 -4-1 
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+ 
. 一 一 -一 下 一 san s эле О. 


Š 5-5 :we я Жік Н > 参数 | 


Powell 方法 是 一 种 直接 寻 查 目 标 函 数 极 小 值 的 有 效 方法 。 
该 方法 的 原理 肥 具 体 算法 已 在 第 二 章 8 2 - 5 中 详细 讨论 过 : 这 
里 仅 讨 论 具体 应 用 于 修 定 震源 参数 时 的 一 些 问题 。 

同样 地 ， 设 第 i G P 波 到 时 的 观测 值 为 T; ， 由 给 定 的 ( 初 值 
Ану ах 求 出 之 理论 到 时 为 zi(x)， 由 此 定义 的 目标 
函数 为 二 次 型 函数 


Ф( м) = уу СТ таб)", (5-5,1). 
іші 
АННЕ (x, у, 2, DURERE Go 4, 2» ТУ, 

我 们 知道 ， 对 于 二 次 型 的 极 值 问题 ， 共 扼 梯 度 法 是 一 个 肥效 
的 方法 。 作 为 共 扼 梯 度 法 的 改进 的 Powell 法 ， 对 于 求 (5 -5.1) 式 
的 目标 函数 @(x ) 的 极 小 值 是 很 有 用 的。 这 时 ， 只 须 将 8 2 -5 中 
所 述 的 步骤 及 框图 进行 计算 即 可 。 

在 作 一 维 寻 查 时 ， 其 步 长 STEP 的 选取 与 具体 问题 中 自 变 量 
章 位 有 关 。 对 于 近 震 ， 其 单位 为 公里 ， 远 震 单位 为 度 ( 或 弧度 ) 。 
一 般 而 言 ， 若 P= (р. pas 0o pol 是 一 个 寻 查 方向 。 则 可 以 
” 取 STEP = E(pl + p$ тр ЕК. 例如 ， 近 震 可 取 
Е-і 公里 ， 远 震 可 取 E=0,.1 度 等 。 

ТТ ТТ ТИЛ Я 
值 达到 预定 的 限 关 

| |Ф(лх”)- Ф(х,)| SEs 
或 迁 代 前 后 后 两 点 的 欧式 距离 
|ж” x. се, 
等 条 件 。 一 般 取 es = 10-4 一 10-56，( 单 位 : Ж7)ғ,-1079--1975 
单位: 度 或 公里 )。 
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85-6 试探 法 求 近 震 震源 深度 


' 在 实际 修 定 涯 源 参 数 时 ， 由 于 震源 深度 与 其 它 几 个 参数 是 不 
独立 的 ， 震 中 位 置 或 发 震 时 刻 的 少量 变化 ， 可 引起 震源 深度 的 较 
大 误差 。 所 以 震源 深度 是 较 难 求 准 的 。 为 了 提高 震源 深度 的 计算 
精度 ， 采 用 了 分 别 修 定 的 办 法 。 一 般 步骤 是 ， 先 用 上 述 的 Geiger 
法 或 阻尼 最 小 二 乘法 以 及 Powel 法 等 ， 对 x，y，T (或 1，p，7T) 
三 个 参数 进行 修 定 。 在 计算 过 程 中 一 般 是 将 震源 的 某 一 深度 值 z 
固定 。 在 求 得 较 精 确 的 震中 及 发 震 时 刻 后 ， 再 利用 下 述 试探 法 求 
震源 深度 。 

从 n 个 实际 记录 到 P 波 到 时 的 地 震 人 台中 挑选 出 三 个 距 震中 最 
近 的 全 ， 分 别 求 这 三 合 的 震中 距 D;(i =1，2,3), 然 后 假设 一 系列 
震源 深度 (通常 取 0，1 ，2 ，3 ，…,50 公 里 ), 计算 相应 的 震源 
FE 


S i(z)= /Ditzt , 
і-1, 2, 9, j= 0, 1, 2, 3, ts 50, 
根据 这 三 个 人 台 的 走时 T ; — Т, PIR SERT аги Нн 


ЕЛЕЕ РОА 52. KEKR WES: ШЕН 比较 ， 
计算 这 三 个 台 的 震源 距 残 差 平方 和 | | 


-Ж 5; (z) -sS #2, 


imf 


j= 0, 1, 2, 3, -”, 50. 


对 这 一 系列 残 差 平方 和 е АННЕ, Не, :最 小 值 毛 对 应 
的 深度 z 工 作为 最 后 修 定 的 震源 深度 。 
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55-7 “ 非 均 匀 地 者 模型 中 地 震波 走时 的 计算 


”前面 我 们 仅 考虑 了 简单 地 壳 模 型 中 的 震源 定位 问题 。 即 假定 
地 壳 是 单 层 或 双 层 的 均匀 模型 。 这 时 ， 计 算 从 震源 到 台 基 的 走时 
问题 特别 简单 ， 可 以 用 解析 公式 或 走时 表 即 可 求 得 。 | 

然而 实际 地 党 结 构 是 非 均匀 的 ， 地 下 介质 的 速度 无 论 洛 纵向 
或 横向 都 有 较 复 杂 的 变化 。 在 这 种 情况 下 ， 地 震 射 线 虽 现 为 复杂 
的 折线 或 基线 形状 ， 走 时 不 能 简单 地 从 解析 公式 或 走时 表 获 得 。 
一 般 说 求 ， 只 有 用 射线 追踪 方法 ， 才 能 获得 任意 两 点 间 地 震波 的 
去 时 ， 作 精确 的 定位 计算 。 下 面 讨论 非 均匀 介质 中 地 震波 走时 计 
算 原 理 。 

没 任 音 介 质 中 速度 v 是 空间 华 标 的 连续 函数 u(x， y, z), H 
有 连续 一 阶 偏 微分 。 根 据 Fermat 原理 ， 地 震 射 线 的 方程 可 以 表 


达 为 : | 
4 (14х\_ ә (-1)- 0 
ds “р ds Ох Хо ° 
d (1 4)" 50)" =_ 
ds 1) ду 0. (5 7.1) 


as (14 4% -2(4)- 0. 

通常 有 了 丙种 方法 解 非 均 匀 介 质 中 射线 追踪 问题 。 一 种 是 解 一 
系列 从 一 个 端点 出 发 的 初 值 问题 ， 并 设计 一 种 方案 以 使 射线 会 案 
到 另 一 端点 。 另 一 种 途径 是 直接 解 任意 两 点 的 边 值 问题 。 后 一 种 
方法 在 计算 上 较 快 。 下 面具 讨论 边 值 问 题 的 解法 。 

两 点 边 值 问题 实质 上 是 寻求 满足 两 个 端点 的 射 线 方程 (5- 
7.1) 式 的 解答 。 一 种 应 用 较 广 的 方法 是 将 上 述 二 阶 方程 组 化 为 一 
阶 方程 组 。 然 后 用 有 限 差 分 程序 来 求解 。 其 方法 如 下 : 

”引入 位 置 矢量 r， 及 慢 度 wr) 
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= т 


[xA 
x ' 
vzh о 
| 了 一 
u (r) = у (5-7.3) 


( 慢 度 u(r) 及 速度 ve) 都 是 空间 函数 ) 。 
于 是 射线 方程 ( 5 -7.1) 给 出 的 一 般 式 可 写 为 


4 и 4"). Vu. (5-7.4) 


其 中 Vu жи 的 梯度 ， 
/ би/дх \ 
Ун =} ди/ду x (5-7,5) 
\ ou/8z 7. 


(5-7.4) 式 又 可 写 为 
2 
а r. 1 1 (vu - а du). (5-7.6) 


以 GRI ВЕНЫ НИЕ S 的 微分 ， 则 可 写 为 以 下 表达 式 
du(r) ди | ах: >. ди dy, du dz 


~ 


ds Әх ds ду ds д2 ds 





G= 


= их tuy ytu- z. | (5-7.7) 


其 中 ， х, у, z 分 别 表示 Xs У: 2%] s 的 微分 ， ЕП 7/ ігі Ж 9%; 
их =ди/дх, иу = ди/ду, и. = ди/д2, 为 慢 度 变化 率 。 因此 ， 
方程 (5-7.6) 可 以 分 别 写 为 以 下 三 个 二 阶 微分 方程 : 


x = U(x - Gx), 
Y= v (uy — Gy), (5-7.8) 


t> 
< 
сл 


车 我 们 用 矢量 w 表示 要 求解 的 变量 ， 其 各 分 量 分 15 2. 


“ дх | ° ду _ 
Му Хх» М X = д, Мау» Wir у= у? М; =&, у= = 


Е, МСБ -7.8) 式 与 下 面 六 个 一 阶 微分 方程 等 价 : 


У: = W2, 


Wa = (и, СУУ), 


е қ. 、 
W3 = М, у (5-7.9) 


Ф 
W, = ОС иу - СУУ)» 


W; АУ» 


We = U(u; - GW). 


这 里 G 由 (5-7.7) 式 给 出 
G=UxW2tUyWatU:W6. (5-7.10) 


ЖЕН ЗЕ ЖНЖ. = 
(мени, oran 


由 于 我 们 需要 计算 的 是 从 A 点 到 B ЖЕН T=] uds, 为 

此 ， 下 入 一 个 附加 的 变量 wy， 以 代表 沿 射线 路 径 某 一 点 的 走 时 

r。 相 应 有 关系 wr =u. ES 为 从 4 点 到 B 点 整个 路 径 的 长 度 ， 

则 总 的 走时 T = тон = Wr(s’)。 再 引入 一 个 变量 w， =$", 与 其 相 

应 的 微分 方程 为 ws = 0。 为 了 计算 方便 ， 把 弧 长 归 一 化 ， 使 其 
取 值 在 0 和 1 之 间 ， 我 们 引入 一 个 新 的 变量 t 来 代替 5 

| Ё = 5/5' | (5-7.12) 

这 样 ,各 变量 分 别 对 + 求 微分 便 得 到 下 面 八 个 一 阶 微分 方程 : 


W { = We Wo, 
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wW Z = wsU(u, — Суз), 

wW £ = We 374 э 

W 4 = Wau (иу Gw), 

W É = Wa V6 у (5-7,13) 
w 6 = Мзу(и. - С), 

у= Wel, 


w 4-90. 


由 这 些 方程 得 到 的 解 相 应 的 变量 为 


іш X, Wa = dx/ds, 

Ws = у, м. = dy/ds, 

Wg = 2» ws = dz/ds, (5-7.14) 
W = T; Мал”. 


微分 方程 组 (5-7。13) 的 边界 条 件 为 


1, (0)= хі» ws (0) = Ул» ws (0) = 21» 


3%: (1) = ха, Уа (1) = ув; Уз (1) = 26, (5-7.15) 
` №40) = 0, \3(0) + м4 (0) + 5600) = 1. 
А. НЯ (Xais Ул, 2) МА АИ, (хз, Ув, в) JIB АМТ. 第 七 


个 边界 条 件 表 示 初 始点 4 的 局 部 走时 为 零 ， 第 八 个 边界 条 件 表 示 
射线 方向 余弦 的 平方 和 为 T ， 即 式 (5-7.1]) 。 

求解 一 阶 微分 方程 (5-7.13)， 一 般 利 用 有 限 差 分 法 计算 。 

在 地 震 定 位 问题 中 ， 对 于 给 定 的 地 壳 模 型 ， 需 要 计算 震源 到 
接收 站 之 问 的 最 小 走时 。 实 际 上 ,最 小 走时 T 正 是 从 一 阶 微 分 方程 
组 (5-73 解 出 的 变量 之 一 。 然 而 ,用 这 种 方法 计算 走时 要 付出 
高 昂 的 计算 费用 。 因 此 ,更 常用 的 方法 是 采用 简化 的 速度 模型 。 例 
如 ， 假 定 速 度 随 深度 加 大 而 增高 的 情况 ，v=v(z)。 这 时 ， 射线 
路 径 变 为 一 个 贺 颖 ， 可 以 很 方便 追 索 射 线路 径 及 计算 走时 芽 ， 其 
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计算 方法 可 参见 第 十 章 。 另 一 种 是 假定 地 下 为 一 系列 水 平展 ， 每 
一 层 速 度 恒定 或 具有 一 定 垂直 梯度 值 ， 计 算 位 于 任何 深度 的 震源 
қылышынан ыы ды ыды 
车 可 参见 第 六 章 。 


55-8 近 震 定位 计算 程序 


下 面 给 出 一 个 用 FORTRAN-77 语言 编写 的 近 震 定位 的 计算 
机 程序 。 根 据 使 用 考 的 需要 ， 将 全 国 或 者 区 域 台 网 的 地 震 台 站 的 
经 纬度 、 高 程 事先 输入 计算 机 内 。 计 算 时 将 有 关 地 震 合 号 及 P 波 
. 到 时 依次 输入 ， 利 用 区 域 近 震 走时 家 进 行 修 定 ， .最 后 输出 修 定 的 
震源 参数 。 计 算 流 程 见 图 5-4-1。 


(一 ) ЖАЯ ЖТА | 
х 记录 菏 一 地 震 的 台 站 数 


-选择 某 一 震源 深度 相应 走时 表 ，NJC 为 1 ，2 8 
вины 0, 10, 16288, 


DATE RHAW. 
-地震 震级 。 

x, Z 直角 坐标 系 震中 位 置 及 震源 深度 。 
жың. | 


тво, DS ` ”工作 单元 。 
LONGIO 一 直角 坐标 系 原点 的 经 度 ^。 
”LATIO - -直角 坐标 系 原 点 的 纬度 由 。 
”LONGI- ЖА, 
LATI- 一 -震中 纬度 ó, | | 
RN, ВМ ”变换 坐标 时 的 地 球 参 数 。 
PIMN -- 定 震 源 参 数 时 的 走时 标准 误差 。 
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STATI(21, 3) ”北京 地 区 地 震 台 网 21 个 台 站 的 经 纬度 及 
高 程 。 | 
”DEPTH(3)”” 近 震 走时 表 的 三 个 震源 深度 ， 分 别 为 0,10， 
16 公 里 。 | | | 
РЕРТА( 104)  ” 近 震 走时 表 的 震中 距 。 
BJC(3，104) -三 种 不 间 震 源深 度 的 近 震 走时 天 ABA 
FJC(104)” ”表示 某 一 震源 深度 的 走时 表 ， 作 中 加工 作 单 
元 用 。 
STAT? ”记录 到 某 次 地 震 的 日 期 ， 震 级 及 N 个 台 站 的 编号 
及 初 至 波 到 时 。 
STATD “日 期 、 震 级 、 台 站 编号 及 波 的 到 时 的 数组 。 
ХВ, УВ, 28 记录 到 地 震 的 N 个 台 站 的 直角 奉 标 X;，y ， 
zi 数组。 
”TP 一 N 个 台 站 的 初 至 波 到 时 。 
TAO “NN 个 台 站 计算 的 理论 到 时 。 
Вг 形成 初 值 计算 超 定 方程 组 的 增 广 系数 矩阵 。 
DJ | ЕЯ RABH. 
XYZT 一 存放 初始 及 修 和 证 后 震源 参数 x，y，z， 了 的 数组 。 
RESID: 各 人 台 走 时 的 残 差 。 
ВАС -用 数值 微分 法 形成 的 Jacobi ЖЕЕ. 
STATN AWASHA. 
STANA `` 全 站 各 数组 。 
ISS 一 是 否 输出 原始 数据 的 控制 标量 数组 。 
SECOND(HOUR) “将 以 时 分 秒 为 单位 的 到 时 HOUR 化 
为 以 秘 为 单位 。 . 
HOUR(SECOND) ЖФ ЗБЕСОМЫИМЫЯНЫ ЖАР, 
RADIAN(A, В, C- BEA), 分 (B)， 秒 (C) 化 为 弧 


DEGREECA1， в, С. D) H MEDIARE), 分 
(В), ЖОС) . 
САОЅ(А,,№, N1)— -Н GAUSS 法 解 线性 方 组 组 ; АЖ 


H RRE, N 为 方程 组 阶 数 ，N1 为 右 端 项 数 。 


MOND(AM, CM, М, N)- 一 将 超 定 方程 组 化 为 正规 方程 
组 ; AM 为 超 定 方 程 组 的 增 广 系数 矩阵 ，CM 为 正规 方程 组 的 增 
广 系 数 第 阵 ，M 为 超 定 方 程 个 数 ，N 为 未 知 数 个 数 。 

QIP(N, Т, X, Y, Е) 一 元 三 点 播 值 过 程 ; N A PS л, 
数 ，T 为 内 播 的 自 变 量 ，F 为 内 揪 的 函数 值 ，X、Y 为 结 点 的 自 
ХЕ Ж bq 25 HU 398 2H ç | 

PREVAL  “ 初 定 震源 参数 X、Y、Z、T 的 过 程 。 

LFCHXY ”将 4， 中 化 为 X,Y 坐标。 

CHECKS(KK)-… 检查 人 台 站 数据 的 过 程 ，KK ӘЖЕМЕ 
OUTLFH ”将 震源 参数 XX У, Z, ТА, p, Z, ТЗ 


出 的 过 程 。 


EXPLOZ--- 用 试探 法 计算 震源 深度 z 的 过 程 。 

FUNCT(U, Е) 求 各 人 台 站 理论 到 时 的 过 程 ，UU 为 震源 参 
数 数组 ，F 为 理论 到 时 数组 。 

CALPHI(PHI，FE，DRER) 一 一 计算 走时 残 差 及 目标 函数 (Ж 
差 平 方 和 ) 的 过 程 ;F 为 各 人 台 站 理论 到 时 ， PHI A HERRAR Ф = 


> В*, DF В: 的 数组 。 
$ =] 


МАОТ (1Мро, 00, М) ---- 用 阻尼 最 小 二 乘法 修 定 震 源 


-参数 的 过 程 ; 


LMDO 一 为 阻尼 因子 初 值 ; 
-在 计算 开始 时 为 震源 参数 初 值 ， 计 算 结束 时 为 震源 
Sib | 
-为 待 修 定 参 数 的 数目 。 


(二 ) 程序 的 使 用 


1. 输入 人 台 站 的 经 纬度 及 高 程 数组 STATI， 走 时 表 三 个 不 同 
震源 深度 数组 DEPTH， 近 震 走 时 表 的 震中 距 DELTA 以 及 走时 
BJC 。 

2. 输入 记录 到 某 次 地 震 用 的 台数 N ЖИЕН ЕНК НЕ 参 
数 NJC。 

3. 输入 发 震 日 期 ， 震 级 及 各 台 编 号 、 初 至 波 ш ЖН 
STATD 。 


(=) FORTR AN-77 语 言 程 序 及 计算 实例 


С THIS PROGRAM IS DESIGNED ТО РЕТЕБМ - 


| INE THE FOCUS 
C PARAMETERS OF LOCAL EARTHQUAKE BY 
C USING THE FIRST ARRIVAL DATA ON THE 


С STATIONS 
IMPLICIT DOUBLE FRECISION(A-H,L.P- 7) 
INTEGER STATN 
REAL LONGIO,LATIO,TONGI,LATI,MAG 
COMMON /NN/N,NJC 
COMMON /XYZ/X,Y,Z,T,DATE,TRO,DS,VP,RN, 
RM, PIMN 
COMMON/SLM/MAG,LONGIO, LATIO, LONGI, LATI 
! COMMON/XBYB/XB(30),YB(30),ZB(30),TP(30),TAO 
(30), 
STATD(81,2), BJ (30,4), DJ (3,4), XYZT (I), RE SID 
(30), 
ВЈАС (30,5), ЗТАТМ (30) 
СОММОМ/5ТАТ/5ТАТ1(21,2),БЕРТН(3), 
DELTA(104),BJ C(3,104), FJ C(104) 
COMMON/STA/STANA(21) 
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3000 


2000 


1000 
3001 


1001 


CHARACTER * 12 STANA 
DIMENSION ISS(15) 
DIMENSION STA3(63),BJC3(312), ST AT2(60) 


INPUTING THE NAME AND THE РАВАМЕТЁВЅ 


OF THE 
STATION AND THE TRAVEL TIME TABLE 


OPEN(11, FILE =“ SWITCH? STATUS =*OLD' ) 


READ(11, * )(155(1),1=1,15) 

WRITE(* ,3000)(15 5 (1),1-1,15) 

ЕОВМАТ(/27Х,““ + + « + SWITCH LIST * + + е +? 
/18Х,3(512,5Х)/) 

ОРЕМ(1, FILE = ‘РАТ!? ) 

READ(1, * XSTANA(I), I =1,21) 

IF(ISS(1).EQ.0) GO TO 3001 

WRITE(* ,2000) 

ЕОКМАТ(/25Х.4» + + ж» STATION NAME ++: 

* а? /) 

WRITE(* ,1000)(1,58 ТАМА(1),1-1,210 

ЕОКМАТ(3(7Х,18,5Х, 413999 

CONTINUE 

OPEN(2,FILE =‘DATAST ). 

READ(2, * )(ЅТАЗ(1),1=1,63) 

180155 (2), ЕО.0) СО ТО 3002 

ЕОВМАТ( /20Х,‘РНГ ,12X, ‘LAMBAD’ ,12Х,*НІСН? ) 

WRITE(* ,1001) | 

DO 110 І-1,21 

ІЗ-Іж3 

12 =13-1 

11=13- 2 | 

WRITE(。。 120) STA3(I1)，STA3(I2)，STA3(I3 


120 БОВМАТ(10Х,3Е16,65 
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110 
3002 


15 
20 


3003 


1004 


150 
3004 


1005 


170 


GONTINUE 

CONTINUE 

DO 20 1=1,21 

DO 15 J =1,3 
STATI(I,J)= STA3(3* (I=1)+J) 
CONTINUE 

ОРЕМ(3, FILE = ‘DATADP? ) 
READ(3, + )(DEPTH(I),1=1,3) 
IF(ISS(3).EQ.0) GO TO 3003 
WRITE(* ,1002) 
БЕОКМАТ(/37Х,%-“РЕРІН””) 
WRITE(C* ,140)(DEPTH(I),I= 1,3) 
ЕОВМАТ(14Х,3Ғ15,2) | 
CONTINUE 

OPEN(4, FILE =*DATADS?” ) 
READ(4, *)(DELTA(D,I=1,104) 
IF(ISS(4).EQ.0) GO ТО 3004 
WRITE( + ,1004) 

FORMAT(/37X, "DELT’™”™? ) 
WRITE(* ,150)(ЮЕІТАС(1),1=1,10) 
FORMAT(5F15.4) 

CONTINUE 

OPEN(8, FILE =*DATAJC”) 
READ(8, + )(BJC3(1), I =1,312) 


JF(ISS(8),EQ.0) GO TO 3008 


WRITE(* ,1005) | 
FORMAT(/36X,””TRAVEL TIME” ) 

DO 160 I=1,104 

11=104 +1 

12 =208+ 1 

ҮУЕІТЕС» ,170) BJC3(I),BJC3(I1),BJC3(I2) 
FORMAT(14X,3F16,4) 


160 
3008 


102 


100. 


1910 


CONTINUE 

CONTINUE 

РО 50 І-1,3 

РО 40 J =1,104 

ВУС(І,Ј) = В С3<104 * (1-1) + J) 

CONTINUE 

DO 100 І-і, 21 

рО 102 1-1,2 

D = ЅТАТІ(І,Ј) 

А = АїҸТСр) 

В-АІМТ((р-А)«100. ) | 

C =((D- А) * 100, -В) «100, ` 

STATI(I,J) =RADIAN(A,B,C) 

CONTINUE 

CONTINUE 

OPEN(5, FILE = ММС’) 

КЕАр(5,%) М, МС 

18(155(5).ЕО.0) СОТО 3005 

WRITE(*,10060N,NJC = 

FORMAT(21X, N =? ,13,15X, ‘NJC =? ,13) 

CONTINUE | 

DO 200 1-1,104 

ЕЈС(1) = ВЈС(МЈС,1) 

OPEN(10, FILE = ‘РАТАВЕ’) 

READ(10, * XSTAT2(D ,I=1,2< (N + 1)) 

IF(ISS(10).EQ.0) GO TO 3010 

WRITE( + ,1010) 

FORMAT(/20X,*' STATION NUMBER’ ,10X,' ARRIVAL 
TIME? ) 

DO 201 I=1,N +1 

12=2* 1 

11=12-1 


` 202 
201 
3010 


250 
300 


310 


320 


339 


400. 


ҮҮРІТЕС»,202)5ТАТ2(11),5ТАТ2(19) 
РОВМАТ(ИХ, Е15,1,10Х, F15,3) 
CONTINUE 

CONTINUE 

DO 300 I=1,N+1 

РО 250 1-1,2 
ЅТАТЮ(І,Ј) = ЅТАТ2(2+ (1-1) +J) 
CONTINUE 

РАТЕ = STATD(1,1) 

МАС = STATD(1,2) 

РО 310 І-1,М 

ТР(1) = ЗТАТО(1+1,2) 
$ТАТМ(1) = (STATD(I+1,1) + .01) 
CONTINUE | 

DO 320 I=1,N 

ТР(Т) =SECONDC(TP¿(I)) 

ТВО =ТР(1) - 1000. 

РО 330 1=1,М 

TP(I) = ТР(1) - ТКО 

CALL LFCHXY 

CALL PREVAL 

WRITE(。,400) | 
БОВМАТ(/,25Х, РЕЕІЛВМІМАНҮ VALUE’ ) 
CALL ООТЬЕН 

CALL МАОТ(1,,ХҮХТ,4) 
X=XYZT(1) 

Y=XYZT(2) 

Z=XYZT(3) 

T=XYZT(4) 

CALL CHECKS(K) 

N=N-K 

ІР(К.МЕ,0)ТНЕМ 


о 


500 


600 


700 


800 
900 


CALL МАОТ(1,,ХҮ2Т,1) 
X = ХҮ2Т(1) 

Y =XYZT(2) 

2 = XYZT (3) 

Т-ХҮ2Т(4) 

ЕМО IF 

CALL ЕХРІ,О?, 
УУВТТЕ( + ,500) 


ЕОКМАТ(///,25Х, ‘MODIFIED VALUE? ) 


CALL OUTLFH 

DO 600 I=1,N 

ТР(І)-ТР(1) +TRO 

TP(I) =HOUR(TP(1)) 

WRITE(:,700) 

FORMAT(/,16X, ‘CODE AND ARRIVAL TIME FOR’, 

1X,“RECORDING 5ТАТІ085%,/,12Х/(8ТАТТОМ NA- 

МЕ’, 
ВХ, АВВГУАТ, TIME’ ,5X,*RESIDUAL' ,/) 

DO 900 І-1,М 

М = STATN (1) 

WRITE(* ,800)M, STANA(M), TP(I),RE SID(1) 

БОВМАТ(10Х,13,2Х,14А12,5Х,Е10,1,8Х,Ғ4,1,) 

CONTINUE 

STOP 

END 


FUNCTION RADIAN(A,B,C) 

IMPLICIT DOUBLE PRECISION(A-H,L,P- 2) 
RADIAN(A + B/60, + C /3600.) * 0, 0174532925 
RETURN 


Г276. 


С) 


O 


END 


FUNCTION SECOND(HOUR) 

IMPLICIT DOUBLE PRECISION(A-H,L,P - Z) 

SECOND =AINT(HOUR * 1E — 4) + 3600, + (AINT(HOU- 
R*1E-2) | 
— (AINT(HOUR + 1E ~ 4)*:100.)) * 60, + HOUR ~ (AINT 
(HOUR* 1E — 2) + 100.) 

RETURN 

END 


FUNCTION HOUR(SECOND) 
IMPLICIT DOUBLE PRECISION(A- H,L,M,P - Z) 
REAL M 

ТТ = SECOND 

ТТ1= ТТ/3600.0 

Н = AINT(TT1) 

ТМ = АІМТ((ЅЕСОМЮ - H + 3600.) /60.) 
$ = SECOND - H + 3600, ТМ * 60, 
HOUR = Н + 1Е4 + ТМ * 182+ S 
КЕТСЕМ 

ЕМГ 


SUBROUTINE ОЕСВЕЕ(А1, В, С,Б) 
IMPLICIT DOUBLE РВЕСІЅТОМ(А -І,Р- 2) 
Р = 57,2957795 

D=D*P 

А1 =AINT(D) 


А = А} 

D -(р- А) * 60.0 
В = АІМТ(р) 

C =(D- B) * 60.0 
А1-А 

RETURN 

END 


SUBROUTINE GAUS(A,N,N1) 
IMPLICIT DOUBLE PRECISION (A- G,P -Z) 
DIMENSION A(N,N+N]1) 
INTEGER H 
H=1 

10 Р-0,0 
DO 20 I= H,N 
рО 20 J =1,N 
IF(DABS(A(I,J)),GE,P)THEN 
Р = РАВЅ(А(І,Ј) 
K=I 
L= J 
END IF 


220 CONTINUE 


IF(P.LT,1E-30) THEN 
END IF 
DO 30 J =1,N+N1 
Q =A(K,J) 
A(K,J)=A(H,J) 
A(H,J)=Q 

30 CONTINUE ` 
DO 40 I=1,N 
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о 


35 


40 


50 


О = ~ А(1,1,)/ А(Н,1.) 
ІР(І.МЕ,Н)ТНЕМ 

DO 35 J =1,N+NY 
А(1,2)- А(І,Ј) + A(H,J) < Q 
END IF 

CONTINUE 

Q= A(H,L) 

DO 50 J =1,N+N1 


H=H+1 

IF(H.LE,N) GO TO 10 
DO 60 J =1,N 

DO 60 I=1, N 
IF(A(I,J),GT,0,5) THEN 
DO 65 K =-1,N+N1 | 
О =A(LI,K) 
A(I,K)=A(J,K) 
А(1,К0-<0 

END IF 

CONTINUE 

RETURN 

END 


SUBROUTINE МОМОХАМ,СМ,М,М) 

IMPLICIT DOUBLE PRECISION(A-H,L,P-7Z) 
DIMENSION АМ(30,4), CM(N,N 1) 

DO 20 J =1,N 

DO 20 K=1,N+1 

IF(K.GE,1)THEN 

CM(J,K)=0, 
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10 


30 


10 


_20 
_ 30 


РО 10 I=1,M 
СМ(3,К) = СМ(Ј,К) +АМ(І,7) + АМ(Т,К) 
END IF | 
CONTINUE 

DO 30 J =1,N 

DO 30 K=1,N 
IF(J,LT.K)CM(K,J)= CM(J ,K) 
CONTINUE ` 

RETURN 

END 


SUBROUTINE QIP(N,T,X,Y, F) 

IMPLICIT DOUBLE PRECISION (A-H,P-Z) 
DIMENSION X(N), Y(N) | 

DO 10 I=1,N-3 

IF(T.LE,X(1+1)) GO TO 20 

CONTINUE 

I=N-2 

GO TO 30 

ТЕ((Т.МЕ.1).АМО.(Т- X(D.LT.X(I1+1)- T)) 1=1-] 
Хо= Х(1) 

X1= ХО +1) 

Х2-Х(1-2) | 

U =(T - X1) + (T- X2)/((X0- X1) + (X0- Х2)) 

V = (Т- Хо) * (Т- Х2)/((Х1- X0) * (X1- X2)) 

W = (Т- X0) + (T X1)/((X2- X0) + (Х2- Х1)) 

Е =Ux*Y(D+V=+* Y(I+D +W. Y(I+2) 

RETURN 

END 


10 


SUBROUTINE PREVAL 

IMPLICIT DOUBLE РВЕСІЅІОМ(А-Н,1,,Р- 7) 

INTEGER STATN 

КЕЛІ, LONGIO,LATIO,LONGI,LATI,MAG 

COMMON/NN/N,NJ C 

СОММОМ/ХҮ2/Х,Ү,7,Т, DATE, TRO,DS,VP,RN,RM, 

PIMN ` 

COMMON/SLM/MAG,LONGIO, LATIO, LONGI,LATI 

COMMON/XBYB/XB(30),YB(30),ZB(30),TP(30), 
ТАО(30), STATD(31,2), BJ (30,4), DJ (3,4), 
XYZT(4), RE SID(30), BJ AC(30,5), STATN(30) 

УР =6, 

PIMN =0, 


DS = ХВ(1) + ХВ(1) +УВ(1) + ҮВ(1) - УР + УР * ТР(1) • 


ТР(1) 
рО 10 I=1,N-1 
BJ(T,J)=XB(I+1)-—- XB(1) 
BJ(I,2)=YB(I+1)- YB(1) 
В (Т,3) = -УР* УР * (TP(I+ 1)= TP(1)) 
ВЈ (1,4) = (ХВ(І+1) * «2+ УВ(Т+1)* «2-УР 2% ТР(Т+ 
1)» *2-05$)/2. | 
CONTINUE | о 
CALL МОМР( ВУ, Ру, М- 1,3) 
CALL GAUS(DJ,3,1) 
X=DJ(1,4) 
XYZT(1)=X 
Y=DJ(2,4) 
XYZT(2)=Y ` 
T=DJ(3,4) 
XYZT(4)=T 
Z=0.0 
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DO 20 I=1,N 

05 =(УР + (TP(I)—T))* *2-(ХВ(1)-Х)+ *2-(ҮВ(Ї)- 
У) * *2 

IF(DS,LE,0.)GOTO 20 

Z=Z+DSQRT(DS) 

CONTINUE 

Z=Z/FLOAT(N) 

ХҮ2Т(3) =Z 

RETURN 


END 


SUBROUTINE LFCHXY 

IMPLICIT DOUBLE PRECISION (A-H,L,P-R,S – 2) 

INTEGER STATN 

REAL LONGIO,LATIO,LONGI,LATI,MAG 

COMMON/NN/N,NIC 

COMMON/XYZ/X,Y,7,T,DATE,TRO,DS,VP,RN.,RM, 

PIMN | 

COMMON/SLM/MAG,LONGIO,LATIO,LONGI,LATI 

СОММОМ/ХВҮВ/ХВ(30), YB(30),ZB(30), TP(30), 
TAD(30), STATD(31,2),BJ (30,4), DJ (3,4), 
XYZT(4),RESID(30), BJ AC(30,5), ST ATN(80) 

COMMON/STAT/STATI(21,3), | 
DEPTH(3), DELTA(104), BJ C(3,104), ЕТС (104) 

COMMON/STA/STANA(21) 

CHARACTER • 12 STANA 

ВВ1-0,0 | 

ВВ2 =0.0 

LATIO =ВВ1 

LONGIO = ВВ? 
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20 


DO 10 I=1I,N 


. J= STATN(I) 


LONGIO =LONGIO+ STATI(J.2) 

LATIO = ГАТГО + ЗТАТКТ, 1) 

CONTINUE 

ЕМ = ЕГОАТ(М) 

LONGIO = ГОМСТО/ЕМ 

LATIO =ГАТТО/ЕМ 

А =6378.160 

ЕЕ =0.0066935176 

Р -р5ОКТ(1,-ЕЕ» SIN(LATIO)* +2) 

ЕМ = A/D | 

ЕМ=А*(1,-ЕЕ)/ О < *3 

DO 20 І-іМ 

J=STATN(I) 

LONGI =STATI(J,2) 

LATI=STATI(J,1) 

ХВ(Т) = КЕМ * (LONGI-LONGIO)*COS(DLATI) 

ҮЗІ) =ВМ + (ГАТТ-ГАТТО) + СХВ(Т)» * 2/(2 + RN) 
* ТАМ(ГАТТО)) 

АВТ) =ЗТАТГСТ,3) 

CONTINUE 

RETURN 

END 


SUBROUTINE EXPLOZ 
IMPLICIT DOUBLE PRECISION(A-H,L,P-7Z) 
INTEGER STATN 

REAL LONGIO,LATIO,LONGI,LATI,MAG 
DIMENSION ERZ(0:50), TPZ(3), XBZ(3),YBZ(3), 
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50 
100 


200 


2В2(3) 

COMMON/NN/N,NJ С 

COMMONY/XYZ/X,Y,Z,T,DATE,TRO,DS ‚УР, ВМ, 
RM, PIMN | 

COMMON/SLM/MAG,LONGIO,LATIO,LONGI, 
LATI 

COMMON/XBYB/XB(30), YB(30), 2.В(30),ТР(309,ТАО, 
(30), | 
STATD(31,2), BJ (30, 4), DJ (3,4), XYZT(4),RE SID 
(30), BJ АС(30,5),5 ТАТМ(30) | 

СОММОМ/5ТАТ/ЗТАТГ (21,3), ОЕРТНС3), 
DELTA(104), BJ С(3,104), FJ C (104) 

СОММОМ/ЅТА/ЅТАМА (21) 

CHARACTER +12 STANA 

DO 100 J =1,3 

TPZ(J)=TP(J) 


DO 50 K=J +1,№ 


IF(TP(K).LT.TPZ(J)) THEN 
TPZ(J)=TP(K) 
XBZ(J) = XB(K) 
YBZ(J) = YB(K) 
ZBZ(J)=2B(K) 
END IF 
CONTINUE 
CONTINUE 
DO 200 І-0,50 
ERZ(I)=0 
DO 300 1=0,50 
DO 250 І-1,3 
= - FLOAT(J) 
ТВА = ТР2(1) -Т 
CALL QIP(104,TRA, FJC,DELTA, DS) 
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A 


о 


250 
300 


ERZ0J)=ERZGO) +((ХВ(1)-Х)„» «2+ CYBZCU — Y) 
+»? | Е 
1+(2В2(1) - 2) + «2- (056 #2 + DEPTH(NJ C): 42)» :分 

CONTINUE — 

CONTINUE 

BMU = ERZ(0) 

Z=0, 

DO 400 J =0,50 

IF(ERZ(J).LT.BMU) THEN 

BMU =ERZ(J) 

Z=] 

END IF 

CONTINUE 

RETURN о 

END 


SUBROUTINE OUTLFH | 
IMPLICIT DOUBLE РКЕСІЅІОМ(А-Н,1,Р- Z) 
INTEGER STATN | 


REAL LONGIO „LATIO, LONGI, LATI „LA, LO, 
MAG | 

COMMON/NN/N,NJ C 

COMMON/XYZ/X,Y,Z,T,DATE,TRO,DS, УР, ВМ, 
ЕМ.РІММ 

COMMON/SLM/MAG,LONGIO,LATIO,LONGI, 
LATI | | 

СОММОМ/ХВҮВ/ХВ(30),ҮВ(30),28(30),ТР(30),-ТАО 
(30). Е 
STATD(31,2),BJ (30,4),017 (3,4), XYZT(4),RESID 
(30), ВАС (30,5), $ТАТМ(30) 


285. 


Iw 


ё 


ТАТІ = АТІО + УЛЬМ - (ХХ 2 ТАМ(ГАТТО))/(2* 
ВМ 3 ВМ) 


_.$1=ЬАТЕ 


10 


LONGI=LONGIO ХК. COS(LATI)) 

S2=LONG] 

CALL DEGREE(D1,BMI,SE,S1) 

А = рі1+ВМІ»+1Е-2+5Е *1E-4 

CALL DEGREE(D1,BMI,SE,S2) 

LO =01+ВМТ + 1Е -2+5Е .1Е-4 

T=T+TRO 

TI =HOUR(T) 

T=T-TRO 

NM=N 

WRITE(* ,10)DATE,TI,LA,LO,Z,MAG ,PIMN,NM 

ЕОВМАТ(/,22Х,<РАВАМЕТЕВб OF THE НҮРОС- 
ENTRE’, 

//:20X,‘DATE ,? 10X,F15.4,/,20X,“ORIGIN TIME’, 
3X, F15.4,/:20X,‘LATITUDE’ ,6Х,Б16,5,/,20Х,” ` 
LONGITUDE’ ,5Х,Е16.5,/,20Х,‘РЕРТН’9Х,Е 15.4, 

/,20X, MAGNITUDE’ ,5Х,Б12,1./.20Х,” STAND- 
ARD ERROR’, | О 
51Х,4%/-%,1Х,Б7,1,1Х,“8ЕС,”,/.20Х,“05ЕР 
STATIONS’ ,3Х,16) | 

RETURN 

END 


SUBROUTINE FUNCT(U,E) 

IMPLICIT DOUBLE РКЕСІСІОМ(А-Н,І,.Р-7) 
INTEGER STATN 

DIMENS ION U(4),F(30) 
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10 


RFAL LONGIO,LATIO,LONGI LATI, MAG | 

COMMON/NN/N NJC 

COMMON/XYZ/X,Y.Z,T,DATE,TRO,DS,VP,RN, 
RM., PIMN | 


COMMON/SLM/MAG,LONGIO,LATIO,LONGI, 
LATI | 


СОММОМ/ХВҮВ/ХВ(30),ҮВ(30) ,2.В(30),ТР(30),ТАО 
(30), 


STATD(31,2),BJ(30,4),DJ(3,4), XYZT(4),RESED 

(30), | 
ВЈАС (30,5), STATN(30) 

СОММОМ/5ТАТ/5ТАТ1І(21,3), 

_РЕРТН(3) РЕГТА(104),В1С (3,104), ЕТС (104) 
COMMON/STA/STANA(21) 
CHARACTER *12 5ТАМА 
DO 10 1-1,М | 
DS=DSQRT((XB(I)- U(1)) + *2+ (УВСТ) - U(2)) * е 

2) 

CALL QIP(104,DS,DELTA,FJC,W) 
F(I)=W+U(4) 

CONTINUE 

RETURN 

END 


SUBROUTINE CALPHI(PHI,F,DF) 
IMPLICIT DOUBLE PRECISION(A-H,L,P-Z) 
INTEGER STATN 


REAL LONGIO,LATIO, LONGI,LATI; MAG 
DIMENS ION Е (30), DF (30) 
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10 


COMMON/NN /N, МІС ` | 
COMMON/XYZ/X, Ү,2,Т, ЮАТЕ,ТКО, DS ›УР, RN, 
ЕМ,РІММ = | 


| COMMON/SLM/MAG, LONGIO,LATIO домот, LA- 
TI 


| СОММОМ/ХВҮВ/ХВ(30),ҮВ(30),2.В(30),ЕР(30), 


ТАО (30), ЅТАТЮ(31,2),В7(30,4),01 (3,4), 
ХҮ2Т(4),ВЕЅІр(30),ВЈАС(30,5),5ТАТМ(30) 
РНІ =0, 
DO 10 I=1N | 
DF(I)=TP(I)- ЕСТ) 
RESID(I)=DF(I). 
PHI=PHI+DF(I)* »2 
CONTINUE = И 
RETURN 
END 


SUBROUTINE CHECKS(KK) 


IMPLICIT DOUBLE PRECISION(A-H, 1,Рр-2) 


INTEGER ЗТАТМ 

REAL LONGIO,LATIO,LONGI,LATI,MAG 
DIMENS ION РЕ(30) 

COMMON/NN/N,NJ C | 

COMMON/XYZ/X,Y,Z,T,DATE,TRO,DS ,VP,RN, 
RM,PIMN | 

COMMON/SLM/MAG,LONGIO,LATIO,LONGI, 
LATI 

СОММОМ/ХВҮВ/Х.В(30),ҮВ<30).2.В(30).Т P(30)， 
TAO(30),STATD(31,2),BJ(30,4) ,DJ(3,4)， 
XYZT(4), RES І(30),ВЛАС(30,5).5ТАТМХ30) 
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10 


20 


22 


25 


CALL ЕСМСТ(ХҮ2Т,ТАО) 

CALL САІРНІ(РНІ,ТАО,реЕ) 

КК = 0 | 

РО 10 Ісі,М 

IF(DABS(DF(1)),GE,3.0 THEN 

KK=KK-+1 

STATN(I)=0 

END IF 

CONTINUE 

ТЕ(КК.ЕО.0)ВЕТОВМ 

IF((N-KK).LT,5)THEN 

WRITE( * ,20) | | 

ЕОНМАТ(/,10Х%,% + * * STATIONS LESS THAN 
5» ,/) 

ВЕТОВК 

END ТЕ 

DO 30 NU =1,KK 

РО 25 1-1,М 

ТЕ(ЗТАТМ(Т).ЕО,0)ТНЕМ 

DO 22 J =I,N-1 

STATN(J)=STATN(J +1) 

ХВв(Ј) = XB(J +1) 

YB(J)=YB(J +1) 

ZB(J)=ZB(J +1) 

ТР(Ј) =ТР(Ј +1) 

СОМТІМСЕ 

END IF 

CONTINUE 

CONTINUE 

RETURN 

END 
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20 


25 


SUBROUTINE MAQT(LMDO,UO,M) 

IMPLICIT DOUBLE РЕЕСІ5ІОМ(А-Н,І,Р-2) 

INTEGER 5ТАТМ,5 

REAL LONGIO,LATIO,LONGI,LATI,LMDO, 
LMD,MAG 

DIMENSION UO(M),U(4),G(4),A(4.5),DE(30),TA 
(30) | 

COMMON/NN/N,NJ C 

COMMON/XYZ/X,Y,Z,T,DATE,TRO.DS, VP,RN, 
RM,PIMN 

COMMON/SLM/MAG,LONGIO,LAT IO,LONGI, 
LATI 

COMMON/XBYB/XB(30), YB(30),ZB(30), T P(30), 
ТАО(30), ST ATD(31,2), BJ (30,4),DJ (3,4), 
ХУ7Т(4), RES ID(30), BI AC(30,5). STATN(30) 

LMD=LMDO 

ITER =0 

LMD=LMD/10 

ITER = ITER+1 | 

САМ, FUNCT(UO,TAO) 

CALL CALPHI(PHIO,TAO,DF) 

К-1 

UO(K)=UO(K)+1E-2 

CALL FUNCT(UO,TA) 

DO 25 J = 1,N | 

ВЈАС(Ј,К) = (ТА(Ј) -ТАО)) + 1Е2 

ОО(К) - ОО(К) ~ 1Е ~ 2 

CONTINUE 

К=К+1 
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30 


40 


50 


60 


IF(K.LE.M) СО ТО 20 

DO 30 1=1,№ 

ВЈАС(І,М +1) = ОЕ(1) 

CALL МОМР(ВЈАС,А,М,М) 

РО 40 І-1,М 

ССІЗ-А(І,М-1) 

А(І,1) = А(І,1) +1Мр 

CONTINUE 

CALL САОЅ(А,М,1) ` 

DO 50 1=1,М 

ОСІ) -UO(I)+ А«І,М +1) 

CALL FUNCT(U ,TAO) 

CALL CALPHI(PHI,TAO,DF) 

IF(PHI.GE,PHIO)GOTO 70 

РНІО = РНІ 

DO 60 1=1,М 

UO(I)=U(I) 

IF((ITER.LT.15),AND,.((DSQRT(A(1,M +1) • *2+А 
(2,M +1) | : 
+ *2)).СТ.1.).АМО. (А(М,М +1), ӨТ,0.5))ТНЕМ 

СО ТО 10 

ELSE 

GO ТО 209 

END ТЕ 

Ср = 0, 

DO 80 1-1,М 

GD=GD+G(I)* А(І,М +1) 

С =GD/(PHI- РНІО +2 • Ор) 

6-0 

6-51 

ОО. 110 І-1,М 

U(P =UO(D +С * А(І,М +1) 


CALL ЕОМСТ(О,ТАО) 
CALL САҺРНІ(РНІ,ТАО,рЕ) 
IF(PHI.GE.PHIO)GOTO 150 
РНІО-РНІ 
рО 120 1-1,М 
120 UO(I)=UCI) 
IF((ITER.LT.15).AND.((DSQRT(A(1,M +)» e 2 
+ A(2,M +2) | 
* «2)),6Т,1,),АМР,(А(М,М +1), ОТ, 0.5)0ТНЕМ 
GOTO 10 
ELSE 
GO TO 200 
END IF 
150 IF(S.LT.7)THEN 
С-Се0,5 
GO ТО 100 
END ТЕ 
200 PIMN=DSQRT(PHI/(N-3)) | ü 
RETURN 
END 


55-9 应 用 实例 


例如 ，1976 年 4 月 25 日 沙城 2.3 级 地 震 ， 有 :2 AWRA, Н 
观测 数据 如 下 : 


ë 号 б А 到 时 
2 > R 1{-32-37.5 
3 Ё 从 11-32-38.2 
4 ”马道 肉 11-32-33.3 
7 нж 11-32-28.7 
5 ERT 11-32-29.1 
6 AOI 11-32-34.1 
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8 ж 柏 11-32-37.7 
17 Жош 11-32-40.6 
10 南山 村 11-32-39.6 
11 КЕШ 11-32-34,9 
14 ж ў 11-32-45.3 
13 张家口 11-32-48.1. 


下 面 是 1976 年 4 月 25 有 日 沙城 2.3 级 地 震 定位 计算 输出 数据 ( 包 


ep 


жж» SWITCH LIST < * < * * (开关 标号 表 ) 
11111 11111 11111 
++ а а + STATION МАМЕ» + + + +*( 台 站 和 名 及 编号 ) 
1 Labagou ° Shacheng 3 Pinggu 
а Madaoyu 5 Longquansi 6 Zhoukoudian 
т Bai jiatan 8 Tongbai Taisitun 
10 Nansancun 11 Shangfangsan 12 Wenan 
13 Zhangjiakou 14 Laiyuan | 15 Wanxian 
16 Huangbizuang 17 Zhuolu 18 ` Changli 
19 Chengde 20 Lutai 21 Sanlihe 
( 台 站 经 续 度 及 高 程 ) 
PHI LAMBAD HIGH 
40.535840 116,354490 .400000 
49.262500 115.312600 ..000000 
40.060950 117.074070 „010000 
49,234100 116.334100 „000000 
40,022500 116.103000 .200000 
39 .444350 115,552220 1120000 
_ 40.021500 116.102570 .040000 
39.3548 60 116,442570 .000000 
40 .323000 117,080020 000000 
40.080000 117.150000 .000000 
39.393500 115.484200 .204000 
38 ,504900 116,271350 030000 
40,494560 114,540000 835000 
39.315600 114.580000 .000000 
28,515000 115.034700 100009 
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„0000 
55,5500 
111.1000 
166,6500 
222.2000 
277.7500 
333.3000 
388,8500 
444,4000 
499,9500 
555 .5000 
611,0500 
666.6000 
722,1500 
777.7000 


833.2500 


888.8000 
944.3500 
999.9000 
1055.4500 
1111,0000 


“TRAVEL TIME 一 


ia А. - 


38.145110 
40.092630 
:39,452800 
41.005500 
39.223360 
39 .543000 


.00 


11.1100 

65.6500 
122.2109 
177,7600 
233.3100 
288,8600 
344.4100 
399.9600 
455,5100 
511.0600 
566,6109 
622.18600 
677,7100 
733.28600 
788,8100 
844,3602 
899,9109 
955,4609 
1011.0100 
1066 ,5602 
1122.1100 


„0000 
1,9502 
3.9000 
5.8500 
7,8000 
9.1500 

11.6900 
13.6400 








‚114,182480 1140099 
115.075949 100000 
119.053400 .200000 
117.545600 „000000 
117.441550 000000 
116.194200 1100000 
“рЕРТНХЕНЖЕЖИЯИО 
10,00 16.00 
“DELTA (р) 
22.2200 33.3300 44.4400 
77.7700 88,8800 99,9900 
133.3200 144.4300 155,5400 
1838.8700 199,9800 211.0900 
244.4200 255,5300 266.6400 
299,9700 311.0800 322,1800 
355,5200 366,6300 377.7400 
411.0700 422.1800 433.2900 
466,6200 477.7300 488,8409 
522.1700 533.2800 544,3900 
577,7200 588.8300 599,9400 
6323.2700 644.3800 655.4900 
688,8200 699.9300 711.0400 
744.3700 755,4800 766,5900 
799.9200 811.0300 822 .1400 
855,4700 866,5800 877,6900 
911.0200 922,1300 933.2400 
966,5700 977,6800 988,7900 
1022.1200 1033.2300 1044.3490 
1077,6700 1088 .7800 1099.8900 
1133.2200 1144.3300 
(三 个 不 同 震 源深 度 的 走时 ) 
1.7500 2.8100 
2.6200 3.4200 
4.2700 4,8000 
8,1000 6,4900 
7.9900 8.2900 
9.9000 10.1400 
11.8300 12,0300 
13,7600 13.9300 


15.5900 


17.5400. 


19.4900 
21.4400 
23.3900 


25.3400 ` 


27.2900 
29.2400 
31,1900 
33.1400 
35.0300 
37.0300 
38,9300 
40.9300 
42.8500 
44.8300 
46.7800 
48.7300 
_ 50.6800 
52.6300 
54.5800 
56.5200 
58.4700 
60.4200 
62.3700 
64.3200 
66.2100 


68.2200 — 


70.1700 
72.1200 


74.0700 


76.0200 
77.9600 
79.9100 
81,8600 


83,8100 


85.7600 
87.7100 
89.6600 
91.6100 
93.5600 
95.5100 
97.4600 


15.6900 
17.6300 
19.5700 
21.5100 
23,4600 
25.4000 
27.3400 
29,2900 
31,2400 
33,1800 
35,1300 
37.0700 
39,0200 
40.9700 
42.9200 
44.8600 
46,8100 
48.7602 
50.7100 
52.6600 
54.6000 
56,5500 
58.5000 
60.4500 
62.4000 
64.3400 


`66.2900 


68.2400 
70,1900 
72.1400 
74,0900 
79.0400 
77 :9800 
79.9300 
31.8800 
83.8300 
85.7800 


87,7300 


89,6800 
91.6300 
93.5700 
95.5200 
97.4700 


15.8400 
17.7700 
19.6900 
21.6200 
23.5600 
25.4900 
27.4300 
29.3700 
31.3100 
33.2500 
35.2000 
37.1400 
39.0800 
41.0300 
42,9700 
44.9200 
46.8600 
48.8100 
50.7500 


52.7000 


54.6500 
56.5900 
58.5400 
60.4900 
62.4400 
64.3800 
66.3300 
68.2800 
70.2200 
72.1700 
74.1200 
76.0700, 
78.0200 
79.9600 
81.9100 
83.8600 
85.8100 
87.7600 
89.7000 
91.8500 
93.6000 
95,5500 
97,5000 
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99,4100 
101 .3500 
103.3000 
105.2500 
107,2000 
109.1600 
111.1000 
113.0500 
115.0000 
116,8500 
118,9000 


120 ,8500 


122 .7900 
124,7400 
126.9600 
128 .6400 
130 „5900 
132.6400 
134.4900 
136,4400 
138.3900 
140.3400 
142,2900 
144.2400 
146.1800 
148.1300 
150,0809 
152,0300 
153,9890 
155.9300 
157,8800 
159,8300 
161.7809 
163.7300 
165.6800 
167.6200 
169,5700 
171,5200 
173,4700 
175,4200 
177.3706 
179,3200 
131,2709 


99.4200 


101.3700 
103,3200 
105.2700 
107,2200 
109,1600 
111.1100 
113.0600 
115.0100 
116,9600 
1138.9100 
120.8600 
122,8100 
124,7800 
126.7100 
128 .6500 


:120,6000 


132,5500 
134.5000 
136,4500 
138,4000 
140.3500 
142,3000 
144,2500 
148,1900 
148.1400 
150,0900 
152,0400 


153.9900 


155,9490 
157.8900 
159,3400 
161.7909 
183,7400 
165.6800 
167.6300 
169,5800 
171,5300 
173.4800 
175.4300 
177 .3800 
179,3300 
131.2800 


39.4400 
101.3900 
103,3400 
105,2900 
107,2400 
108,1800 
111,1400 


113.0800 


115.0300 
116.9800 


118.9300 - 


120 .8800 
122 .8300 
124.7800 
128 .7200 
128 .6700 
130 .6200 
132,5200 
134,5200 
136 .4700 
138 ,4200 
140 ,5600 
142 .3100 
144 .2600 
148,2100 
148.1600 
150,1100 
152,0600 
154,0100 
155.9600 
157.9000 
159.8500 
161 ,8000 
163.7500 
165.7000 
167.6500 
169 .6000 
171,5500 
173 .4900 
175 .4400 
177,3900 
179,3400 
181.29092 





өл Apa 


183.2200 183,2300 #183.2400 
188,2700 185,1700 185.1900 
18% 1200 187,1200 187,1400 
189.0800 189,0700 189.0990 
191.0100 191,0200 191.0300 
192.9600 192,9700 192,9800 
194.8100 194,9200 194.9300 
196.8600 196.8700 196.8800 
198,8100 198,8200 198,8300 
200.7600 200,7709 209.7800 
М--12( BAR) NJC=1( 走 时 家 选择 ) 
STATION NUMBER ARRIVAL TIME 
1976.0 | 2 .300 
2.0 Б 113237.500 
3.0 113238 .209 
4.0 113233 . 300 
21.0 113228 .700 
5.0 113229 .100 
6.0 113234,100 
8.0 113237.702 
17.0 113240 .600 
10.0 113239 .609 
11.0 113234.900 ` 
14.0 113245 .300 
13.0 113248 .100 


PRELIBMINARY VALUE( 初 定 值 ) 


PARAMETERS ОЕ ТНЕ НУРОСЕМТВЕ 


DATE 1976 .0425 
ORIGIN ТІМЕ 113224.4450 
LATITUDE 40,04039 
LONGITUDE 116,13270 

_ DEPTH 26,6224 
MAGNITUDE 2.3 
STANDARD ЕЕКОК-/- .05ЕС, 
USEDSTATIONS 12 


ЕН: 
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CODE АМО ARRIVAL TIME FOR RECORDING STATION 


. MODIFIED VALUE (EEND 
PARAMETERS оғ ТНЕ НҮРОСЕМТВЕ 


DATE 2. е 1976`.0425 
ОКІСІМ ТІМЕ | 113224.5433 
LATITUDE. МА 40.04218 
LONGITUDE = О 116,13140 
DEPTH ` ` | 12.0000 
MAGNITUDE . | 2.3 
STANDARD ERROR +/-— .7SEC . 
USED STATIONS 11 


s 


STATION МАМЕ а) ARRIVAL TIME( 到 时 ) RESIDUAL 3⁄3) 


2 


Shacheng — 113237.5 
Pinggu 113238 .2 
Nadaoyu Ң | | 113233.3 
Sanlihe | 113228,7 
Zhoukoudian ` 113234,1 
Tongbai 113237.7 
Zhuolu ` | 113240 .6 - 
Nansancun | 113239.6 
Shangfangsan ` 113234.9 
Laiyuan . | 113245.3 
Zhangiiakou ` . 113248.1 


， 括 号 中 的 中 文字 是 作者 作为 打印 结果 所 加 的 注释 . 
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第 六 章 “ 层 状 介质 地 震 体 波 走时 的 计算 


人 研究 了 地壳 -上 地 盟 详 细 结 构 的 有 将 方 法 之 一 是 利用 人 工 震源 
”激发 地 震波 ， 一 般 说 来 ， 地 震波 在 地 下 层 状 介质 中 传播 时 ， 地 面 
可 以 观测 到 直达 波 、 反 射 波 、 首 波 ， 在 一 定 的 条 件 下 ， тИ 
收 到 由 速度 梯度 层 引起 的 回 折 波 。 
反射 波 、 首 波及 回 折 波 的 形成 ,是 和 地 过 及 上 地 齐 介 质 的 分 层 
Я. 在 人 工地 震 测 深 方法 中 ,要 详细 研究 这 些 波 的 运动 
学 及 动力 学 特点 ， 分 析 地 过 及 地 卓 的 几何 结构 和 速度 分 布 。 这 一 
8, 主要 讨论 水 平 及 倾斜 层 状 介质 中 各 种 地 震 体 波 的 走时 曲线 的 
ER, RAA. 


56-1 水 平 层 状 介质 反射 波 走时 曲线 


假定 地 壳 模 型 为 水 平成 层 结构 。 其 中 各 层 的 波 速 V 可 以 是 便 
定 的 ( 常 速 层 )， 或 仅 随 深度 作 线性 变化 (速度 梯度 层 )。 如 图 6-1-1 


ги ш СІ 0 2 4 6 


а а a e т -F 
1 г, h, Vi km/S > 
О h | 
Е И . .. i . 
: : : 1 

i ғ s 
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ИЕН, ВЕРЕН, КЕН ( 例如 第 Па 
变速 层 ， 则 可 定义 该 层 的 速度 梯度 为 
Vi i— Vi-1 


аз сус, (6-1,1) 


地 震波 由 震源 向 下 传播 ， ТЕГЕЛ ЛИГ 
抗 ( 邯 介质 的 密度 与 速度 乘积 pY: 值 ) 时 ， 就 会 产生 波 的 反射 和 折 
射 ,对 于 任意 水 平 屋 的 第 n 个 介面 来 说 ,反射 波 的 走时 与 距离 可 用 
下 述 参数 方程 表示 (参看 阿 6-1-2): 











(5-1.2) | 


式 中 XX 表示 震中 距 ( 即 爆炸 点 到 接收 点 的 距离 ,又 称 炮 检 距 )，i 凡 
示 第 ? 层 界面 反射 波 的 走时 ，x ;及 ti 分 别 为 波 让 第 i 层 中 传播 所 经 
过 的 单程 水 平 距 离 及 走时 。 下 面 讨论 x 1 及 t ,的 计算 方法 。 
由 5ле ФГ, ЖАДИ ЖЖ МЕН. НА, Wu 
通过 各 个 速度 不 辣 的 层 时 ， 在 分 界面 七 入 射 角 有 如 下 关系 
sing, _ та Sina， . 
у, ур (6-1.3) 
或 写 为 sinei= руг, (i=1, 2, +з, n). (6-1.40 
300% | 


式 中 3? 称 为 射线 参数 。 关 系 式 ( 6 -1.3) 或 (6 -1.4) 意 味 着 ， 只 要 
某 一 条 入 射线 的 初始 入 射 角 (或 离 源 角 )ai 一 经 确定 后 ， 其 传播 路 
径 也 就 被 确定 了 。 在 以 后 传播 过 程 中 ， 尽 管 因 层 速度 不 同 使 射线 
角度 有 变化 ， 但 其 射线 参数 p 仍 不 变化 。 | 

.由 图 6-1-2 可 见 , 射 线 在 常 速 层 ( 设 为 第 ! 层 ) 中 经 过 的 水 平 有 
A RERA 
Sinai _ ONV | 
соза, '\/1-р?У* ~. 
ohi ТИННИН 
Усова; “УА У1-р 24” 


xy =hitgoí= hi 


(6-1.5) 
t; = . 


ған; V 分 别 为 第 i 层 介质 的 厚度 及 波束 ， Ол ЖІБЕ 
而 的 入 射 角 。 

车 第 i 野 为 速度 梯度 层 时 ， 可 按 刀 下 方法 进行 计算 。 

如 图 6-1-3 所 示 ， 我 们 假定 梯度 层 预 部 的 波 速 与 i-1 层 要 

‚ МУнь; 梯度 层 底部 的 波 速 与 i+ 1 层 相等 ， AVio WR 
jn 度 梯度 层 顶 部 (或 底部 ) 与 上 
《下 ) 屋 的 速度 不 连续 ， 那 么 就 要 
假定 梯度 层 的 顶部 (或 底部 ) 存 在 
着 一 个 速度 恒定 前 屋 ， 这 层 的 速 





度 与 梯度 尼 的 顶部 (或 底部 ) 速 度 и. 

相等 ,但 厚度 为 零 。 于 是 ,我 们 很 222 Ші 6-1-3 | 
ЕЕ У ГР V: :1 求 得 梯度 层 中 的 速度 梯度 
| | as АЫ . (6-1.6). 


则 射线 从 M 点 穿 透 到 N 点 经 过 的 水 平 虐 离 为 ， 


хат ЫШ tgadz 
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_ 1 и 143 У | ЕЕ y 
7 LA - Сен 一 AT- РУ}. 1) 


| 22 | 
= (соба;-: -с05а;.:). 


гр: 





相应 的 走时 为 
- [ dz | 
2% “Усова 
afan dV 
а; Y;a СУАТ 一 р?У? 








= 1 In pV: 5 DYi-l -) 
В+ у pV}: EEE р*У1- 
Sing; i 21, Зе: ) 
+ cosa: 2155 со54:-і 
iti 





综 上 得 速度 梯度 晨 反射 波 传播 的 参数 方程 为 


1 . 
x i = (cosci-i -со80:.4)» 
і | 





2; (6-1.7) 
6і:1 
tg 
t = L1n( 2 . 
а; ре 
2 | 
若 将 上 式 改 写 为 以 射线 参数 p 表 示 的 参数 方程 ， 风 为 
өз СС - р?У!-4)%-(1-р*У!. 03, 
Р БО (6-1.8) 








1 (1 24421 
-二 [com (у )- cosh (Б, 1 )]. 
由 (6 -1.5)，(6-1.7) 及 (6 -1.8) 式 可 见 ， 反 射 波 走 时 方程 
是 一 组 以 射线 参数 p 或 入 射 角 1 为 参量 的 参数 方程 。 一 般 说 来 ， 
302° | 


ЖМ, ЛЕНА A а, Ш( 6-1,3) 
求 得 射线 参数 p。 再 由 ( 6 -1,5) 或 ( 6 -1.8) 式 计算 通过 各 层 的 距 
离 x ;及 走时 +,。 最 后 用 (6 -1.2) 式 计算 总 的 震中 臣 及 走时 。 租 
Ж, 按 给 定 的 入 射 角 c: 去 计算 走时 曲线 震中 距 分 布 是 不 均匀 的 ， | 
很 难 与 实际 观测 的 走时 曲线 对 比 ， 这 对 于 反 演 计算 是 不 方便 的 。 实 
ИВАН ХТЖ. Ше Аа ЖЕНЕ X, 去 反 求 与 此 
XX 相对 应 的 射线 的 入 射 角 a 或 射线 参数 p。 根据 此 a 或 p 值 再 求 相 
应 的 走时 +。 | 

为 求 出 给 定 震中 距 X 相 应 的 射线 入 射 角 cx:( 或 射线 参数 р, 
可 以 构造 一 个 非 线性 方程 | 

FCa)=X-—f(lhi, h2; т, hrs Vi, V2; “е, V,,a)= 0. 

(6-1.9) 

其 中 ,观测 点 震中 距 X Же ЫЛЕ, ЖЕ ЛЕ БАО ЕЛІ. ЖЖ 
ГЕН, УИ НОЖ JUTTE AE ЖУРН, 
的 公 却 组合 构 成 。 对 应 于 非 线性 方程 F(a) = 0 的 根 就 是 待 求 的 入 
射 角 c:。 由 于 这 个 函数 比较 复杂 ， 只 能 用 下 述 数值 方法 求解 。 


6-2” 非 线性 方程 求 根 法 


求 非 线性 方程 F(a) = 0 的 根 ， 一般 是 采用 某 种 迭代 解法 。 即 
从 某 一 初 值 开 始 ， 利 用 渤 代 格式 构造 一 组 近似 值 序列 ， 逐步 逼近 
РЭР АЈ E. 

РИТ, 第 一 步 是 搜索 根 所 存在 的 范围 ， 为 
此 ,由 经 验 的 办 法 从 一 起 始 的 入 射 角 cs 按 步 长 Ac 使 其 逐次 增 大 ， 
即 依次 计算 Flao tida) Ш (i=0，1，2，……)。 一旦 相 邻 两 点 
的 函数 什 反 导 ， 即 Е(ао tisa) 5 Е(а + (i+1)Aa) 值 异 号 时 ， 
MIERE Ra 一 定位 于 (ao + Да, ао + (+1) Аа) К] ZH, 

对 给 定 区 间 求 非 线 性 方程 的 根 常用 方法 是 线性 插值 法 及 二 -次 
插 什 法， 它们 的 计算 效率 较 高 ， 程 序 编 制 亦 较 简 单 。 
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《一 ) 线性 插值 法 


ханы. 设 已 知 方程 
Е(а)=0 (6-2.1) 
的 根 在 区 间 (w， ， xz) 内 ， 它们 在 两 端 相应 的 函数 值 为 Pi 及 Fa， Вр 
Fi=F(g), Е?-ЕСа.). 
县 Fi 及 ,信和 异 号 。 通过 这 两 个 点 
(а Р) № (аз, Ег), 
构造 一 个 线性 函数 ( 见 图 6-2-1) 
| | | (а) = aa+b。 (6-2,2) 
由 图 不 难 定 出 此 线性 函数 为 


L(a)= Ft Ha- аз). 


(6-9,9) 

“ HEVER- AROAREN HR. 

在 根 的 近似 值 c, a: 附近 , U ЕРЕ. 

| ЗСТ. (а) ЖЭИЕ (а), Ета) 
Ж 6-2-1 ` 零点 





ЕСЕ? (6-2,4) 
作为 根 的 一 个 新 的 近似 什 。 几何 上 就 是 以 弱 线 与 < 轴 的 交点 a 来 
进一步 速 近 曲 线 与 c 轴 的 交点 co( 根 )。 

预期 cs Ша, 及 cz: 更 接近 于 解 c。 ‚› Ё Е(а:) У Fla ) 异 号 ， 于 
是 将 新 的 近似 值 cs а, „И (о, as) 为 新 的 求 根 区 间 。 重 复 
Е, ХЗ о. MERARI, НАЛИМ ce 时 为 
16. | | 


03-4» — F2 


0 НЕЖИН Б. | 
‚ (1) 准备; 根据 搜索 法 选 定 初 始 近 似 值 ae, ，c*， 计 算 相 应 的 
前 数值 Fi1 及 F2 (Ё, Fi БЕЯ) 
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(2) ÆR: 按 公 式 (6-2.4) 选 代 一 次 ,得 到 新 的 近似 值 c* ЭЁ 
计算 Fs = F(as)。 

(3) 控制 计算 限 差 6= |а. – а. |. МАЙЯ ли: 
жи WERE) ЗШДЕ |Ез|=0, MAA LE A e 38 

。 以 as 作 为 所 求 的 解 ， 否则 执行 下 一 步 。 

(4) EREB: 判断 Fas 与 Fz 及 Fi 同 异 号 的 关系 。 如 FFs 与 Fl 
异 号 ， 则 以 (es ，Fa3) 瓜 代替 (es ，FEz) 瓜 。 否 则 以 (as, F3) АЖ 
替 (c; ，Fi) 点 。 而 后 转 入 步骤 2 继续 和 迭代。 


| | =) 二 次 插值 法 、 
又 称 Miller 法 。 设 已 知 非 线 性 方程 
Е(а) = 0, _ 
其 三 个 近似 解 为 cl аҙ» аз (都 在 求解 区 各 内 )。 相 应 的 Ға) 


数值 是 Fi, F2, Езь ИІН АЧАЖ Д8 EE, 通过 三 个 近似 
ҢА (ai. Fi), (а, Е2) № (as, Ез) ЖӘ 








Г. (а) = ва? +ъа+с 。 (6-2.5) 
re) f " B НИ В ЕЖЕ Ж 
| аа е” ж, ЖИ 6-22. 
| == — ЕАН 
| . Á. | ЖТ. (а) ЖАЗ ЗЕ РЕЖЕ (а), 
WM -并 以 此 一 次 函数 的 两 个 零点 之 一 
| s 7 作为 解 的 进一步 近似 。 
A 利用 Lagrange 插值 公式 ， 
R 6-2-2 — 作出 通过 上 述 三 点 的 二 次 函数 
LOD) = aD ta ео 


(а-а1)(а-аз) + 
аа) la, а) ts (6-2.6) 





“为 了 计算 方便 ， 引 入 新 的 变量 


а-аз 


а, -а. _ (8-2,7) 
не 
Аз ЧС 
| | w t (6-2,8) 
| Өз-1-:44з. 
于 是 ，(6-2.6) 式 便 改 写 为 | 
L(A) = ад? + bA + с. (6-2,9) 
АНЖУ 
| | а= F4iAl- F24303 + F343, 
b= Рада — [208 + Fs Cs +03), 
| © б= Езбз. | 
кс 2. 9) 式 L(4) 存 在 两 个 根 
1= --., 822.10) 
ЬЬ? – Дас ` 


забит ован илик жи 
， 记 为 ht 。 由 4 的 定义 得 
ак = аз + А4 (аз a), | (6-2,11) 


作为 一 个 新 的 近 但 值 。 ЖАЯ аз, азза, А Ж ЈО, a: Ka | = 


ж. 重复 上 述 过 程 得 到 ce 。 依 次 迭代 ， 直 到 近似 值 充分 接近 解答 = 


为 止 。 具体 计算 步 又 如 下 : 
(1) 准备 ， 根 据 所 选 定 的 区 间 确定 三 个 初始 近似 秆 6; а. 
ass НУЫ ИВЕ, Ез, Ез, 并 计算 
| | Е Аз = 2802, 
“о, 


(2) ЖК: 计算 | 
| ӧз=1 +43, 
| а= Е.А — ЕзАздз + ЕзАз, 
“306: | 


b = F14 = F20} + Ез (Аз t б), 
с= Езӧз » | 
А4 = 6 
ЭЪ? – Дас 
ШЛЕ К ТЕ Е: = Fs Боза, са 等 异常 情况 ， 
MRA = 1。 
于 是 得 到 新 的 近似 值 
а, = аз + Ai (las 02). 
计算 Fs = F(as)。 如 果 Fs 不 满足 |Е+|/|Ез|<М (M 是 给 定 的 党 
数 )， 风 缩小 :4 ， 直 到 这 一 条 件 满足 为 止 。 
(3) ЖЫ: Же. Е | 
д-|а4-6з| SE, (с), 
或 |F4| 50. 
ПАЯ, ІНЕ, Но УРЕ АЕ, НА F 
步 。 | | 
(4) ERER: 如 果 和 迭代 次 数 超过 某 个 上 界 ， 则 认为 过 程 不 
收敛 ， НЕА, 计算 失效 。 否则 ， Й аз» аз» 04» F2; Ез» 
Ра, АЯҚ ал» аз» аз» Fis F2， Ез, А» ЛУ SR 2 Ж 
续 和 迭代 计算 。 
实际 计算 表明 ， 求 非 线性 方程 F(c) = ОНОЮ, LARAN 
法 都 是 有 效 的 。 一 般 说 来 ， 线 性 插值 法 程序 较 简 单 ， 但 二 次 插值 
法 有 较 高 的 效率 。 这 两 种 方法 的 收敛 速度 都 与 初始 值 的 选择 有 较 
大 的 关系 ， 因 此 ， 用 经 验方 法 确定 初 值 的 工作 很 重要 。 Е 
由 (6-1.9) 式 可 见 , 对 非 线性 方程 Pla) RAIRA HJA. 
即 可 对 相应 的 震中 距 X 求 得 走时 t。 由 某 一 介 面 产 生 的 反射 波 ， 
其 分 布 范围 是 很 广 的 。 一 般 把 反射 角 小 于 临界 角 的 反射 波 称 为 罕 
角度 反射 波 ， 大 于 临界 角 的 称 为 宽 角 度 反射 波 。 我 们 只 需要 对 一 
系列 点 给 出 震中 虐 ， 就 可 以 获得 走时 曲线 X-t。 
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56-3 回 折 波及 首 波 理论 走时 的 计算 


层 状 介质 除 产生 反射 波 外 ， 在 一 定 的 条 件 下 还 产生 另外 两 类 
波 ， 即 回 折 波 和 首 波 。 | 


(一 ) ях 


当 射 线 进入 速度 樟 度 层 就 会 发 生 弯曲 。 如 果 速 度 随 深度 增 大 
(速度 梯度 a; = (UU; .1 一 UU;-1)/h:>0)， 射 线 将 向 上 弯曲 。 当 射线 
一 直 弯 有 曲 到 临界 角 90° 时 ， 它 将 
沿 轴 对 称 方向 折 回 到 地 面 。 这 就 
是 所 诈 的 回 折 波 ,如 图 6-3-1 示 。 

形成 回 折 波 的 基本 条 件 是 必 
须 存 在 正 的 速度 梯度 层 ， 且 梯度 
层 中 有 速度 大 于 以 上 各 层 中 最 
大 ， 当 入 射 波 初 始 入 射 角 a ;满足 
КЄ 6-8-1 关系 式 | 


sine, = (6-3.1) 





时 ， 就 形成 回 折 波 。 其 中 Vp 是 射线 最 深 点 ( 即 问 折 点 ) 处 的 波 
速 。 

ARH 2E HE BB ВЕ JE 的 速度 分 布 特征， 回 折 波 ПЕНУ ИН 线 又 分 为 
顺 进 及 逆 进 两 种 情况 。 | 

ІҢ6-3-2Ж тн, -速度 梯度 层 的 梯度 值 a; 较 小 (a)， 回 折 
波 在 地 面 存在 的 范围 为 4、B 两 点 之 闻 (b) 。 它 们 到 达 A、5 的 走时 
Т ЖЖ X 增加 而 增加 的 ， 而 且 较 深 处 回 折 的 射 线 有 着 更 
МЕР, НУ (с) ЕЕ ЖЕУ. | 
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6-5-3Ж ДЕЙИП (a ВЯ, ЕВЕ ВБ БЕЈ Е 
Ана ВХ ,以致 回 折 波 射线 强烈 弯曲 。 回 折 波 在 地 面 存 在 的 范围 
为 B.C 两 点 之 间 (b), 它 们 到 达 B、C 的 走时 T 是 随 震 中 距 X 减 小 而 减 
小 的 。 在 走时 曲线 (c) 上 表现 为 BC 段 。 这 时 ， 由 较 深 处 回 折 的 射 
线 反 而 有 较 近 的 距离 。 故 走时 曲线 (c) 上 BC 有 段 表 现 为 逆 进 的 。 





图 6-3-3 


由 于 实际 介质 中 速度 梯度 层 都 具有 一 定 厚度 ， 回 折 波 存在 范 
Млад А FATEMA АРТЕ о, AEN 
线 的 入 射 角 分 别 满足 关系 


а Ұ 
Sina: = у; ! 
| Y 14-1 





(6-3.2) 
біле: = тт ° 
ХУ; 为 梯度 层 上 界面 的 波 速 。Vi+1 是 梯度 下 界面 的 波 速 。 
| «309% 


对 于 第 2 层 介 质 中 则 折 波 ， 震 中 距 X 及 走时 上 仍 按 (6-1.2) 式 
计算 。 其 中 ， 从 第 一 层 到 n 一 1 层 中 的 x i 及 ti 的 计算 公式 ， 仍 慷 采 
用 (6-1,5)、(6-1.7) 或 (6-1.8) 式 。 仅 对 于 产生 回 折 波 的 第 n 层 
介质 ， 因 为 a,:1 = 90° , 故 (6-1.7) 式 可 以 简化 为 以 下 公式 

1 


Xn = ——<054,-1 , 
ар | 
-4 @п-1 
ін а. 11618 5 ° 


х. t, ЖУ қа 
жалт 中 的 速度 梯度 。 
(д ) 首 波 

| 当 某 一 界面 下 层 介 质 的 波 
速 大 于 上 层 介质 的 波 速 ， 且 震中 
中 大 于 临界 距离 时 ， 就 可 以 在 地 
面 接收 到 来 自 该 界面 的 首 波 ， 如 
图 6-3-4 所 示 。 | 

设 首 波 在 地 面 距 震源 X 处 被 
| оак 
图 6-3-4 计算 





=- ОИ Аш. 
_ 一 “临界 距离 一 一 + 





“i (6-3.4) 





式 中 碟 及 x 分 别 为 临界 条 件 下 ， 首 波 在 第 i 层 介质 中 穿 透 的 单程 
走时 及 水 平 距 离 。 | | 

由 于 首 波 是 艳 n 层 底 界 面 ( 即 n+1 层 项 н) ЕЛІН ЖТИ. 
所 以 存在 以 下 关系 
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Sinai віпа 22. _ Sine? _ 81190°_ 1 0 


— 


У! V; V, V, 1 “ул P? 


ats а}, “а ЕЕ О УЧЕ АГАЕ ЗНО АЖ. ЖШ 
初始 入 射 角 ci 可 以 由 下 式 计算 | 


i e Vi 
sinoi =. | ‚ (6-3,5) 


有 了 初始 入 射 角 (ҚНЖЕ р’), ШАҢ ҚАД6-1.52. 
(6-1.7) 或 (6-1.8) 式 ， 分 别 计算 出 单 层 走时 妈 及 距离 x* 。 
如 果 地 壳 模 型 各 层 介质 都 是 匀速 层 而 无 速度 Ж НЕН, (6- 
3.4) 式 可 以 简化 为 








(6-3.6) 


26-4 ЛУІ 


这 一 节 ， ЖУЛКА ГС. 

反射 波及 折射 波 走 时 曲线 的 计算 。 先 讨论 反射 波 问题 。 | 

如 图 6-4-1 所 示 ， 车 已 知 各 层 在 原点 0 处 的 垂直 厚度 为 Z1， 
2,5%» Za 各 层 界面 的 倾角 为 61， 2, əң» фз 而 各 层 的 速度 
Уу, V2, +s Уло | | Ё 

为 了 计算 方便 ， 我 们 约定 : 1) 倾 : 角 Ф(іс1, 2, сом 
于 水 平 基线 顺 时 针 方 向 为 正 ， 反 时 针 方 向 为 负 ，2) 所 有 的 水 平 距 
离 E 相 对 于 原点 在 右 为 正 ， 在 左 为 负 : 垂直 距离 Z 向 下 为 正 ， 3) 入 
射 角 x 及 透射 角 6 相 对 界面 的 法 线 方向 反 时 印 施 转 为 正 ， ЖР 
问 为 负 。 
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图 6-4-1 


图 6-4-1 中 各 变量 的 意义 是 。 Ыар 让 为 


各 层 地 震 入 射线 的 路 么 (D 家 示 下 行 ， ка), гб 为 各 层 间 地 震 出 - 


ЖЕТЕЛЕСЕ bir, ҮН) сЕ ФИ АИ Жуй: 
Е ЕЛА ; а, зена 6: НЕҢ т 在 界面 上 交 所 的 
距离 。 | 

”根据 Smell 定律 、 洒 以 求 出 各 界面 射线 的 入 射 角 g?，ai 及 出 
WAB? B RATE KAREAR: 


下 行 а? =B- фі Ф:-1» в? sin (айла у), 





EfF- 85-1 = фе фу» а-а = зіп! (sina. а Yia), 


і=1, 2, `, n (6-4,1) 
ЖАШ B] ПЧ Ж ЕИ С, 是 根据 жии” и, СЕТІН 
7312: 


{чч 


根据 以 下 递 推 公式 依次 从 上 到 下 计算 | 
Ĝi = (Z; -bi-1(tgġ:; —12ф:-1)2608ф;.. (6-4,2) 
bi=bi-it+ë;Singi E b; =0, (6-4,2/) 
і =1, 2, e, м. | 
下 面 是 求 层 闻 射 线路 径 r?，r7。 先 求 下 行 波 , 如 图 6-4-2 示 ， 
可 得 出 递 推 式 为 





x 
уз 
1—77 
Vz 
| m 
| ys 
аР/ 
С 
ІҢ 6-4-2 
ғ(-Сб;%ау-івіп(ф;- ф:-122/соза?, (6-4,3) 
4/-41-ісо8(ф:- ф:-:) %г?віла?, (6-4.3’) 


$ =1, 2.-, ne | 
ВНА ТУС А БН, (Н414%-:08%-0С КОЁ Җ) „ 
对 于 上 行 波 ， 如 图 6-4-3 示 ， 其 递 推 公式 为 
r? -Гбісоз(фі- фі-1) + @$в1п(ф;— фі-1)2/совВ7-1, 
(6=4.4) 
4:-1- (d; +r;isina;)/cos(ó; - ф:-1) (6-4,47) 
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图 6-4-3 


十 (6-4.3) 及 (6-4.4) 式 求 出 各 层 反 射 波 射 线路 径 后 ， 就 可 得 
到 反射 波 通 过 倾斜 层 状 介质 的 走时 为 | 


ЕЯ ыы (6-4.5) 
| i=] š . 
震中 到 接收 把 的 距离 X 可 对 (6-4.47) 式 令 1=0 求 得 
(6-4,6, 
计算 步骤 如 下 : | 


(1) 给 定 各 界面 的 倾角 四 ;及 各 层 速度 Vi， 给 定 各 层 在 原点 处 
的 垂直 厚度 Zi(i=I，2，…，HM)。 | 
`. (2) 对 于 一 个 震中 距 多 ; (j= 1, 2, .. т) ,用 非 线 性 求 根 法 
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找到 对 应 X; 射 线 的 初始 入 射 角 (B88); 。 用 (B86); 代入 (6-4,1) 式 , 递 
推 求 得 该 下 行 射 线 在 各 界面 的 入 射 角 出 射 角 (a?); 及 (8?);(i=1， 
2, .., п); 以 及 上 行 射线 在 各 界面 的 出 射 角 、 入 射 角 (89) ; 及 
(а:); (i=n, п-1, +, 1), 

(3) 根据 各 层 垂直 厚度 Z ,及 界面 倾角 di 代入 (6-4.2) 及 (6- 
4.27) 式 ， 求 出 各 层 的 层 间 垂直 厚度 6 (fi=1，2，…，1)。 

(4) 将 56i，(c?) 及 gi 代 入 (6-4。.3) 及 (6-4。.37 ОВ ЖШ 
的 下 行 射线 路 径 (r?);，(i=1，2，-…，n)。 将 5;，(B3) Ko; К 
入 (6-4.4) 及 (6-4,.47) 式 ， 递 推 求 出 各 层 的 上 行 射线 路 径 (ri); 
(=n, п-1, +, 1), | 


(5) 求 相应 于 震中 距 X; 的 理论 走时 ( 按 (6-4.5)) 式 有 


_ < (+2); + (г7),. 
t; = Уу 
! =} ү; 


下 面 讨论 折射 波 ( 首 波 ) 走 时 的 计算 方法 。 如 图 6-4-4 所 示 ， 
对 于 倾斜 界面 常 速 层 层 状 介质 ， 地 上 第 K 个 界面 ( 自 地 下 界面 起 
算 ) 产 生 的 折射 波 的 走时 计算 公式 如 下 : 


=- — С 2---- 42.2. -- 
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b 
_ Xsinbi 
K) = 2821701 


+ 5 Zi (сова; + cosb;). (6-4,7) 
| Vi 
式 中 K 表示 产生 折射 波 的 界面 的 编号 (K=1，2，…，n); 
Z Ел OS Hh КЕЛЕ; 
V 为 第 ; 层 介质 的 波 速 ; 
X 为 震源 O 点 到 接收 点 的 距离 ; 
“a ;为 第 i 屋 介 质 中 下 行 射线 与 垂 线 (平行 于 Z 轴 ) 的 夹 角 。 
b ;为 第 ; 层 介 质 中 上 行 射 线 与 垂 线 之 夹 角 。 
由 上 式 不 难 君 出 ， 要 计算 走时 曲线 ， 关 键 在 于 求 得 射线 通过 
各 界面 的 c, 及 2#; 角 ， 这 可 由 下 述 递 推 方法 计算 。 由 图 6-4-4， 不 难 
得 出 下 述 关系 ， | | 
аҙха-Фі» 
b. =a; + ó;. 
А Фока КАЎ ЕЯ TH RERE KANA 0 ; 为 界面 倾角 。 
首先 给 定 的 层 参 数 Z;、V :及 di 对 于 第 K 个 界面 ， 根 据 全 反 


射 的 临界 角 
ак =sin-!( ). 


Бы 知 出 射 角 


(6-4.8) 





| айға, 

利用 (6-4.1) 式 ， 将 eg № e8 代 入 进行 反复 选 代 ， 即 可 求 出 各 界面 
Жатай ( = К, K- 1, "ә 1) 及 反射 线 的 入 射 角 Be， 震 中 距 
x< 

由 (6-4.8) 式 ， 可 算出 各 界面 的 a: 及 b; 角 代入 (6-4.7) 式 求 得 
不 周 震 中 距 X ;的 到 时 t+ ;(K)。 实 际 计算 时 ， 是 先 求 出 折射 波 出 现 
的 最 小 震中 蝶 Xo ， 当 所 取 的 X;>X。 时 ， 即 计算 折射 走时 ， 和 否则 
不 进行 计算 。 


-316° 


56-5 用 反射 波 走时 反 演 地 壳 结构 


本 节 讨 论 用 地 震 反 射 波 反 演 地 壳 结 构 的 计算 方法 。 反 演 计算 
的 详细 理论 已 在 第 一 至 第 三 章 中 谈 到 ， 下 面 仅 简单 说 明 其 基本 程 
序 。 | - 
车 地 面 沿 观测 剖面 有 m 个 观测 点 ， 各 观测 点 走时 向 量 为 
f= 
对 地 壳 结 构 给 定 一 初始 模型 ， 这 个 模型 用 n 个 待 反 演 的 分 层 
参数 = (x1，x2，…，xn)7。 表 示 。 则 可 算 出 相应 于 各 测 点 的 


理论 走时 : 
(м) = (См) Рг" (а), "s In” (ж))7, 
令 走 时 残 差 为 | | 
At = — # (ac), (6-5,1) 
根据 最 小 二 乘 原 H, $ FI H $R R ЛЕ ДУН 
Ф(ху-|АЦ?-тіп, 2 (6-5.2) ` 
可 导致 以 下 解答 
АТААХ = АТЛАР, (6-5,3) 


其 中 和 是 m x n 阶 微分 系数 矩阵 (усов НЕ), ЖЕН Z E 
ñ 


_ д1; (X) j=l, 2, +, т, 


дж; Х-0, 1=1, 2, +, H. 
‚ (6-5.4) 


4x 为 层 参数 (厚度 ,速度 等 ) 的 修正 量 


| Ах=х-Х, (6-5.5) 
о E НВ „Або 系 观测 到 时 与 由 初 值 模型 Хо 计算 的 理论 到 
时 的 时 差 。 利 用 阻尼 最 小 二 乘法 可 得 式 (6-5.3) 的 解 为 
ДХ = (АТА) АТАЬ. _ (6-5.6) 
式 中 4 为 阻尼 系数 ， 1 为 单位 矩阵 。 在 解 (6-5 .6) 式 时 ， 考 虑 到 系 
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数 矩 阵 的 正定 对 称 性 ,采用 计算 速度 较 高 的 Cholesky 法 计算 。 
该 方法 可 参考 有 关 的 计算 方法 参考 书 。 

在 修 定 参数 的 选 代 过 程 中 ， 可 以 用 以 下 两 个 标准 作为 收 化 条 
件 ， 一 是 走时 残 差 平方 和 达到 预定 的 精度 要 求 ， 二 是 模型 参数 改 
正 量 Ax 已 足够 小 ， 达 到 事先 给 定 的 限 差 。 只 要 达到 其 中 任 一 标 
准 ， 则 停止 类 代 、 输 出 修 定 的 地 层 参数 。 图 6-5-1 为 用 阻尼 最 小 
二 乘法 反 演 地 壳 结 构 的 框图 。 | Қ 

下 面 举 一 个 数值 反 演 实 例 ， 对 于 我 国 华北 地 区 人 工地 震 测 深 ” 
资料 中 一 段 记录 ， 可 以 清楚 地 追踪 到 т, Th Ti 三 层 反 射 波 。 
采用 逐 层 反 演 方法 ( 即 第 一 层 反 演 后 ， 将 该 层 参数 固定 ， 然 后 反 
演 第 一 层 , 以 至 第 三 层 )。 可 得 下 列 结果 ( 均 为 折合 走时 T - А/6): 














T! E Ж Sk E 
震中 距 X (Ко) Ёё ЖЕН?” (s) 观测 走时 经 (s) 

16.32 6.36 6.18 = 
18,54 6,58 6.66 
20.23 Е 6.75 © 6.87 
28.43 0 | 7.74 . 7.78 
37.68 | 9,02 | 9.10 
43,18 9.85 | _ 9.85 
50.30 10.95 ` 10.93 
56.38 | 11,93 | 11,80 
61,48 | 12.76 . 12.81 
63,76 13.13 13,23 
66.01 13.51 13.52 ` 








残 差 平方 和 S 二 0.093s? 迭代 次 数 : 10 
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输入 : 观测 数据 4. 0 = 1.2... т), 
' | MJ ha hb BA 8: X; Г 1.2. ... h) 





确定 待 修 定 参量 数目 N | 









理论 走时 1 = Луск. лро т 
注 算 : EPRI Ага, f). (jl. 


ЖЕН 552 41, 


ра“ 





形成 Ja cobi ЕА а), = 2: (7-1. 


ж; i=l. 








形成 证 规 方 程 组 (A7TA HALAK- Aras 





用 Choleskv 法 解 方 程 组 求 4x 


对 地 艳 参 数 进行 修 定 X - ÀX => X 








НЕЕ ЕТІСТІ 
ж kiA Г), 


论 走时 lijs 
REBRIMA 5 









ЗА АА К С 
Х-Х+ САХ 


ЖА OS <S,” ЛЕ 


6-5-1 







Ы 


1) 
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TRARRE 














TREX | 理论 计算 走时 经 观测 走时 细 
— — ne ---- | - —— —— — 
28.43 | 9.50 9.60 
37.68 | 10,48 10,54 
40,15 | 10.77 _ 10.78 
43.18 | 11.14 | 11.10 
47.35 | 11.67 | 11.62 
51.79 | 12.25 12,18 
56.38 . Е 12.87 | 12.88 
63.76 | 13.91 14,06 
66.01 | 14.24 | 83.30 








残 差 平方 和 S 一 0.077s2 RAUK 








Tç 反 演 数据 
Ен пеня Же Ж 
| i 
51,79 | 14,62 | 14,66 
| 
56,38 14,99 | 14.93 
61.48. 15,43 15,49 
63.76 15,63 15,67 





残 差 平方 和 S=0.009s? ЖҚЖ. 25Ж 


| ” 220: | 


_. ЖЕРЕКХЫЙЫН 


V (km/s) h (km) УХЕт/5). h (km) 


= 
第 一 层 4.00 | 3.14 | 
第 二 层 5,00 10.00 5.65 — 11.25 
第 = E 7,00 ‚ 10.00 6,15 7.53 
第 四 E 7.02 | 15.00 8.16 17.85 


注 : 第 一 层 速 度 及 厚度 选 定 不 变 


以 上 反 演 结果 表明 ， 该 区 地 壳 大 体 可 分 为 沉积 层 、 地 壳 上 
层 、 地 过 中层 和 地 壳 下层 几 部 分 。 其 层 速度 一 般 是 递增 鸡 。 


56-6 ”地 过 模型 及 震源 参数 的 同时 反 演 


， 前面， 我 们 讨论 了 地 面 震 源 层 状 介质 地 震 体 波 走时 的 正 演 及 

反 演 问题 ,由 于 震源 位 置 及 发 震 时 刻 均 是 已 知 的 ,所 以 待 求 的 仅 是 

各 地 这 分 层 参 数 ， 对 于 天 然 地 震源 玉 说 ， 由 十 震源 参数 及 地 这 模 
型 两 者 都 是 未 知 的 ， 因 此 其 反 演 问 题 要 复杂 一 些 。 

1976 年 ，Crosson 人 研究 了 用 地 垮台 网 记录 的 地 方 震 与 近 震 的 

观测 资料 同时 反 演 地 壳 速 度 

结构 及 震源 参数 的 方法 。 这 


G ЕЛ 
Б É ГА 速 分 层 ， 地 震 可 以 发 生 在 地 

г: ° / 下 任意 深度 ,这 时 ,P 波 的 初 
} 





”一 一 一 一 至 可 能 出 现 两 种 情况 ， 直达 


ой 0 - 
шебі 波 P 或 折射 波 P, 如 图 6-6-1 


Сә E E F m 


下 醒 讨 论 一 茶 列 常 速水 平 层 所 组 成 的 地 壳 模 型 ， 任 意 深度 震 
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源 的 直达 波及 折射 波 走 时 的 计算 问题 。 

我 们 先 考虑 直达 波 。 若 震源 位 于 第 一 层 中 ， 那 未 直达 波 是 简 
单 的 、 可 以 用 简单 的 解析 式 t = ИЕР /计算 。 然 而 ， 若 优 
源 位 于 第 二 或 更 深 的 层 内 ， 就 不 再 有 可 利用 的 解析 式 ， 这 时 ， 必 
须 利 用 迭代 法 寻求 与 相应 震中 距 的 离 源 角 6、 如 图 6 - 6 -2 所 示 。 

m+ | L... 








网 6-6-2 
” 设 震源 在 第 二 层 内 ， 并 设 已 知人 台 站 的 震中 距 为 4。 首 先 选择 
fa, #6, <d < 由 。。 一 般 可 选择 4 使 得 x: = АС, ЖШ 
$: 使 <， = A。 根 据 离 源 角 为 6, 及 6 两 条 出 射线 ， 能 方便 地 算出 地 
面相 应 的 震中 距 A: 及 4z。 





按 下 式 计算 试验 值 x: 
| хі-хі А-А, | 
хах A-A,’ | (6-6,1) 


然后 ， 用 x:( 相 应 的 离 源 角 为 由 ) 计算 震中 距 A,。 检 验 |A,—- A| 是 

人 否 达 到 给 定 限 差 ( 即 小 于 误差 要 求 ;)。 如 未 达到 ， 则 用 第 一 次 迭代 

求 得 的 试验 值 A, 作 为 一 个 新 值 . 若 4,>4, 取 xx 和 x, 作 为 新 的 搜寻 

范围 ; ЖЛ, <4， 则 用 x ,和 x。 作 为 新 的 搜寻 范围 。 重 复 同 样 过 

程 ， 直 到 最 后 求 出 的 АЗАН |А,-А|<г (为 给 定 限 差 ) 为 止 。 
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上 述 和 迭代 过 程 容 易 推广 到 震源 在 更 深层 的 情况 。 一 且 给 出 了 
第 7 层 离 源 角 4= ө, RARR UH Snell ЕЯ ЕА E 
射 角 ， | | 


Sin0，. Sin0s,-i а. Sini _ p. | (6-6.2) 
Un Dn-1 171 
或 者 写 为 | | | 
$119; = ро,» (і-п, п-1,--, 1). (6-6,3) 
迭代 过 程 所 计算 的 震 тіні 以 表示 为 
2 
Аі = x, + У Pitangi， 当 Ө, = 办! 时 ， 
ікт-1 
; (6-6,4) 
Аз = хз + È hı tanð;, 34 0, = pz 时 ， 


i=n-1 


按 (6-6.1) 式 计算 x,， 重 复 此 步骤， 直到 | A, -A sek, ЖЕН 


A,=x,+ ОХ hitan0;, 


іштп-І1 











— а | 
p= МХ? + hi _, (6-6,5) 
Un 2mn_1UiCOSO.; a 
= А 9, = 8 -( а). 
当 in с TETA 


下 面 讨论 折射 波 走时 的 计算 方法 。 对 于 个 水 平 层 的 情况 ， 
如 图 6-6-3 所 示 。 折 射 波 走时 可 以 用 解析 公式 一 次 求 得 
k-1 
th = А +2 У costa, k=2, 3 


{= Vi 


01: 之 间 的 关系 由 Snell 定 律 给 出 ， 一 般 可 写 为 


. vi ізі, 2, =, n-l; 
біпбі- 一 ， 


(6-6,7 
Uk k=2, 3, e, и. . 


> t, и. (6-6,6) 


чагы mau, wawa --——— 








图 6-6-3 


利用 关系 СО570-1- sin ði, № (6-6. ) 式 可 以 直接 用 层 速 
度 人 参数 表达 : | | 
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现在 讨论 震源 位 于 任意 深度 Z 上 的 一 般 情况 。 设 震 源 位 于 第 
层 之 内 。 震 源 至 第 k 层 顶部 距离 为 6， 如 图 6-6-4 所 示 。 = 

这 种 情况 下 与 表面 震源 的 区 别 在 于 ， 折 射 波 的 下 行走 时 路 和 
从 深度 Z 处 开始 而 不 是 从 表面 开始 。 这 意味 着 下 行 的 震波 少 走 j 层 
(加 上 厚度 为 5 速度 为 w 的 层 )。 因 此 可 以 宕 出 类 似 于 (6-6.8) 式 的 
方程， | 
A Vu ut, yh: iu t u, 


Dp: о: Р B i=l Uu; ;, 


fik = 


р и о (6-6,9) 
=1, 2, =, и-1; k=2, 3, ++, и, 
”这 一 公式 可 以 计算 任意 埋 深 震源 的 折射 波 的 到 时 。 00 
对 于 某 一 台 站 而 言 ， 要 得 到 其 P 波 最 小 走时 ， 可 以 先 计 算 折 
ЭНЕҢ ЖИДЕ УЕР 














іс1, 2, +з, п-1; кез, 3,--, п. (6-6.10) 
”车 台 站 震中 距 人 <X;;， 则 直达 波 先 到 达 ， 计 算 直 达 波 走时 作为 P 
波 到 台 站 的 最 小 走时 ， 反 之 若 A> Xix， 则 折射 波 先 到 达 ， 计 算 折 
射 波 走时 为 P 波 最 小 走时 。 


DERMA 


尽管 地 震 P 波 走时 一 般 是 震源 位 置 和 速度 模型 参数 的 非 线性 
函数 ， 但 可 以 用 Taylor 一 阶 展开 式 将 其 表示 为 拟 线性 方程 组 。 
设 在 r 个 台 站 上 记录 到 4 次 地 震 ， 即 总 的 地 震 到 时 有 r x g 个 记录 。 
第 i 次 怨 震 在 第 j 个 台 站 上 的 P 波 最 小 到 时 为 
tij=tij (Xi; Ха: Хар, Xais бі» аву С", а.) ; 
i=l, 2,-е, аз j=l, 2, +з, г. (6-6,11) 
| 4325» 





2% Hygi | P x° is. Xs ха ;为 第 i 次 地 震 震 源 参 数 ,ar s G> з" а. 
地 壳 分 层 的 摩 度 及 速度 等 参数 。 ИР S dks 
ж 的 走时 变化 可 用 ТАН: | | 


Ata = E E (H) л, +. > 





і- 1, 2, е, 43) =1, 2, ``, re (6-6.12) 
ЖАРЫ -%4;;-%2,, Ах: = Ari 9%, Дар а ах 08 
分 别 为 震源 及 地 壳 模 型 参数 的 初 值 。 在 作 反 演 计 算 时 ， 通 常 将 
At;; 看 成 观测 值 与 计算 值 之 差 。 
”基于 震源 及 地 达 模 型 的 初 信 ， 可 用 解析 法 或 数值 法 计算 出 
( 6-6.12) 式 中 的 各 项 偏 微分 。 式 6-6.12) 展 开 后 可 以 写 为 m= аг 
个 方程 ，n = 4а + 1 个 未 知 数 的 线性 方程 组 。 记 为 
ААХ = Ағ, _ (6-6.13) 
式 中 4 为 m x n 系 数 矩 阵 ， 4X 为 n 维 向 量 ， 4f 中 m 维 向 量 ， 该 矩阵 






















具有 下 列 形式 : 

(44. ЭНь ді, Фа Аха: Аа 
| бха: Оха: | | да! ' до | : м 
: : Ü : : : 

| | | | Аха: 
дх 1 Әхі1 | | да, да; | 12 A t2; 
| ізі ... Ötz, | ` : 
i | Эх, > хла Ах. г A ta, | 
0 ор |= 
94, ... 91., Ах: 
хз Өх,» : 
Ax. 
°. Ас, А? 
| Of ar Ot М . 
0 0 : да. ... da, * : 
Да! Аг, 
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首先 对 震源 参数 及 地 过 模型 初 值 赋值 ， 则 系数 矩阵 A 及 走时 

残 差 A! 就 可 以 确定 .用 广义 北方 法 或 阻尼 最 小 二 乘法 解 (6-6,13) 

式 ， 求 得 参数 的 校正 量 Ax。 用 和 迭代 法 对 参数 逐次 修 定 ， 直 到 走 
时 残 差 或 各 参数 修改 量 达到 预定 精 许 为止。 

式 (6-6.13) 中 待定 的 参数 量 是 很 大 的 。 例 如 ， 对 于 40 次 地 

震 ， 地 这 分 为 10 层 的 情况 ， 总 共有 4 x 40+ 2 x10= 180 个 未 知 

数 。 仅 贮存 系数 矩阵 就 要 32400 个 单元 。 但 考虑 到 正规 方程 组 的 

系数 矩阵 A7A 是 对 称 的 ， 因 此 仅 需 存 贮 主 对 角 线 以 上 的 系数 值 。 

最 后 ， 我 们 将 Crosson 从 美国 华盛顿 州 西部 Puget Sound 地 | 

区 的 14 个 地 震 台 记录 中 ， 挑 选 出 40 个 最 好 的 三 级 以 下 地 方 震 记录 | 

( 初 至 清晰 ， 而 且 均 匀 分 布 于 不 同 深 度 ) MP 波 初 至 到 时 反 

5.0 6.0 7.0 8.0 5.0 6.0 7.0 8.0 演 震源 参数 及 地 

| СЛЕ БН 

| | 有 .8B 两 个 模型 。 除 

地 壳 内 低速 带 细 和 节 

不 同 外 ， 二 者 基本 

是 相同 和 的。 对 各 次 





ок dè 地 震 震源 参数 反 演 
5 结果 也 较 一 致 。 如 
а О b 6-6-5 ж. 
` ЙІ 6-6-5 


2%6-7 用 剥 去 法 反 演 地 过 速度 分 布 


本 节 讨 论 用 回 折 波 走时 反 演 地 壳 速 度 结构 的 剥 去 法 。 它 建立 
在 球 对 称 分 层 介质 模型 基础 上 ， 对 于 人 工 或 天 然 地 震 震源 的 地 过 
上 地 晶 探 测 都 适用 。 下 面 分 别 讨论 其 正 演 及 反 演 问题 。 

对 于 球 层 纵向 速度 变化 规律 设 为 


v=v (r); | (6-7.0 
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Жин V K г: Я ЗЕЕ КЕЖЕ ИВ Н?Р» АЖ PR ВЕ 
按 指数 变化 常数 





У? 
lni 一 一 | 
У! 
А = 7 о (6-7.2) 
(72) 
У. Бе. 分 Я] 为 球 层 底部 速 


度 及 距 地 心 的 半径 。 球 层 分 布 如 
图 6-7-1 所 示 。 
由 式 (6 -7.2) 不 难看 出 ， 
“4 二 0 表示 正 速度 梯度 层 ; À = (为 











EPO жже; A> 0 为 负 速度 梯度 层 。 
NN _ RABAS 7-1) 
\\ //49 
V / _ r sini 
Y f D чу ° 
Ó 
图 6-7-1 
| 或 改写 为 i= біп”! рҮ, (6-7,3) 
对 (6 -7.3) 式 微分 并 化 简 可 得 
di = (а-а , | (6-7.4) 


_G-DSin дг | 
' pcosi у’ 


НН -7-1 АГ зе 


或 di (6-7,5) 


Í |= dr 
cosi 


及 10 = tgi*dr, 
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Қ” рыт 





ds d 
于 是 有 Ш-у = бон (6-7.6) 


及 40- Ті (6-7.7) 


将 (6 -7。4) 式 代入 (6-7.7)，(6.7.5) 式 代入 (6-7.6)， 积 分 限 
Мізжі.. 8/8 


1 1 _ 
s [49 Авив», (6-7.8) 


із ` 
р Ке _ 
t= | а= ietgis - сай), (6-7,9) 


注意 ， 这 里 6 及 t 仅 代表 射线 通过 某 一 球 层 的 时 间 及 距离 的 一 
半 ， 故 通过 N 层 的 总 时 间 和 距离 可 由 以 下 求 和 公式 计算 


N 


Т = 2 (ctgiss —ctgi,,) | (6-7.10) 
ы-і ArT 
N 1 f 
0=23, — ——(Çisk—isk) (6-7.11) 
ра ARTI | 
式 中 | | іш = sin PV, 
| Кї» 
іы = sin-1D 了 se 
Fok 


FaksT2k 为 第 k 层 上 、 下 界面 半径 ,V， вл Из :为 第 к Е. TRAE 


度 。 射 线 参数 p 可 由 初始 入 射 角 i。、 地 表 介 质 速 度 Vo 及 地 球 半径 
R 求 得 
_ Rsinio | 
Vo ° 
在 用 剥 去 法 解 反 演 问题 时 ， 是 将 地 壳 介 质 划分 为 许多 薄 层 ， 
这 样 可 以 假定 每 一 层 为 常 速 层 ， 即 1=0， 于 是 (6-7.8) 及 (6- 
7.9) АЖ 
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б-і,-і, (6-7.12) 
t= р(сірі, – ctgi,), (6-7.13) 
由 于 以 上 二 式 中 6 及 + 均 可 由 观测 走时 曲线 得 到 ， 对 于 地 表 附 


近 一 点 9= -于 ，t= 一 2 由 ， 由 第 一 层 开 始 反 演 ， 由 走时 曲 


ранения V*， 得 出 相应 的 p 值 ， 


_—R Кк 
P V ifsini, V 


ISA (6-7. 12)Ж( 6-7. 13), ЕТ 
. _ 2р_. 
і, =—#с03 1 (созд— 225116) — 01, 
| >l t | | | (6-7.14) 
із-0-і14. 


设 第 一 屋顶 界面 r: = R， 再 根据 式 r, = Rsinii/siniz， 求 出 第 一 
层 的 下 界 深度 | 





2:- Е-ғ,, (6-7.15) 
及 该 层 速度 | | 
У, = Кѕіпі, /р. (6-7.16) 
剥 去 第 一 明 后 ， 输 入 平一 点 的 距离 、 走 时 及 射线 参数 
0-4 f 
28’ 
_ T 
| t = 2 , 
ж С ni, 
жн, ин-ин ашин 
0’ = 一 (i, 一 i, ), 


t/=t-— p(ctgi, —ctgis), 
екл 6 -7.14) 式 ， 即 可 计算 第 二 层 相 应 的 11.22, H 
代入 (6-7.15) 及 (6-7.16) 式 ， 求 出 第 二 层 相 应 的 深度 及 速度 。 


.-330% 


如 此 递 推 ， 即 可 求 得 一 系列 深度 及 速度 值 。 在 用 测 去 法 计算 速度 
深度 关系 时 ， 必 须 对 走时 曲线 仔细 加 工 ， 一 般 要 用 多 项 式 或 样 条 
函数 拟 合 走时 曲线 后 ， 再 根据 它 计算 视 速 度 。 


56-8 层 状 介质 地 震波 走时 正 \ 反 演 程序 


(一 ) 层 状 介质 地 震波 理论 走时 正 演 程序 


本 程序 用 于 计算 地 表 激 发 震源 任意 多 层 水 平 层 状 介质 ( 常 速 
层 或 速度 梯度 层 ) 的 反射 波 、 回 折 波 及 折射 波 的 理论 走时 。 

(一 ) 计算 方法 

本 程序 统一 处 理 每 一 层 或 每 一 界面 的 反射 波 ， 回 折 波 及 首 波 
的 计算 问题 。 在 主 程序 中 ,首先 输入 层 状 介质 模型 的 各 种 参数 。 然 
后 对 每 一 层 的 速度 特征 进行 判断 。 如 果 是 速度 梯度 层 ， 则 计算 回 
折 波 及 反射 波 、 折 射 波 等 ， 否 则 上 只 计算 反射 波及 折射 波 。 从 上 到 
下 逐 层 计算 ， 直 到 最 下 面 一 个 界面 为 止 。 如 果 速 度 梯 度 层 上 (下 ) 
界面 的 速度 与 上 (下 ) 层 的 速度 不 同 ， 可 在 该 处 假定 一 个 厚度 为 零 
的 常 速 层 。 本 程序 可 以 计算 通过 低速 层 的 各 类 波 的 走时 。 

对 于 反射 波 给 定 的 震中 距 ， 用 粥 位 法 求 根 计算 相应 的 初始 入 


_ 射 角 .对 于 回 折 波 是 按 入 射 角度 的 变化 而 计算 走时 的 .对 于 首 波 则 


ЧИТАЛИСЬ 和 一 


按 给 定 等 间隔 距离 计算 走时 。 下 面 给 出 计算 框图 。( 图 6-8-1) 
(Z) 主要 标识 符 及 子 程序 说 明 
THKNES (20) 水 平 层 状 介质 各 层 厚 度 值 ( 最 多 可 可 计算 20 
№). 
VP(20) 一 一 各 层 介 质 的 波 速 。 
AR(20) 一 一 各 层 的 速度 梯度 值 。 
UV(20) 一 一 表示 各 层 速度 的 特征 参量 
1.0 速度 梯度 层 ， 


0.0 常 速 层 。 





UV(I) = | 
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DELTA (50) 一 一 计算 各 种 波 的 理论 走时 震中 上 距 X 的 值 ( 最 多 
可 计算 50 点 ) 。 ü | Е 
АР (50) 一 一 计算 理论 走时 各 震 中 距 相应 的 初始 入 射 角 的 数 










输入 地 过 模型 总 数 L， 输 入 各 层 厚度 h;， 速 
ЕР, ЖИН ОР). (Ё=1.2. ++, L) 
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组 。 
T(50) 一 一 理论 走时 的 计算 值 。 
T1(50) 一 一 折合 理论 走时 的 计算 什 。T1= 了 -和 /6.0 (X 为 震 
中 距 。6.0 公 里 /稍为 地 过 平均 速度 )。 
N 一 一 计算 层次 变量 ，N = 1,2,…… ‚1—1 
RC 一 一 计算 理论 走时 的 特征 向 量 : 
(1.0 计算 回 折 波 ， 
550 ПБЯ. Я. 


РЕЕА ———19 Н> fi JF MB LF AJ, 2 NAE . 
РЕГТАО ИЕН. 
DELTAO 一 一 工作 单元 ， 表 示 已 知 震 中 距 。 

ROOT(H, E, RD —— Z MARR TEF., 其 中 五 为 搜索 步 
E 为 求 根 时 精度 要 求 ，RT 为 所 求 的 根 。 | 


ВС = 


ҮК 


FAP (A) 一 一 函数 F(a) s X-2 Y1x (a) , R h A ЖЖЖ 
i = 1 


的 初始 入 射 角 a。 
КЕЕТ(М,А,Т) 一 一 计算 反射 波 走时 的 子 ЕН. МЖ ян 
数 ，4 为 初始 入 射 第 ，T 为 行 求 的 走时 。 
_ВЕАТ(М,А,Т) 计算 回 折 波 走 时 的 子 程序 ， N 为 层 数 ， 
A 为 初始 角 ，TT 为 待 求 的 走时 。 
(=) FORTRAN 语言 源 程序 
С THIS І5 MAIN PROGRAM 
DIMENSION THKNES(20)，VP(20),AR(20) ,UV(20)， 
DELTA(50)，AP(50)，T(50)，T1(50) 
СОММОМ/ТУ/ТНКМЕ5, УР, АВ, UV/NR/N, ЕС, 
РЕГТАО/Р/РКЕА о 
1 PAUSE 00 
READ(I) L 
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КЕАЮ(1) (ТНКМЕ5(СІ), УРСІ), ОУСІ), ТЕЗ, L) 
L1=L-1 
DO 100 Ізі, 11 
N= I 
ТЕ(ОУ(№) EQ: 0-0) GO ТОП 
AR(N)=(VP(N+1)- VP(N- 1) /THKNES(N) 
ТЕ(АВ (м) .LE.0.0) GO ТО 100 
ІЕ(УР(Ҹ+1) .LE.VPIN-2)) GO ТО 100 
RC =1.0 
COMPUTE THE TRAVEL TIME OF REFRACTED 
WAVE 
АРА =ASIN(VP(D/VP(N+1)) 
ТЕ(УР(М- 1) * LT. VP(N-2)) GO ТО 21 
APB = AS IN(VP(1)/VP(N-1)) 
CO TO 2 

21 APB=ASIN(VP(1)/VPN-2)) 

22 DELTAO =0.0 
РЕГТА(1) = - ЕАР(АРА) 
НЕ=(АРВ- АРА) /29,0 
АРВ = APB- НЕ/100.0 
DELTAO = DELTA(1) 
DELTA(30) = -FAP(APB) 
CALL ВЕАТСМ, АРА, T(1)) 
CALL ЕБАТ(М, АРВ, T(30)) 
АР(1) = 57,2957795 * АРА 
АР(30) = 57.2957795 * АРВ 
АР1 = АРА 
DO 25 Ј =2,29 
АР] = АР1+ НЕ 
AP(J) =57,2957795 * АР1 
DELTA(J)= -FAP(AP1) 
CALL КЕАТ (N, АРІ, T(J)) 
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25 
2226 
27 


28 


29 


11 


12 


10 


CONTINUE 

DO26 J =1, 30 

T1(J)=T(J)—- DELTA(J)/6.0 

WR ITE(2, 27) N 

FORMAT(20X, 13, 20Х, 14НВЕЕВАСТЕО WAVE) 

WRITE(2，28) 

ЕОВМАТ( /25Х, 2НАР, 30X, 5НОЕГТА, 30X, 1НТ, 
30X, ЭНТІ) 

WRITE(2，29)(AP2(J)，DELTA(J)，T(J)，TI1(J)， 
1-1,30 0 

ЕОВМАТ(20Х, F14.8, 20X, Ғ14,6, 20X, Е14,6, 
20Х, Е!4.6) 

GO ТО 100 

IF(VP(N) . EQ.VP(IN+1)) СО ТО 100 

RC =0,0 

COMPUTE THE TRAVEL TIME OF REFLECTION 
WAVE 

РРЕА-0,01 


-Н0-1Е-3 


УРМАХ =1.0 

ОО 12 J =1, N 

IF(VP(J) СТ + УРМАХ)УРМАХ = VP(J) 

AP0= АЅ ІМ(УР(1) /УРМАХ) 

DELTAO =0.0 

DELTA(1) = 0.0 

АРС) =0.0 ' 

T(1)=0.0 | | 

DO 10 J =1, М 

IF(UV(J)=0,0)DT =THKNES(J)/VP(J) 

IF(UV(J) =1.0)ОТ =LN(1,0+ AR(J) *THKNES(J)/ 
VP(J -1)/AR(J) 

T(1)=T(1) +DT +2,0 


-335° 


WRITE(2, 16)N 
16 FORMAT(20X, 13, 20X, 14HREFLECTED WAVE) 
WRITE(2，17) | 
17 ЕОВМАТ(125Х, 2НАР, 30X, 5HDELTA,30X, 1НТ, 
30X, 2HT1) 
ТЕ (ТНКМЕ$ (№) .GT .0.0) GO ТО 31 
IF(ARGN-1D .GT.0.0) GO TO 19 
31 DO 15 J =2, 50 
DELTAO =DELTA(J - 1) +10,0 
DELTA(J)= DELTAO 
ІЕ((РВЕА + НО) - СЕ. АРО)Н0-Н0/10.0 
CALL ROOT(H0, 1E-8, АР!) 
РЕЕА = АР] 
АР(Ј) =57,2957795 * АР1 
CALL REFT(N, АРІ, T(J)) 
15 СОМТІМОЕ 
рО 50 1-1, 50 
50 T1(J) =T(J)- DELTA(J)/6.0 
WRITE(2, 18)(AP(J), DELTAG), T(J), T10), 
1-1,50) | | 
18 ЕОВМАТ(20Х, Е14.8, 20X, Б14,6, 20X, Е14,,6 
20Х, F14,6) GOTO 30 | | 
19 WRITE(2，13) АР(1), РЕІТА(1), Т(1) 
13 FORMAT (20X, Б14,8, 20Х, F14.6, 20X, Б14.6) 
14 DELTAO =DELTAO +10.0 
IF(DELTAO СЕ .DELAO) СО ТО 30 
ТЕ((РВЕА+НО) • СЕ. АРО) Н0-Н0/10,0 
CALL ЕООТ(Н0, 1Е-8, АР!) 
PREA =АР! 
AP2 =57.2957795 * АРІ о 
CALL ВЕЕТ(М, АР1, ТО) 
TO1=TO-DELTAO/6.0 
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20 


30 


35 


39 


36 


WRITE (2, 20) АР2, DELTAO, ТО, TO1 

ҒОВМАТ(20Х, Е14.8, 20Х,Е14.6,20Х, Е14,6, 20X, 
Е14.6) GOTO14 

ТЕ (УРМАХ • СЕ + УР(М+1)) СО ТО 100 

ВС =0.0 

СОМРОТЕ THE TRAVEL ТІМЕ ОЕ HEAD WAVE 

AP0= ASIN(VP(1)/VP(N+1)) 

DELTAO =0.0 

D1 = - ЕАР(АРО) 

DELTA(1) = D1 

D1 =D1/10.0 

M1=IFIX(D1) 

D1 = FLOAT(M1) 

21=01* 10.0 

CALL REFT(N, АРО, T(1)) 

РО 35 1-2, 50 

D1= D1+ 10.0 

DELTA(J) =D1 

T(J)=T(1) + (D1- DELTA(1))/VP(N +1) 

DO 39 7-1, 50 

TI1(J) =T(J)- DELTA(J)/6 .0 

WRITE(2，36)N | 

ЕОВМАТ(20Х, 13, 20X, ЭННЕАР WAVE) 

WRITE (2, 37) 

ЕОВМАТ(/25Х, 5HDELTA, 30Х,1НТ,30Х, 2HT1) 

УВ ІТЕ(2, 38)(DELTA(J), T(J), T1(J), 7-і, 50) 

ЕОВМАТ(20Х, Е14.6, 20X, Е14.6, 20X, Е14.6) 

CONTINUE 

GO TO 1 

END 

SUBPROGRAM TO FIND ROOTS BY ITERATIVE 

METHOD 
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SUBROUTINE ВООТ«Н, Е, ВТ) 
СОММОМ/Р/РВЕА 
\=0.0 
Х=РВЕА 
Е0=БАРСХ) 
4 Х=х+Н 
Е1=ЕАР(Х) 
ІЕ(ЕІ/Е0: СТ • 0,0) СО ТО 101 
ҒА = ҒО | 
ЕВ= ЕІ 
А= Х-Н 
В = Х 
1 С=В- (А-В) * ЕВ/(ЕА- ЕВ) 
IF(W)5, 7, 5 
7 W=1,0 
СО ТО6 Е 
5 ІК(АВ5(С1І- С) 1ТЕ) СО ТОЗ 
6 CI=C 
ЕС = ЕАР(С) 
ТЕ(ЕС + РА • СТ+0,0)СОТО2_ 
ЕВ= ЕС | 
В-С 
GOTO 1 
2 БА-ЕС 
А-С 
СОТО 1 
3 КТ-С 
СО ТО 102 
101 F0=F1 
ІЕ(Х-10,024»: 102, 102 
102 ВЕТОВМ 
END 
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SUBPROGRAM ТО COMPUTE INITIAL VALUE 
ОЕ INCIDENT ANGLE BY EPICENTRAL DISTAN 
СЕ FUNCTION ЕАР(А) 


DIMENSION THKNES (20),VP(20), AR(20), UV(20) 


COMMON/TV/THKNES, УР, АВ, UV/NR/N, RC, 
DELTAO 

ALPHA=A 

P=SIN(ALPHA)/VP(1) 


S =0.0 


рО 100 I=1, М 

ТЕСОУСТ) «МЕ 0,0) СО ТО 20 
В-Р«УР(1) 

DS =ТНКМЕ 5 (1) * В/5ОКТ(1,0-В В) 
СОТО 10 


AR(I)=(VP(I+1)- VP(I-1))/THKNES(I) 


IF(B-GE+1.0 GO TO 100 
APHA= AS IN(B) 

ЕСІМЕ. МСО ТО 15 
BR=RC* AR(I) 


IF(BR: GT.:0.0) GO TO 30 


BB= Pe.VP(I+1) 


IF(BB • СЕ • 1,0) СО ТО 100 


15 





АРНВ= AS ІМ(ВВ) 


08 = (СОЅ (АРНА) -~ СОЅ(АРНВУ) / (Р = АВ(1)) 


СОТО 10 

DS =СО5(АРНА) /(Р* АВСТ)) | 

$=$+2.0* DS Е ` 
CONTINUE 

FAP=DELTAO- S 

RETURN 

END ` 

SUB PROGRAM TO COMPUTE TRAVEL TIME 
OF THE REFLECTED WAVE 


339» | 





A 


10 


20 


SUB ROUTINE ВЕЕТ(М, А, Т) 
DIMENSION THKNES(20), VP(20), АВ(20), UV(20) 
COMMON/TV/THKNES, VP, AR, UV 
P=SIN(A)/VP(1) 

Т-0.0 

DO 207-1,М 

IF(UV(J) .NE .0.0) СО ТО 10 
B=P*VP(J) 

DT=THKNES(J)/(VP(J)* SQRT(1.0—- B * B)) 
GO TO 20 

APHA=ASIN(P + VP(J - 1)) 

APHB= ASIN(P* VP(J +1)) 


HA=TAN(APHA/2.0) 


НВ=ТАМ(АРНВ/2.0) 

DT = ALOG(HB/HA)/AR(J) 

T=T+2.0* DT 

RETURN 

END 

SUBPROGRAM TO COMPUTE TRAVEL TIME 
OF THE 

REFRACTED WAVE 

SUBROUTINE RFAT(N, А, T) 

DIMENSION ТНКМЕ$(20), УР(20), АВ(20), UV(20) 
COMMON/TV/THKNES, VP, AR, UV 
ALPHA=A 

P=SIN(ALPHA)/VP(1) 

Мі-М-і 

CALL REFT(N1, ALPHA, T1) 

В=Р*+УР(М- 1) i 

IF(B。 GE .1.0) GO TO 10 

ALPHB= ASIN(B) 

НЕ=1.0/ТАМ(АГРНВ/2.0) 
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= DT=ALOG(HF)/AR(N) 
СО ТО 20 

10 DT=0.0 

20 Т-Тіғ20» DT 
RETURN 
END 


( 二 ) J| K 83k 2 ЖОЙ ИО НЕН 


本 程序 利用 观测 的 反射 波 走 时 反 演 地 壳 结 构 。 假 定 层 状 介 质 
的 分 界面 是 水 平 的 ， 对 各 个 反射 界面 自 上 而 下 逐 层 进行 计算 ， 可 
以 获得 各 层 的 厚度 hh; ЖЕУ. 计算 过 程 及 框图 已 在 前 面 讨 论 
іі, Ж ЖӨЖ. | | 
(一 ) 主要 标识 符 及 子 程序 说 明 
THKO(20) 一 一 层 状 介质 初始 模型 的 各 层 厚 Eh (最 多 计算 
20 层 ) 。 | 
УРО (20) 一 一 初始 模型 各 层 速度 了 ,。 
DLT(100) 一 一 实测 走时 曲线 各 点 震中 距 ( 最 多 100 个 观测 
әр 
OBS(100) 一 一 实测 走时 曲线 各 点 观测 走时 。 
F(100) 一 一 由 初始 模型 计算 的 理论 走时 。 | 
VH (40) 一 一 由 各 层 参 数 V; 及 h 组 成 的 参数 数组 ， 奇数 部 分 
为 VY ;， 偶 数 部 分 为 h ;。 
L1 (40) 表示 在 反 演 过 程 中 参数 是 否 修 定 的 数组 。 Е 
1 第 工 个 参数 要 修 定 ， 
101) = ( 


| 0 第 工 个 参数 不 修 定 。 
L2 (20) 一 一 表示 某 层 为 常 速 层 还 是 速度 梯度 层 。 
[1 $ ТЕЖЕ ВЕЕР, 


【0 第 I 层 为 常 速 层 。 





1.2 (1) - 
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对 一 一 地 党 模型 的 分 层 数 。 
M 一 一 反射 波 走时 有 曲线 的 测 点 数 。 
V {+177 V; -1 


AR(20) 一 一 速度 梯度 层 的 梯度 值 a; = = 
АР1 (100 ) 一 一 相应 于 各 测 点 震中 距 相 应 的 射线 初 ЛАЙ 


PREA 一 一 友 代 法 求 根 的 初 值 。 
Jacobi 和 矩阵 中 的 微分 系数 3 әр ў 


TD(100) 一 一 计算 Jacobi 和 矩阵 的 工作 单元 。 

DEF(100) 一 一 观测 到 时 与 理论 到 时 残 差 Ati。 

AA(40，40) 一 一 正规 方程 组 系数 矩阵 A74 中 的 各 元 素 。 

G(40) 一 一 正规 方程 组 右 端 项 A7At 各 元 素 。 

DX(40) 一 一 参数 修正 量 AX 各 元 素 。 

OLDX(40)，P (40) 一 一 工作 单元 。 

ВЕЕТ. (Хх) 一 一 计算 反射 波 理论 走时 的 子 程序 ， 虚 元 X 为 层 
参数 (速度 及 厚度 )。 = 





АС(100, 100) 





FAP(A) 一 一 根据 已 知 居 中 距 求 反射 波 初始 入 射 角 а 的 函数 


F(o) 的 子 程序 。 虚 元 4 表示 入 射 角 。 





ЖЕН. Ёл Ж) Ж o 
DERIVE (X) 一 一 形成 Jacobi 矩阵 (微分 系数 矩阵 ) 的 子 程 
序 。 虚 元 X 为 层 参 数 。 


CALPHI(PHD 一 计算 残 差 了 方 和 的 了 程序 。 虚 元 PHI 为 


走时 残 差 平方 和 > At. 


LDLT(N, AP,B,X,ISW) 一 一 用 改进 平方 根 法 (Cholesky 
法 ) 解 线性 方程 组 的 子 程序 。 虚 元 的 意义 为 ; 





А с оњанин н н Jm- әз А 


Parme = 


А -方程 组 的 系数 年 阵 ; 


PP 一 一 工作 单元 ; 
8 一 一 方程 组 的 右 端 系数 项 ， 
ха; 





ISW -一 - 若 方 阵 A 非 对 称 正定 或 奇异 , 解 方 程 失 败 , ISW = 0， 


并 返回 。 否 则 ，ISW =1， 按 正常 计算 步骤 算出 结果 。 


MAQT(X,PLMDO,KENN,S,ITER,N1) 一 一 用 MH 尼 最 小 


ЖЕЖ H АО ЛНУ УЖЕ. 各 感 元 的 意义 为 ， 


N1 一 一 待 修改 和 的 参数 个 数 ， 
PLMDO 一 一 阻尼 杀 数 p 的 初 值 ; 
KENN- 一 一 整 型 量 ， 用 以 标志 搜索 目标 函数 极 小 时 迭代 过 程 


结束 的 原因 。 其 中 


Ж; 


效 ， 


ооо 


KENN= 0 和 迭代 过 程 在 满足 精度 要 求 时 结束 
KENN = 1 友 代 过 程 已 达到 最 大 次 Ж (本 程序 取 30 次 ) 而 结 


КЕММ = -1 标志 对 入 搜索 SCx +ААх) 极 小 的 过 程 已 失 


KENN= -2 标志 求 X 时 解 正定 对 称 方程 组 时 失效 。 

s 一 一 量 标 函数 ( 残 益 平 方 和 和 ) 的 值 。 

[ТЕК КАЖ. НЫ, 

(2) FORTRAN-77 语 言 源 程序 ， 
ТНІ5 PROGRAM IS DESIGNED FOR TRAVEL 
TIME INVERSE OF 
REFLECTED WAVE. ІМ MULTI-LAYERS 


DIMENSION ТНКО (20), VPO(20), УН(40) 
COMMON/NN/N, M 
СОММОМ/О/ОВ5 (100) 
СОММОМ/ЕЕ/Е (100) 
COMMON/D/DLT(100) 
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СОММОМ/141,/1,1(402, L2(20) 
PRINT * ,’РАТА М, М, DLT, OBS, THKO, УРО, 
11 AND L2 АКЕ WANTED NOW’, 
PAUSE 1 
READ +, М, М 
РАОБЕ 2 
READ(*, +) (DLT(I), 1=1, М) 
PAUSE 3 
КЕАЮ( +, *) (ОВ5(Г), 1=1, М) 
PAUSE 4 | 
READ(*, *)(THKO(D, І-1, М) 
PAUSE 5 
ВЕАО(*, *)(УРОСГ), І-1, №) 
PAUSE 6 
ВЕАО( *, *)XL1(I), Ізі, 2*М) 
PAUSE 7 
READ(* *)XL2(I), I=1, М) 
DO 10 I=1, N 
VH(O2* 1-1) = УРОСІ) 
10 УН(2* І) = ТНКОС(І) 
‚ N1= 0 
DO 20 I=1, 2*N 
ІЕ(І.1(1),МЕ,00М1-М1%1 
20 СОМТТМОЕ | 
CALL МАОТСУН, 1.0, КМ, 5, ІТЕ, М1) 
WRITE(* 30)КМ, $, ITR 
30 ЕОВМАТ(//,10Х“ТНЕ COMPUTING PARAMETER 
5>, | 
//,5X,'KN=”,I2°5X, 'S=”,F10.8,5X, ITR = ”,13) 
'WRITE(*, 40)(DLT(I), ЕСІ), ОВ5(1), I=1,@ М) 
40 РОВМАТ(/, 5Х,'0 = ',Е8,3, 8X,”'TF =”, F8.4,8X, 
TO =”, F8.4) | | 
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` ` ——— соу тч тет — GO 


50 


60 


10 


20 


WRITE(*, 50)(VH(2* 1-1), УН(2% 1), Ісі, М) 

ЕОВМАТ(//, 10X, “УІМ-”; F6.3, 10X, "НІМ”-, 
F8,3) 

WRITE (+, 60)(VPO(I), THKO(I), I=1, N) 

ЕОВМАТ(//, 10X, 'УРВ=’, F6,3, 10X, "НРВ = ', 
Е8,3) 

$ТОР 

END 


SUBROUTINE REFL(X) 
DIMENSION Х(100), АР1(100) 
СОММОМ/ММ/М, M 
COMMON/T/THKS(20) 
COMMON/D/DLT(100) 
COMMON/V/VP(20) 
COMMON/F F/F(100) 
COMMON/PP/PREA 
COMMON/DT/DLTO 
COMMON/GR/AR(20) 
COMMON/LL/L1(40),，L2(20) 
DO 101=1, N ` 
VP(I)=X(2* 1-1) 
THKS(I)=X(2* Г) 

Н0- 0,005 

VPM = 1.0 

DO 20 J=1, N 

ІЕ(УР(Ј), СТ,УРМ)УРМ = VP(J) 
CONTINUE 

AP0= АЅІМ(УР(1) /УРМ) 
PREA = 0,01 

DO 100 1=1, М 
DLTO=DLT(I) 
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ІЕСРВЕА + НО), СЕ, АРО) Но = Но/10, 0 
CALL ROOT (H0, 1Е-4, АРКГ)) 
PREA = АР1(1) 
P= ЅІМ(АРІ(1))/УР(1) 
Е(1)=0,0 | 
DO 30 J =1, N 
ІЕ(1,2(1),МЕ,00 GO ТО 40 
Н-Р«ҰУР(У) 
IF(H.GT,1.0) СО ТО 100 
C = SQRT(1.0-H < H) 
DTM = ТНКЅ(Ј)/(УР(У) • С) 
СОТО 30 
40 PV=P.VP0J) 
РУ1-Р» VP(J + 1) 
ТЕ(РУ.СТ.1.0.ОВ.РУ!.СТ.1.0) GO ТО 100 
АРА = ASIN(PV) 
АРВ = ASIN(PV1) 
НА=ТАМ(АРА/2.0) 
НВ-ТАМ(АРВ/2,0) | 
DTM = АГОС(НВ/НА)/АВ(Ј) 
30 Е(1) = Е(1) +2,0* РТМ 
100 CONTINUE 

RETURN 

END 


SUBROUTINE ROOT(H, Е, RT) 
СОММОМ/РР/РВЕА 
W=0.0 
X=PREA 
Е0= FAP(X) 
40 Х-Х-“Н 
Е1= БАР(Х) 
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10 


70 


50 
60 


20 


30 


101 


ГЕ(Е1/Е0.СТ.0.0) СО ТО 101 


ЕА= ЕО 
ЕВ= Е1 

А-Х-Н 

B=X | 
C=B-(A-B)* ЕВ/(ЕА- ЕВ). 
IF(W)50, 70, 50 

W=1.0 

GO TO 60 


IF(ABS(C1-C), LT, Е) GO ТО 30 


Ci=C 
ЕС = ҒАР(С) 


IF(FC + ҒА, СТ, 0,0) СО ТО 20 


ЕВ= ЕС 
В= С 

СО ТО 10 
ЕА = ЕС 

А = С 

СО ТО 10 

ЕТ = С 

СО ТО 102 

Е0= F] 
ІБСХ-10,0240, 102, 102 
RETURN 

END ` 


FUNCTION БАРСА) 
COMMON/NN/N, м 
COMMON/T/THKS(20) 
COMMON/V/VP(20) 
COMMON/DT/DLTO 
COMMON/GR/AR (20) 
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20 


10 


100 


20 


COMMON/LL/L1(40), L2(20) 
ALP=A 

P=SINCALP)/VP(1) 

5-0, 

DO 100 1=1, М 

ТЕ (L2(I).NE.0) СО ТО 20 
D=P*VP(I) 

IF(D,GT.1.0) GO ТО 100 
DS=THKS(I)* D/SORT(1.0-D + D) 
GOTO 10 

АВ(Т) = (УР‹1 +1) -УРСЕ))/ТНК$( Г) 
PV= Px VP(I) 

PV1=P*VP(I+1) 
ІЕ(РУ,СТ,1,00,ОВ.,РУ1,С6Т,1,0) GO ТО 100 
АРА = ASIN(PV) 

АРВ = ASIN(PV1) 

05 = (СОЅ(АРА) – COS(APB))/(P * AR(I)) 
$=5+2.0* DS 

CONTINUE 

ЕАР=5- ОТТО 

RETURN 

END 


< 


SUBROUTINE LDLT(N, А, P, В, X, ISW) 
DIMENSION А(40,40), Р(40), B(40), X(40) 
DO 5 І=1, N 

DO 5 J=1, I 

W=A(J, 1) 
ІЕСІ-73)10, 20, 10 
IF(J.EQ.1) СО ТО 30 
DO 25 Г=2, J 
K=J-L+1 
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Te 


Y= А(І, К) 
Z=Y + РСК) 
A(I, K)=Z 
25 W=W-Y*Z 
30 IF(W.NE.0.0) GO ТО 35 
ISW=0 
RETURN 
35 P(I)=1.0/W 
GOTO 5 
10 IF(J.EQ.1) GO ТО 45 
DO 40 L=2, J 
K=J-L+1 
40 W=W- A(I, K)* A(J, K) 
45 АІ, J)=W 
“5. CONTINUE / 
рО 60 1=1, М 
Y=B(I) 
IF(I.EQ,I) GO ТО 60 
DO 65 L =2, І 
K=I-L+1 
65 Y=Y- A(I, К)•Х(К) 
60 X(I)=Y | 
РО 100 L=1 М 
І-М-І,-1 
Y=X(I)=*P(I) 
ТЕ(Т.ЕО.М) GO ТО 100 
ІА1-І-1 
DO 70 К-ІА1, М 
70 У=У-А(К, Г)» X(K) 
190 Х(І)-Ү 
ISW=1 
RETURN 
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END 


SUBROUTINE DERIVE(X) 
DIMENSION X(100)，TD(100) 
COMMON/NN/N; м | 
СОММОМ/ЕЕ/Е(100) 
СОММОМ/АСС/АС(100, 100) 
СОММОМ/11,/1,1(40), 1.2020) 
CALL REFL(X) 

DO 10 I=1, M 
10 TD(I)= ЕСГ) 
К1=0 
DO 101 І-1, 2М 
І Е(І1(1)0,Е0,00 СО ТО 100 
К1=К1+1 
Х(1)=Х(1)+1Е-5 
CALL ВЕЕГ(Х) 
X(I)=X(I)-1E-5 
DO 105 J =1, M 
105 AC(J, K1)=(EF(J)-TD(J)y/1E- 5 
100 CONTINUE 
101 CONTINUE 
RETURN 
END 


SUBROUTINE CALPHI(PHI? 
COMMON/NN/N, M 
СОММОМ/0/0В5(100) 
СОММОМ/ЕЕ/Е (100) с 
СОММОМ/рЕ/рЕЕ(100) 
РНІ-0 

DO 100 Т=ь М 
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РЕЕ(1) = OBS(I)- ЕСІ) 

РНІ = РНІ + ОЕЕСІ) * +2 
100 СОМТТМОЕ 

КЕТСЕМ 

END 


SUBROUTINE MAQT(X, PLD0, KN, $, 1ТЕ, ND 
DIMENSION Х(40), АА(40, 40), 6(40), DX(40), 
OLDX(40), Р(40) | 

COMMON/NN/N, M 
COMMON/ACC/AC0100, 100) 
COMMON/DE/DE Е (100) 
СОММОМ/ЕЕ/Е(100) 
COMMON/LL/L1(40),L2(20) 
ІТЕ-0 
PLD= PLDO 
15В-1 
KN=0 
GO TO 1000 
1111 PHIO=PHI 
10 ITR=ITR+1 
WRITE(* ，11)ITR，PLD | 
11 FORMAT(/, 2X, ‘ITR=’, 13,10X,’PLD = ',Е6,2) 
IF(ITR.LE.30) GO ТО 30 
KN=1 | 
GO TO 10000 
30 CALL DERIVE(X) 
DO 60 I=1, N1 
HFE=0.0 
DO 70 К=1, M | | 
70 HF=HF+AC(K, I)* DE F(K) 
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90 


80 


, 60. 


100 


120 


130 


160 


С(1) = НЕ 

ОХ(1) = НЕ 

рО 80 K= І, МІ 

НЕ = 0,0 

DO 90 J =1, м 
НЕ-НЕ-АС(У, 1) * АС(Ј, К) 
АА(І, К) = НЕ 

ААК, 1) = НЕ 

АА(І, І) = АА(І, і) +PLD 
CALL LDLT(N1, АА, Р, С, ОХ, ISW) 
IF(ISW.EQ.1) СО ТО 100 
KN= -2 | 

СО ТО 10000 

Кі-0 

DO 120 І-і, 2»М 


 OLDX(I)=X(I) 


ІЕ(І,1(1),Е0.0,0060 ТО 129 
К1=К1+1 

X(I)=X(I)+ DX(K1) 
CONTINUE 

ISB=2 

СО ТО 1000 


WRITE(*, 20)РНІ, РНІО 
FORMAT(/, ШХ, *PHI +’, F14.8,5X, "РНІО-”, 


Б14,8) 

ІЕ(РНІ,СЕ,РНІО) СО ТО 130 
C=1.0 | 

СО ТО 140 

GDX=0.0 

рО 160 1=1, N1 

GDX= GDX+G(I)* DX(I) 
CONT INUE 
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180 


190 


3333 


220 


210 


140 


230 


1000 


$000 


—— Y 
ee—— 


C=GDX/(PHI- PHIO+2.0* GDX) 
L=0 

L=L+1 

К1=0 

РО 190 1=1, 2+ М 

І Е(І,1(1).Е0.00 СО ТО 190 
КІ-Кізі 

X(I)=OLDX(I)+C* DX(K1) 
CONTINUE 

GO TO 1000 

IF(PHI,LT.PHIO) GO ТО 140 
IF(L.LT.7) GO ТО 210 
KN=-1 

DO 220 I=1, N 

X(I)=OLDX(I) 

PLD=1.5* PLD 

GO TO 10 

C =,5* C 

GO TO 180 

НЕ=0.0 

HZ= 0.0 

DO 230 І-і, М1 
НЕ=НЕ+АВ$(С » DX(I)) 
HZ=HZ+ABS(X(I)) 
I1F(HF.LT.1E-3* HZ) СО ТО 10000 
TF(PHI.LT.IE-3) СО ТО 10000 
РНІО-РНІ 

PLD=0.7* PLD 

GO TO 10 

САШ, REFL(X) 

УУЕІТЕС», 50000(Е(І), Ісі, М) 
ЕОВМАТ(/1Х, 10Е7,2) 
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6000 


10000 
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WRITE( +, 6000) (Х(І), І-1, 2% М) 
FORMAT(/, 5Х, “ХІ-”, 2Ғ18,7) 
CALL CALPHI(PHI) 

GO TO(1111, 2222, 3333), ISB 
S=PHI 

RETURN 

END 


第 七 章 “ 用 地 震 体 波 反 演 地 
球 内 部 速度 分 布 


地 储 学 经 典 问 题 之 一 是 由 地 震 体 波 的 走时 友 演 地 球 内 部 的 迷 
度 分 布 。 在 本 世纪 初 ， 由 于 地 人 震 台 网 的 建立 和 观测 资料 的 逐步 积 
Ж, 先后 由 Oldham (1906)，Z5eppritz (1907), Herglotz 
(1907), Wiechert (1910), Mohorovicič (1909) 及 Gutenberg 
(1915) 等 人 作 了 重要 的 奠基 工作 ， 初 步 建 立 了 地 球 内 部 层 状 结构 
模型 。 到 了 本 世纪 四 十 年 代 ， 由 于 Jeffres K Bullen 等 人 的 工 
作 ， 得 以 建立 起 至 今 还 适用 的 地 球速 度 模型 。 五 十 年 代 以 来 ， 由 
于 地 震 台 网 的 加 密 和 对 地 下 核 爆炸 观测 工作 的 开展 ， 世 界 许多 地 
区 通过 体 波 走时 研究 ,发 现 地 慢 内 速度 分 布 有 较 大 抑 横 向 变化 。 几 
个 主要 特征 层 ( 低 速 层 ， 速 度 梯 度 层 ) 的 深度 和 速度 值 各 地 区 也 有 | 
不 少 差异 。 APR ULA ЗЕ ЖК РИКИ, ЖЕЛЕ Iz L y bs 
的 结构 特征 提供 了 重要 资料 。 


这 一 章 ， 我们 讨论 用 PP 波 走时 反 演 上 地 模 速 度 分 布 的 计算 问 
题 © | 


87-1 球 对 称 分 层 介质 中 的 地 震 射线 


”我们 考虑 一 个 球 对 称 地 球 模 型 ， 其 内 部 速度 分 布 是 地 球 半 径 
的 函数 。 
为 了 推导 地 震 射 线 的 路 径 ， 先 来 考虑 一 个 均 5) 同心 球 层 模 
型 ， 如 图 7-1-1 所 示 。 设 各 层 的 波 速 分 别 为 Yi1，VYz，…。 由 Po 点 
发 出 的 地 震 射 线 在 各 层 之 间 的 界面 上 将 发 生 折 射 。 对 于 第 一 个 分 
2355: 


界面 ， 由 Snell 定 律 有 : 
sini, — Sina _ 
“үу ү, - (7-1,1) 





图 7-1-1 


在 三 角形 OP1P:z 中 应 用 正弦 定理 ， 
Sina _ Sini: 
Ta Fi (7-1.2) 


由 (7-1,1) 及 (7 一 1.2) 式 消去 sina， 则 得 


rasinis __ тәбіпіс 


Vi у, _ ° (7-1.3) 
РР 可 以 配 出 
лы . (7-1.4) 


这 是 球 对 称 层 状 介质 中 Snell 定 律 的 形式 。 若 球 层 划分 无 限 增 | 
加 ， 则 速度 随 + 连续 变化 ，V = V (r), 这 时 射线 是 一 条 光滑 的 连 
续 曲 线 ， 仍 有 如 下 关系 : 

356» 





rgini кобіпіб _ | 

VO) У СР (7-1.5) 
қы НВР, 1, КУН АЛА ЖЕ, mE 
7-1-2 所 示 。 由 于 ro.ie、V 对 于 某 一 射线 而 言 是 常数 ， 因 此 pE 
是 常数 ， 称 为 射线 参数 ， 
其 单位 为 秘 / МЕС 
取 0.0174533 р, j 单位 
为 秒 / 度 , 若 取 (0.0174533 
/111.195) p, 其 单位 则 
为 秒 /公里 ] 。 这 就 ЖЖ 
对 称 连续 介质 中 的 折射 定 
律 。 

НИ 7-1-2 见 ， 当 射 
线 处 于 最 低 点 M 时 (对 应 
的 半径 r 为 最 小 )， 其 入 
ыл (折射 角 ) iz А Р 
90°, WA 











(7-1.6) 





Ғи 

V (rx) т 

因此 ， 对 于 一 定 的 速度 分 布 的 球 对 称 介质 ， 射 线 穿 透 的 深度 

取决 于 射线 参数 p。 换 言 之 ， нм вт, Ж 

深度 也 随 之 固定 下 来 。 

”下 面 来 推导 射线 方程 ， 即 基 射线 通过 球 对 称 介质 的 路 径 及 

走时 ， 对 于 图 7-1-2 中 的 射线 EMS, ЖЕН 线 上 无 限 相 邻 两 点 
4A.B， 令 4B 段 射线 弧 长 为 gs， 不 难看 出 有 


ds? =dr? 5,7407, | (7-1.7) 
及 віпі= "00, созі= 人 . (7-1.8) 
4357» 








- ——— T 


由 (7-1。8) 式 得 


48- +8177 _ dr. | 





cosi r F ) (7-1,9) 
再 由 (7-1 .5) 式 得 ， sini = "чэ СЕЗ 
_ D I | 
46 = Тасы — r. (7-1.10) 
(р) Р 


这 就 是 连续 介质 中 的 射线 微分 方程 。 正 负 号 对 应 于 射线 最 低 
АМЕА RE., H EMREN, MS 段 到 正 号 。 对 (7-1.10) 
式 积 分 得 出 8 与 r 的 关系 

М .bdr _ | 
; 2 
olr) = + һе ағы | (7-1,11) 


这 称 为 射 线 方程 。 其 中 rw 满足 p= ү, 





9 ще, j, Olr) 





= 0， 即 g 角 是 从 射线 最 低 点 处 起 算 。 
现在 来 推导 走时 方程 。 地 震波 由 4 传 到 В 所 需 的 时 间 为 《图 
2-1-2) | 


45 


= (7-1.12) 


将 (7-1.7) 式 ds 代入 上 式 ， 并 考虑 到 (7-1.10) 式 ， 可 以 得 
二 一 一 -Ts 一 一 一 | 
КАП шыңға (7-1,13) 
(г) 
如 果 令 图 7-1-2 中 整个 射线 ES 对 应 的 弧度 和 角 为 A， 则 对 


(7-1 0 及 (7 1.13) 分 别 积分 得 
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„К | ЕЕ (7-1,1 
гез] rdr ©. 


Г у? Шын (Cr) 


上 式 中 R 为 地 球 的 平均 半径 。 这 就 是 地 震 射 线 在 球 对 称 连续 介质 
中 的 走时 方程 。 它 们 均 以 射线 参数 р 为 参数 。 可 见 ， 对 于 一 定 入 
射 角 为 ; (其 射线 参数 p 也 随 之 确定 ) 的 射线 ， 其 传播 距离 A 及 走时 
T 均 是 确定 的 。 

为 了 能 从 地 面 实测 的 走时 曲 线 来 求 出 射线 参数 p 值 ， 现 在 来 
研究 走时 曲线 的 斜率 dt /4 A Б 
射线 参数 p 的 关系 。 如 图 7-1-3 
所 示 ， 设 有 出 已 出 发 ， 在 同一 
平面 内 的 两 条 相 邻 射线 EA K 
EB、AB 之 间 的 距离 为 44( 以 弧 
Елім), АА 为 波 前 。 经 
过 GT 时 间 后 ， 波 前 传 至 了 3 处 。 








图 7-1-3 设 地 表 处 的 波束 为 Yo， 则 有 - 
А'В = ds= Уват. (7-1.15) 
由 图 7-1-3 几 何 关 系 可 知 | 
а... | 
| Кади ` | (7-1,16) | 
将 (7-1.5) 式 及 (7~1， 15) 式 代入 刚 得 
aT _ R sinio _ 
ЧА V (7-1.17) 


由 此 可 见 ,走时 曲线 上 某 一 点 的 斜率 ат/аА (ARBE, 单位 
为 秒 / 度 或 秒 / 绝 度 ) ,就 等 于 到 达 该 点 射线 的 射线 参数 p。 这 是 一 
个 很 重要 的 结果 。 这 意味 着 从 实测 的 走时 曲线 上 可 以 直接 求 出 参 
数 p， 这 对 今后 计算 很 有 用 。 _ 
再 者 ， 由 图 7-1-3 可 知 
43594 


МА. у, 为 地 震波 的 视 速 度 ; 





d 
Ф -у ”为 地 震波 的 真 速度 。 
考虑 到 (7-1.16) 式 得 
sinio = у N ((-1,18) 


上 式 表 明 ， 地 震波 的 视 速度 取决 于 射线 的 入 射 角 го. ЖАН 
视 速 度 与 真 速度 关系 的 (7-1.18) 式 ， 又 称 为 Bendoff 定 律 。 


8722 地 球 内 部 的 速度 分 布 对 地 震 射线 及 
| | 走时 的 影响 | 


地 球 内 部 体 波 传播 的 路 径 基本 取决 于 介质 的 速度 分 布 状况 。 
下 面 ， 我 们 要 讨论 几 种 典型 的 速度 变化 情况 对 地 震 射线 及 走时 的 
影响 。 识 别针 线 和 走时 的 这 些 特征 ， 对 反 演 地 球 内 部 速度 分 布 是 
有 用 的 。 

一 般 说 来 ， 要 使 球 对 称 地 球 中 的 射线 返回 地 面 ， 其 内 部 速度 


分 布 必须 满足 条 件 
у 
аг r 


下 面 分 别 几 种 情况 进行 讨论 : 
| (一 ) 速度 连续 变化 的 情况 
(1) r< 这 时 速度 随 深 度 增加 (半径 7 减 小 ) 而 增加 ， 


每 一 条 射线 都 有 一 个 最 低 点 ， 而 且 都 是 向 上 弯曲 的 (7-2-1(a))。 
因此 全 部 射线 都 出 射 到 地 表 。 其 走时 曲线 如 图 7-2-1(b) 示 。 . 


(2) =o 这 时 速度 为 常量 V ,射线 为 直线 (7-2-2(a)) 


(7-2.1) 


360% . 


<> а 





(7-2,2) 


因而 老 时 曲线 呈现 为 IE ЗК 曲线， 如 图 7-2-2(b) 示 。 


T 





图 7-2-2 


з) “А >о 这 种 НЕН АННА B: Je A TOR 
小 。 若 其 减 小 率 符合 条 件 (7-2.1) ， 则 НЕА H TER НИ 
| ?361»% 


- ` А u В , 
ымыы н ж а сс т 


ЖИВ, ЕЗІН ОН ЛЫҚ) 
| 7-2-3(а) жо 





Е 7-2-3 


当 速度 减 小 率 不 满足 (7-2.1) 式 时 ， 除 i。= 90° 的 射线 沿 地 面 
传播 外 ， 其 余 全 部 射线 呈 螺 旋 线 着 入 地 心 ， 如 图 7-2-4 所 示 。 

对 于 真实 的 地 球 来 说 ， 其 
速度 分 布 总 是 符合 4 <o, M 
随 深度 而 增加 的 。 因 此 ， 总 能 
“观测 到 地 震波 , АЩ Ж ЕГШ 

РЕТТЕН ГЕ 
图 7-2-4 оо 数 的 p 信 区 4 增 大 而 不 断 减 小 。 

由 实测 走时 曲线 研究 表明 ， 尽 管 地 球 内 部 介质 波 速 随 深度 增 
加 而 变 大 ,但 仍然 存在 许多 速度 异常 带 及 速度 间断 曾 。 下 面 讨论 
这 些 异常 带 及 间断 面 对 射 线 及 走时 的 影响 。 


(=) 低速 层 及 低速 间断 面 情况 
‚ 如 图 7-2-5 所 示 ， 低 速 层 是 指 满足 下 列 速度 分 布 关 系 的 层 ， 
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ДУ (r) <V) . ш Ксү>ү,, r <°; 


dr r | 
ЕЕ ЕЕ > > г>, 


х = i С (7-2,3) 
这 意味 着 在 x， Энни, т 进入 该 
层 的 射线 不 满足 (7-2,1) 式 ， 故 折 向 地 心 。 如 图 ?-2-5(a) Ж, 
射线 EA 的 最 低 点 为 M, ғы= ғ}, ХЕЛ ИИН, 则 由 
于 低速 层 的 影响 而 向 下 转折 。 EAN RF ARE r, 到 达 
= rs 处 才 出 现 最 低 点 ， 然 后 向 上 折 回 到 地 面 的 B 点 。r ,满足 关系 


V(ra) VOD) 
КОЛ 222 (7-2.4) 


这 时 在 地 面 上 АВ В 1 
- 收 不 到 地 震波 而 成 为 影 区 。 对 
应 的 走时 晶 线 上 出 现 间断 如 图 
7-2-5(b) 示 。 | 

ritr HB E FRE 
T со 〈 正 的 速度 梯度 ) ,这 


个 间断 面 称 为 低速 间断 面 。 这 
时 ， 除 直达 波 外 . 还 将 在 界面 





<S una 
7-2-5 = BC 区 仍 为 影 区 。 如 图 7-2-6 
ж» 


(= ) Wa pawana 


| юе, Br, EJE: ВЕРЕ ВЕНЕ k t ВОЕН 
些 ， 如 图 7-2-7 示 。 速度 变化 关系 满足 下 式 | 
dV (г) AV (r) | 





">,, <9- (7-2,5) 


r <r; 








г» <r <ri 
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3 
5% 

<“ 
% 


A © 
б С 
cr 








图 7-2-6 图 7-2-7 


因而 ， 在 高 速 层 r, 至 r。 之 间 的 射线 曲率 较 大 。 这 样 ， 会 使 射 
线 到 达 地 而 发 生 密集 的 更 和 象 ， 甚 至 汇集 到 同一 所 出 射 ， 如 图 7-2- 
7(a) 示 。 汇 集 处 对 应 的 走时 曲线 曲率 突然 增 大 以 至 出 现 角 点 。 如 
图 7-2-7(b) 示 。 | 

当 r 与 rs 之 间 速 度 随 深度 增 大 增加 得 更 快 时 ( 即 有 更 高 的 速 
度 梯 度 )， 会 发 生 射 线 的 交叉 如 图 7-2-8(a) 示 。 即 入 射 到 更 深 处 
的 射线 返回 地 面 出 射 点 的 震中 距 反而 变 小 。 这 时 ， 走 时 直线 出 现 
逆 进 现象 。 如 图 7-2-8(b) 中 的 4B 段 。 

高 速 闷 断 面 是 指 在 间断 面 下 
层 的 波 速 大 于 上 层 的 波 速 ， 在 间 
断面 处 波 速 V 有 一 突 增 。 现 在 仍 
讨论 间断 面 的 上 方 和 下 方 均 有 
«УС <o 的 情况 。 射 线 及 相应 
的 走时 上 曲线 如 图 7-2-9 所 示 。 这 
时 ， 波 的 回 折 和 逆 进 的 情况 更 为 
复杂 如 图 7-2-9(a)。 图 7-2-9(b) 
中 OA4 段 为 直达 波 ，GA4 段 相当 于 





— w— a чарс 








反射 波 ，BD 眉 相当 于 折射 波 ，B 点 相当 于 临界 点 。 





87-3 地球 内 部 速度 的 反 演 


用 体 波 走时 曲线 反 演 地 球 内 部 速度 分 布 的 传统 方法 是 
Herglotz-Wiechert 方法 。 这 是 考虑 一 个 球 对 称 地 球 模型 ， 速 
度 V 仅 是 地 球 半 人 径 + 的 函数 ， V (r)/r 随 着 深度 增加 (半径 7 减 小 ) 而 | 
增 大 。 在 满足 上 述 条 件 时 ， 可 以 用 此 方法 进行 тия. 
由 (7-1.6) 及 (7-1.17) 式 可 以 分 别 重 写 为 


p= V VOJ” i 
(7-3.1) 
. ат | 
| Рал 
式 中 rx 是 参数 为 p 的 射线 入 射 到 地 下 最 深 处 的 地 球 半径 。 另 一 方 
ШЇ, р 义 等 于 观测 走时 曲线 上 该 射线 地 面 出 射 点 处 的 斜率 ， 即 射 
线 参数 p 可 以 由 走时 曲线 上 求 得 。 由 上 式 不 难看 出 ， 如 果 能 求 出 
某 一 一 条 射线 穿 透 最 深 上 所 的 半径 rus 则 速度 V (r x) 也 随 之 计算 出 


来 。 对 走时 曲线 上 不 同 的 距离 A 进行 计算 ， 就 可 以 得 到 地 球 内 部 
“365。 








不 同 深度 的 速度 二 Жағасы КЕЕ ыз о, 
(7=1. 14) 中 的 第 一 式 中 的 被 积 函 数 及 积分 限 光 ғы, H 
以 通过 它 来 计算 rw。 ЖЕ | | 


ус Шш 





于 是 (7-14- 14) 第 一 式 写 为 
Ne | 
| | dinr но о 
a=2f В dn (7-3,2) 
Nar У nè- p? | ат 
_ = rv 
其 中 По = ° пир Р. 


R 为 地 球 平均 半径 ，V 为 地 球 表面 波 速 
对 (7-3-2) 式 两 边 均 乘 以 ， | 





| ` _ dp ___ 
'Ë 4” р? - Ё? 


28 


dlnr ` 
| ° аар, |” рар. 0" — dn ат. 
P vB- 名 ір V nt- p? 
其 中 E= ri/y(ri)，ri 为 任意 半径 。 上 式 右 端 一 致 收敛 。 由 图 
7-3-1, 改变 一 重 积 分 秩序 ， 上 式 可 化 为 


(1% (n° 





Je dn 





-366° 





三 一 рар - м 
£ V (m° - pš) (p° - #2) 2 
所 以 (7 -3.3) 式 可 以 简化 为 


Í — Adp К а" dlnr 








R (7-3.4) 


上 式 左 端的 积分 为 


j Adp =[ Да(р/&) ` 
Е Мор°— ё? А v (р/&)2-1 








ер = 10 
-| | Ad (св-* Z) 


р= , 
-} ал. 
р= & fa (E) 
ERR p= 四 时 ， 射 线 最 低 点 的 半径 为 R， 即 位 于 地 表 ， 这 相当 
于 4= 0 的 情况 。 而 当 = 687, сь (2) = 0， 故 上 式 右 端 第 一 项 
为 零 。 由 此 (7-3 .4) 式 可 与 为 | | 





| -Ach-lD 
Š 





R :1 СА .| КА | 
Іп =-= .ch-12 А. = (7-3,5) 
г, Я p (A 24 


这 就 是 所 谓 Herglotz-Wiechert 公式 。 由 式 可 见 ， ян 
观测 的 走时 曲线 用 数值 微分 法 求 出 相应 的 射线 参数 曲 线 p (A), 
则 对 于 任意 距离 A1， 用 (7-3 .5) 式 右 喘 计 算 积分 值 ， 从 而 求 得 其 
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对 应 的 射线 穿 透 地 球 内 部 的 最 深 点 的 半径 Pr， 以 及 该 点 的 速度 
Yi。 这 样 便 获得 地 球 内 部 速度 分 布 情 况 。 


87-4 速度 反 演 的 具体 计算 方法 


+ и 


下 面 讨论 用 Hersglotz-Wiechert А АЕ НЕС А / 

Ж. 
(—) 实测 走时 曲线 的 校正 

ЖЖ Нл ЕН ДЕЛУ ЛҮ Yi SE RP ЕЕ ЛЕК т 
地 震 到 一 系列 选 定 的 台 站 的 到 时 。 这 些 地 震 可 和 Е 
可 能 发 生 在 海洋 ， 而 且 具 有 有 不 同 的 位 置 和 深度 。 ЖОКЕ 
有 具有 不 同 的 高 程 及 位 置 。 为 了 将 这 些 走时 及 震 нана 
考 面 上 ， 必须 作 合 站 高 度 攀 正 ， ИНЫЕ, 震源 深度 校 
正 等 。 如 果 只 研究 上 地 覃 的 速度 分 布 ， 尚 须 作 剥 壳 校 正 。 

合 站 高 程 校正 БАНИ л ЖЕЛЕ ТЕ ДА, 与 第 五 章 35-3 所 
叙述 完全 相同 。 下 面具 讨论 震 浸 深度 校正 及 测 沉 校正 。 

涯 党 深度 改正 是 将 不 同 震源 深度 的 地 震 划 归 到 同一 深度 面 ， 








它 包 括 走时 校正 及 震中 上 距 校正 两 项 。 
设 校 正 的 基准 面 深度 为 Ho， 震源 深度 为 h., 可 分 别 两 种 情 
ARE. 
(1) he <Но 
震中 距 校 正 项 > 
t 
(Ho =ke) 111 "15 дд 
UT Y S А (7-4.1) 
Сат. 495 dA 
走时 校正 项 
аа, == (f 4 2) 
Е 1 t « 9 < 
у Іні 195 єк] 
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(2) 天, 之 五 "时 





震中 距 校 正 项 
-H V2 94 
Qh. Но, 195 За 
ФА к= — == . (7-4.3) 
һ- аза Š, V; ðt дт N? 
111.195 дА 
走时 校正 项 
Фіх. = һ.-Нә 











р (7-4,4) 
Vv | - . Ф 
2/1 [тз 195 = 


上 述 各 式 中 ，V it 一 一 校正 基准 面 以 上 纵波 平均 速度 ， 对 于 大陆 
区 V1 可 取 6.5 公 里 / 秒 ， 海洋 区 可 取 8.0 公里 / 秒 ; V :一 一 校正 基 
准 面 以 下 纵波 平均 速度 ， 对 于 大 陆 区 V1 可 取 7.9 公里 / 秒 ， 海 洋 
区 可 取 8.2 公 里 / 秘 ， 了 和 4 一 -走时 有 曲线 的 斜率 (或 慢 度 )， 可 从 走 
时 曲线 上 获得 。 

各 果 震 源深 度 校正 的 基准 面 不 在 地 面 ， 而 在 地 下 某 一 深度 
Ho (Ho 之 0)， 则 地 面 的 台 站 接收 端的 震中 距 及 走时 亦 应 校正 到 此 
ЖЕТТЬ, ЕБЕ. РЕБ 














Vi Ot 

Ho 111 19Е ðA 
——— ， (7-4.5) 

ы  ⁄ V. Әу 

(mo 195 дА 

走时 校正 项 为 

ts = ———————— ax 
б S vidi- © У; 4+ \? А (7-4,6) 

111.195 дА 


Т Те а 


%А), ВИЗЕ АУЕН МЕ | 
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не; (бір %01»,501,501), | 

| (7-4.7) 
Ar i; = А)- Ан +6A2). | 

式 中 tgs 为 台 站 高 程 校正 项 ，0t1..644。 ЕЕ ШЕПТЕ, dte 

为 地 球 椭圆 扁 率 改正 项 ， 0t、64, 为 剥 过 校正 项 。 


(с) 由 走时 上 曲线 计算 射线 参数 Pp 


对 经 过 校正 的 走时 曲线 T- A 用 数值 微分 方法 求 p = ат/ад, 
以 获得 一 条 连续 的 射线 参数 p-A 曲 线 。 . 

在 计算 机 上 利用 三 次 自然 样 条 函数 对 一 元 函数 进行 成 组 插值 
及 微分 ， 具 有 较 好 的 平滑 性 能 ， 能 保证 所 捅 值 的 函数 及 其 一 阶 导 
数 、 二 阶 导 数 连续 。 计 算 方 法 如 下 。 = 
O BERARENA xi <x。<…<x, 对 应 的 函数 值 为 
у, Уз» з, Ул | | | 

三 次 自然 样 条 函数 S(x) 满足 以 下 条 件 : DDSx) = у:,і=1, 
2，…，1 多 在 每 个 子 区 闻 (хз, xina) Е, ізі, 2, +з, п-1, 
样 条 函数 是 一 个 三 次 多 项 式 国 在 [x1， xsJ 上 有 一 阶 及 二 阶 连续 
导数 ， 且 在 端点 处 有 5S” (xi) =S”(x,) =0„ 下 面 分 别 给 出 S(x)，- 
S' (x) RS” (x) 的 计算 公式 。 

由 牛顿 插值 定理 可 写 出 以 下 关系 : 

5(х) = 5(х;) + (х—х:)58(х:;, Xi+1) 
T(x—xi)(x—xi 428(х» Xis Xi. 1)5 
| X€ (xis Xi 1), 
(7-4,8) 


J 


式 中 S(x i, ха) = ы , 


Xi 
1 ” 
S (x, X i> xis) = —LS (x; ) + S” 9+5" (х; 


т-а, 8) 式 求 微分 
“370: 


кесет TT -- 


5” (х) = S(x;, хг) т Qx- xi xi) Sx, Xis X isi) | 


Ы x) xx 1257» Xi+1), 


Х6сх:» х::1). 
(7-4,9) 
由 于 S” (х) (х:, xo O КЕЕ, Б 
S” (х2 = S” (х:) + (хх :) 57 (хі, ху. 
(7-4,10) 


根据 在 交接 点 一 阶 导数 连续 的 条 件 ， 可 以 写 出 下 述 n - 1 个 方程 


(ха-х:-408” (xi-1) %2(х; ‚—х:-1)8”(х) 
+(x; a~x) S” Cx: 1) <6(S(x;, xí i) —S(x;- хр 





1=2, 8, е-е » һ-1 | (7-4.11) 
给 定 边 界 条 件 S”(x1) = S”(x,) =0 及 S (х1) = S!, S! (x») 
= 57,. 
待 解 方程 组 (7-4.11) 可 以 写 为 下 列 矩 阵 形式 
bo со ио (4 ` 
а: bi ci | 0 Ё | di 
az Во cz И? '] d2 
45. -| . (7-4,12) 


е 
° 





| 
0 а,- | Ь,- 1 Cn- | Из- 1 x 1 
а. b, J Қи, | 


式 中 各 元 素 为 
а,=х:—Хї-ї» 
b;=2(x; 1 -хі-193» 
Ci=Xi Xi 


di= 6 Yisa yi y Viza) 


Xi 1 Xi Xí Хі-і 


muran s— 


Жи ;为 待 求 的 二 阶 导 数 S* (xi) 值 。 

(7-4.12) 式 是 一 个 对 角 元 占 优 势 的 三 对 角 线 带 状 矩阵 ， 可 以 
用 追赶 法 求解 。 求 得 在 结 点 上 的 二 阶 导 数值 S”(x ;)。 

然后 ， 分 别 利用 (7-4.8)，(7-4.9) 及 (7-4.10) 式 ， 即 可 求 得 
ИШ Ж КЕЛУИ ЛАНЫС = 1，2，…，fn) ЕАН 500) 及 
一 阶 导数 值 S'(t;)。 将 S'(t;) 值 连接 起 来 ， 就 可 以 获得 射线 参数 
PRJ JCA H k. 
”在 处 理 实际 观测 资料 时 ， 考 虑 到 观测 误差 的 存在 ， 故 对 实测 
ЕРЕ ОР. XIF, 可 以 效 得 更 合理 的 射线 参数 рів 
曲线 。 其 算法 原理 如 下 : 

өшін 1 个 点 х, «Сх < 过 x,，， 其 对 应 的 测定 和 值 为 yi， 
y:，…2?n。 我 们 要 构造 平滑 函数 g(x)， 使 


ж 
| Св”(х)22ах = тіп, 
Хі | 

е g(x i) —у; : 
> ( ду; | ) <s , 


其 中 By;(i= 1， 2，…， п) 是 给 定 的 ， 一 般 可 以 取 为 对 y; 的 标准 


‚ 偏差 估计 值 。S 也 是 给 定 的 ， 一 般 常 令 S=n。 当 S= 0 时， 表示 计 
| 算 样 条 函数 插值 。 利用 变 分 法 即 可 解 出 ci， bis с: Жа. ЕИВ, А 


而 得 到 光滑 的 p 值 曲线 。 在 平滑 过 程 中 ， 可 以 选择 不 同 的 5y; 值 ， 
以 取得 最 佳 的 计算 结果 。 | 


(=) 根据 射线 参数 已 求 速度 分 布 
对 (7-3.5) 式 右 端 积分 式 
„А! 
| 网 ch (p/pi)dA 


ЕГІЛГЕН 下 列 公 式 
3724 


ch (Х) = +kln(X+ (//Х2-10. (Х221) 
因此 积分 式 即 可 以 写 为 


‚ Ай ` . + 
| Іп(р/рі tv (p/p) -DadA. ` (7-4.13) 
0 


-只 要 地 球 内 部 速度 分 布 满足 Y(r)/r 比 值 随 深度 递增 时 ， 则 
总 有 p/p; 宇 1， 积 分 (7-4,.13) 式 总 可 以 算出 。 
选 定 一 系列 的 震中 距 A 值 ， 用 数值 积分 (例如 ， ЕЛ 
公式 ) 可 以 得 到 一 系列 的 积分 值 


PÅL Н 
Si -| Іа (р/р. +2 ад. (7-4.14) 
‚0 


由 (7-3.6) 式 有 
$1 = Л іп (R/r 1 у, ° | 
从 而 求 得 相应 于 A; 距 离 处 射线 穿 透 地 球 最 深 点 的 半径 


rı = В/ехр(51/л). | (7-4.15) 
根据 (7-1.6) 式 ， 可 求 得 该 点 的 速度 为 
y =i - 
1 Р; (7-4.16) 


ЕНЕ r ИЛЖЕН! = Rr， 就 得 到 地 球 内 部 速度 V1 随 
深度 万 :的 变化 。 
” 最后， 讨论 一 下 近 距 离 走时 曲线 的 速度 反 演 问题 。 由 于 这 时 
走时 -距离 关系 用 直角 座 标 表 ж. Herglotz-Wiechert 公式 (7- 
3.5) 可 以 写成 


ФХР 
Z(V >) = +J chi Kanay, 


式 中 ARAE P ARIRE, ZV 表示 相应 于 视 速 度 
为 V :的 射线 穿 透 的 最 深 点 ,V (x) 为 沿 x 方 向 视 速 度 变化 值 ax/dT。 
只 要 由 走时 曲线 求 得 视 速度 光滑 曲线 ， 就 可 以 反 演 地 下 介质 速度 
分 布 。 
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87-5 МНО 


上 一 节 讨 论 的 Herglotz-Wiechert Æ 度 反 演 计 算 方 法 ， 只 
适用 于 速度 分 布 V(r)Vr ВЕ 深度 增 大 的 情况 。 但 是 ， 由 于 地 球 内 
部 低速 层 的 存在 ， 往 往 不 满足 上 述 条 件 ， 故 该 方法 在 使 用 时 受到 
一 定 限制 。 

1966 年 ， 苏 联 Gerver 和 Markushevich 提出 了 一 种 计算 方 
法 ， 它 可 以 对 低速 层 进行 反 演 。1977 年 ， 美 国 McMechan 等 又 将 
反 演 方法 作 了 简化 。 由 于 这 些 计算 都 是 基于 平坦 地 球 ， 因此 必须 
FARER. 

在 球形 空间 ， 我 们 用 的 坐标 变量 为 (r，6) 。 在 半 无 限 空间 中 
为 (x，y)， 其 中 x 为 平坦 地 球 的 横 坐 标 ，y( 宇 0) 为 深度 (纵向 ) 华 
标 。 如 图 7-5-1 Ж. 利用 保 角 变 换 ， ЖИ ЯН, К 


变换 公式 为 
_ Во 
V (R) ” 
R Е (17-51) 


— ` рух. 
V(R) " r 


y= 


式 中 只 为 地 球 平均 半径 46370 А 
里 ) 。 由 公式 显 见 ， 在 地 面 上 
(г=В)у=0. 

АЖ ri Sh НЫ EE УШР 
” 换 值 为 








и(у) = уде ы» . (7-5,2) 
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ананын 它 在 地 面 4《0) = 1, 0, m Fg 
ЖХ u>.) 
射线 参数 的 定义 为 | 


— sina (y) | | 
и)’ p€ (0, 1) (7-5.3) 


рай ЖИ ӘУЕ, 0<а<90°„ ШБ 
穿 透 最 深 点 M 同 折 到 地 面 的 射线 。 = 
由 图 7-5-2 可 见 , 设 某 一 条 射线 参量 为 p 的 射线 向 下 入 射 ， 则 





有 | | 
| sina(y)= рибу). (7-5.4) 
0 ХР, 

Y (p Кара. 
> | 
ЕЯ 7-5-2 
ах sina(y) | puly) . 
— = t ) = —— ео  , 
dy gely? cosa (у) vV 1- рги? (у) 


于 是 得 射线 上 任 一 扣 x 与 ?的 关系 为 | 
| _ {У puCy)dy о Eer 
x 。 (7-5,5) 
ЖЖК АНЫН (х, VREI . 


- — 
0 “cosa (у) 





ра. аза 
он ОЗУ 1-2 | 


由 图 7-5-2 可 见 ， 对 于 射线 参数 为 p 的 射线 ， 其 回 折 点 M 处 的 


坐标 X(p) 及 Y(D)， 以 及 从 地 面 到 达 该 点 的 走时 的 关系 为 


гҮ (p) 
_ | pu (y)dy _ 
хор) = | Л р?и? (уў у 
Т(р) =f uV 1- р?и? (у). . 
以 上 就 是 由 已 知 速度 分 布 &(2) 计算 地 面 走时 曲线 X(p) 及 T(P) 的 
公式 ， 它 和 球 对 称 地 球 计算 A 及 T 的 公式 (7~1.14) 是 类 似 的 。 在 





正 演 公式 (7-5.7) 中 ， 地 下 速度 分 布 4(y) 是 任意 的 ， 即 可 以 包含 


WEE. | 
ЕН 88. 8 С ТАЈ АЙ, ВОЛИ ЈА ХСр) 22 TO) E 
计算 速度 分 布 4&(?) 。 为 此 ， 先 引入 一 个 辅助 函数 z(p) 定义 
т(р) = Т(р) - pX(p). (7-5.8 ) 
因为 
ү | 4у 


Т -pX =} —TT 
р) PX Cp) 0 UY 1- p*u2 (у) 











ү” ри (y)dy “|” 1-р“и2(у) 


P “1-р2и7(у) | 0 &(y)v TI- pu y) ЧУ 
тҮ (p) 
-| V и-*(у) – р? dy, 
0 
故 有 
ФҮ (р) | 
| т) =] м и-* (у) -р? dy. (7-5,9) 


0 
由 XX(p) 及 T(p) 求 速度 分 布 问题 ， 便 化 为 筷 辅 助 函 数 tCp) 根 
据 (7-5.9) AR u(y) 的 问题 。 因 为 5(p) 可 由 (7-5.8) 式 实际 算 
出 ， 所 以 问题 使 归结 为 求 出 射线 参数 为 p 的 景深 点 的 纵 坐标 
Үр), | | | 
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从 一 组 实测 走时 值 (T ;，x ;) 计 算 r(p) 简单 可 靠 的 办 法 是 基 
ТТ(ро) ~ DX(Cpo) 在 po 点 有 极 大 值 的 原理 。 故 每 固定 一 个 p 值 ， 
给 rz=T;:- pX; 曲 线 图 ， 当 此 曲线 取 极 大 值 时 ， 所 对 应 的 z 值 即 为 
所 求 的 r(p) 值 。 对 一 系列 p 值 求 z(p)， 则 可 得 一 Ж z( p)HH ZE, 

Y(D) 的 反 演 公式 为 


т(р) 
| ат | 
ү — Ёс, -5.9а) 
(р) т 了 (7 а 


式 中 p(t) 与 [Cp) 互 为 反 函数 ， 生 Y (p) =Y], 1/р 


Y(p) 曲 线 前 主要 优点 是 能 解 开 走时 曲线 的 多 重 人 性 。 即 当地 下 
存在 强 速 度 梯 度 带 时 ， 走 时 曲线 T(x) 遂 进出 现 三 重 区 时 ,TCp) 也 
是 单调 降 函 数 ， 假 若 存在 低速 带 ，r(p) ҺА МЕН 
№. 

Сетуег 和 Маткивһеуісіһ 推广 了 Herglotz-Weichert 77 
法 。 当 地 下 速度 分 布 包含 有 低速 层 时 〈 如 图 7-5-3)， 射线 参数 为 
ИЕ АИ ВЕ 


Ё у; | 
У (а) = 2 人 жор А 22| arctg (8 Пр. 
р-а "ЛИ; -4: 











(7-5.10) 


式 中 前 一 项 为 主 项 ， 它 实际 上 是 不 存在 低速 层 时 前 Herglotz- 
W iechert 肥 演 计算 公式 。 后 一 项 称 为 低速 层 的 附 加 项 ， 即 低速 
层 对 反 演 式 的 附属 累加 值 。y ; - y :是 第 i 个 低速 层 的 厚度 。p ;是 
掠 过 第 i 个 低速 层 项 部 射线 的 参数 。 u(y) 是 速度 分 布 ; KERE 
层 的 个 数 。 

在 应 用 这 一 公式 反 演 时 ， 必须 对 低速 层 的 厚度 y，; =y y ;及 速度 
分 布 и(у) 作出 假定 ， 以 对 实测 走时 出线 进行 校正 ， 然 后 进行 反 
演 。 低 速 层 参数 假设 不 同 ， 反 演 结 果 也 不 同 。 产 生 这 种 不 唯一 性 
的 原因 是 低速 层 的 存在 ,地 面 将 出 现 阴 影 带 ,无 法 观测 到 与 低速 层 
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相应 的 走时 曲线 。 





图 7-5-3 
设 射线 的 传播 路 径 如 图 7-5-4(a)》 Дж, ГИВЕН, H 
为 低速 屋 。 设 想 把 实际 存在 的 低速 层 抽 去 ， 将 p<p; 的 射线 的 路 
径 向 左 移动 ,如 图 7-5-4(b) 所 示 。 这 样 就 使 同一 参数 的 射线 在 工 、 
. 五 介 质 中 重新 连接 起 来 。 





图 7-5-4 


由 图 可 见 ， 抽 去 低速 层 连接 起 来 的 射线 路 径 ， 与 不 存在 低速 
层 了 左面 仅 有 层 I、 瑟 传播 的 路 径 完全 相同 。 因 此 ， 穿 过 低速 层 参 


数 为 9 的 射线 最 低 点 的 深度 可 改写 为 
У (а) =У: +Ух+ Ун = (Уг- Ут) 二 Yr 


-让 Х(‹р)ар _ L (G. — 
(91-45% (yi — 91) 

(0<а<р1) (7-5,11) 
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式 中 X(D) 应 是 没有 低速 层 时 ， 射 线 仅 在 工 . 焉 层 中 传播 的 对 应 的 
慢 度 曲 线 。 当 射 线 在 工 层 中 时 ， pi <p<1, X(W р-Х 
曲线 。 但 当 射 线 穿 透 到 低速 层 以 下 时 ， 0<р<р., Х(р) қ N 
曲线 已 不 符合 。 为 了 使 射线 联接 成 图 7- 5-4(b) 的 样子 ， 就 应 将 实 
测 p- 和 曲线 向 左 作 相应 移动 ， 即 计算 


Х(р) = Х(р)хє- S, (p)/2, ` (7-5,12) 
式 中 
— dy, 
мит? (у) — р? У 
表示 参数 为 p 的 射线 在 低速 层 


中 所 经 历 的 水 平 距 离 。 校 正如 
图 7-5-5 所 示 。 

当 存 在 多 个 低速 层 时 ， 同 
理 可 得 





图 7-5-5 


Y (4) = 11,7 Xpap , 5 -y;), 
V p? -q* i 
| (7-5.13) 
式 中 
Ё 


Х(р) = Х(р)%- È 5,(р)/2 


У: р 
(р=2 [а 
S: (p) | y 
注意 ， 以 上 公式 中 参数 p, u(y)，X 与 球 座 标 中 参数 的 关系 为 
-379° 


А 
X= 2 = m. -二 
270182 


u (y) = 7% уш 


р = ря/1% 

而 no = Ro/Vo，Ro 及 Vo 分别 表示 地 球 平均 半径 及 地 表 平 均 
速度 。 由 上 述 换算 关系 就 可 以 容易 地 求 出 地 球 内 部 速度 分 布 。 

式 (7-5.10? 表 明 ， 如 果 存 在 低速 层 ， 必 须 对 各 低速 层 的 厚度 
yi- у: 作出 假定 ,才能 求 得 深度 Y (q)。 而 这 一 点 是 难于 做 到 的 。 
下 面 我 们 讨论 McMechan 引 入 的 一 个 改进 方法 。 

McMechan 指 出 ， 低 速 层 的 反 演 计 算 的 主要 难点 在 于 该 层 中 
没有 回 折 氮 ， 即 没有 从 低速 层 中 返回 地 面 的 射线 。 为 此 ， 他 建议 
用 分 段 反 演 方法 解决 这 个 问题 。 在 每 一 个 反 演 单元 中 ，p 值 是 单 
调 变 化 的 。 | 

图 7-5-6 为 两 个 p ВЯ ЕНТ ДЕЛ ERA. HERRER 
各 射线 回 折 点 的 轨迹 。(a) 为 正 的 速度 梯度 层 ，(b) 为 负 的 速度 梯 
度 层 。 





һ—Р = Pmax 


图 7-5-6 


由 这 样 划分 的 p 值 单 调 变 化 分 层 称 为 反 演 单元 。 在 每 一 个 单 
元 中 ， 从 顶 界面 到 下 界面 p 值 都 是 单调 变化 的 。 因 此 ， 可 以 分 别 
对 每 一 单元 用 Herglotz-Weichert 公式 反 演 ， 以 得 到 速度 随 深 

•38() • | | 


度 的 变化 。 引 用 (7-5.10) 式 中 的 主 项 ， 写 出 


YP) -Y(pasx) = ре TERIA (7-5.14) 
APY (p i) -~-Y(pusx) 是 从 最 大 的 p 值 (通常 在 地 面 ) 到 р, 的 深度 
增 量 。 对 于 负 的 速度 梯度 层 , 深 度 增 量 应 写 为 了 (paax)- 了 (pi)， 
其 反 演 公式 仍 可 利用 (7-5.14) 式 。 

图 7-5-7 为 典型 的 低速 层 分 布 的 速度 剖面 ， 它 可 以 分 为 三 个 
反 演 单元 ， 同 时 还 给 出 其 射线 ( 实 线 ) 及 回 折 点 的 轨迹 (虚线 )。 
| VW 





—— — — — w — — лар 





É] 7-5-7 


ІҢ 7-5-8(а) 为 相应 于 7-5-7 速 度 剖 面 的 p 值 变化 有 曲线 。 对 每 
一 个 射线 回 折 点 , :都 有 对 应 的 苹 及 p 值 。 
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НЕЯНр-ХНЕ ЕЕ и Y JBI н КАДА 
元 获得 。 图 7-5-8 表示 低速 层 反 演 计 算 过 程 。 为 了 计算 深度 增 量 
YI(Di) 一 Y(p,)， 可 以 沿 p-X 曲 线段 co 从 工 点 到 2 点 求 积 


(p*— p3)% 


ЯТНЯЯЖЕНЫ Y Cpr,a.x)- Y (pi), WWE 28 Ezb JA 8 点 
到 4 点 求 积 分 


р: _ 
У: (ро -У(р,) = 2) XP) Xp gp (7-5.15) 
` “р; 


г "РІтах | _ | 
Y(poaa) Y (p) = 2] СХ(рі, пах) — X(p)2 


(р2– р?) ар. 


(7-5. 16) 
对 于 深度 增 量 Y3(Pp;) —Y(Drsaax), 可 以 沿 р-Х 曲线 段 c 从 5 
到 4 点 求 积分 


р утах _ 
Уз(р;) -Y(p isma x) = j. i СХ (р) X Dry ms) gp 


(р? — рё)‘ 
(7-5.17) 
|Н (7-5 .16) 5 (7-5.17) К в & 
Pis=sx Гу (р) — X, (р) 
Үз(р;) 一 Үзг(р;) = 2), Қос d 
(7-5,18) 


式 中 Xe。(p) 表 示 c 段 曲线 对 应 的 X 值 ，Xs (р) 8b Et XJ BX fÉ , 
注意 ，Ys(pi) 及 Ya(pi) ДЕН, ШУ! (ро 点 在 低速 层 
外 。 求 出 各 上 感 的 Y(p) 值 后 ， 不 难 由 (7-5.9) 式 将 务 相应 深度 的 一 
度 w(y) 求 出 。 


57-6 理论 走时 曲线 的 计算 


用 观测 走时 曲线 反 演 地 下 速度 分 布 时 ， 一 般 要 选择 地 壳 及 上 
地 慢 的 速度 分 层 模 型 ， 计 算 理论 走时 曲线 与 实测 曲线 进行 拟 合 


“382。 


这 种 拟 合 过 程 可 借助 于 线性 反 演 理论 用 迭代 法 实现 ， 也 可 以 人 为 
选择 多 种 模型 进行 比较 。 由 于 理论 走时 的 计算 对 地 球 内 部 速度 分 
布 未 加 限制 ， 故 任意 速度 分 布 模型 都 能 得 到 理论 走时 曲线 。 

设 球 对 称 层 状 地 球 模型 如 图 7-6-1 所 示 。R。o УЖ, x 
及 9 分 别 表示 以 公里 或 弧度 (或 度 ) 为 单位 的 震中 距 。 设 地 球 内 部 
第 i 层 的 顶部 TOP 及 底部 BOTTOM 的 半径 及 速度 分 别 为 Rr, Vri 
Ras，Vs， 该 层 的 速度 分 布 规律 设 为 Y=a;R+b;。Rw 及 Va 分 别 
表示 射线 穿 透 最 深 点 的 半径 及 该 点 的 速度 。 


X 
V = 4% R+b Бар, 
т 
=p, 





图 7-6-1 


设 某 一 条 入 射 角 为 主 的 射线 通过 每 一 层 的 单程 震中 距 为 0;， 
走时 为 T;。 并 设 该 射线 最 深 点 M 以 上 一 共有 n 层 ， 于 是 该 射线 经 
过 的 距离 及 走时 分 别 为 | 


ө-2246, 
ры 
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п (7-6.1) 
T=2 АТ,, 
ізі 


式 中 6 АУ ЕЛІҢЕ СНО, ТИ ИН, НАВЩЕЕХ Е 
(7-1.5) 式 同 ， 


V ВЕ, Ro EHRE. | 
射线 通过 各 层 时 所 产生 区 单程 震中 距 9; 及 走时 T; 的 公式 ， 与 
各 层 的 速度 变化 规律 有 关 。 下 面 分 别 考虑 三 种 情况 ， 


(一 ) 常 Жж Ё 
设 某 层 速度 为 常数 V =b， 风 9; 及 Ti; 的 计算 公式 为 
9; = соз-1 (pb/Rr)-— соѕ-!(рЬ/Ев), 


T; = (ЄК! = (pb)? - VRI- (рь), (7-6,2) 


式 中 各 符号 的 意义 如 前 述 。 注 意 ， 射 线 能 通过 该 层 而 回 折 的 必要 
Z ÆR: F pb。 
(с) #W X ZA Е 
ж ан РЕЖЕ я | 
V=aR5, ` (7-6.3) 
Aa b 为 常数 。 设 该 层 顶 部 及 底部 能 速度 为 Ут ЖУ», ЖЕЖ 
Rr 及 Rs， 则 可 按 下 式 算 出 a、b 系 数 
_ In (Vr/Va) 
In (Ет/ Ба)” (7-6,4) 
а = ехр( п Уг- 611 Вт). 
$ пт= Вт/Ут, ma = Кв/ Ув, WAER RAE МЕНА 
1 


@ = Yb 





(cos"l(p/n:)--cos"!(p/ms)), 
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Ti 
Е, ЯГА EFT m BL ЛА ЖА ТТ ДЕ» ро 
(=) 线性 函数 分 布 变 速 层 
设 某 层 的 速度 随 半 径 R 呈 线性 变化 规律 





У=аЕ-Ь. | (7-6,6) 
由 该 层 顶 部 及 底部 Vr.Va 及 Rr、,Rs 可 算出 系数 
a= (Ут- Ул) , 
(Rr— Ra) (7-6.7) 
Ы = Ут- аВт. 
令 с=1-а?р?, b*=b/lb|. (7-6.8) 
4 c 取 不 同 值 时 ， 计 算 公 式 是 不 同 的 。 下 面 分 三 种 情况 讨 
в: o | 
(1) c>0 
abp, 


ар ра р212 一 
о; = 20 In(wR РУТ + Rr c - — 
“с ! \ с 


+ b* gi -( - РВ) 
b* sin apb “Ra 
__ 2 
- и(Мкї- Р?У? + Rs. с - ФР) 
“с 


-brsin-!(~apb* ~ 21М)), 
Кв 





— = m(lal/R! - p? V? + Ут “с -之 ) 





“Та с 
+ Pa (243; — Р?ү?+ b| -ы) 
| ‚ Ут 


一 -一 -一 一 -一 -一 一 一 -一 一 -一 


1 ; 一 b 
-—— (о КАКЕ Ру? +V - —7— 
ат n(laiv у? RV С 2) 


e 385 ° 


в (ГЕРА Ы). 


(7-6, 9) 
нана а Е Ет РУТ Ев РУво 


ШЫ 
телі одуна 
оре т). 


(7-6.10) 


(2) с=0 


-- ЖЕ 1-24Ат4 b*sin-!( - ab* — 


+ь'{-1- 1—2 ака —b*sin-1( - а" – |° e|) 














(3) с<0 
f - СКт 
9; = — = sin" (54 ғар») 


+ b* е-і1 (- ж _ plb| 
sin apb R. 


= Sin + арб 
м с р |Б! P 


-~b*sin-! (- b* 一 ры 
1 ар В, /? 

















lsin (сутт 
= Та] vam plab | 


И z lb -ь*) 
Ут 
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тоалетна 





sin (14522 -b*In( so RE руз? lb] -ь*)]. 
plab| | 


V -c Ув 


(7-6.11) 

下 面 讨 论 具体 计算 步骤 。 

步骤 1 : 将 地 球 划 分 为 n 个 球 层 (n+ 1 个 界面 )， 设 每 一 界面 
的 半径 分 别 为 R1，R2…，R，1!1。 对 每 一 界面 的 波 的 传播 速度 分 
Я ВА DAV: i, Vb, +, V, 1% 

步骤 2 : 对 每 一 层 的 速度 变化 规律 赋 以 特征 值 。 例 如 观 定 : 
1 一 一 常 速 层 ， 2 一 一 每 函数 变速 层 ， 3 一 一 线 性 函数 变速 层 
等 。 于 是 可 以 利用 (7-6.4) 及 (7-6.7) 等 式 分 别 计算 常数 a、b。 

步骤 3 : 从 地 表 疝 地 球 深 处 按 一 定 深 度 增 量 (例如 AR = 2 公 
里 )， 分 别 计 算 该 深度 (半径 R 处 ) 射 线 产 生 回 折 的 射线 参数 

_ В 
P TCR) А 

将 该 参数 代入 以 上 各 层 计 算 走时 T; 及 震中 距 0:， 再 代入 (7-6.1) 
式 求 和 ， 即 得 穿 透 到 半径 R 处 的 射线 的 走时 T 及 距离 9。 当 层 层 向 
下 计算 时 , 便 得 到 理论 走时 曲线 。 | 

在 计算 过 程 中 ， 如 遇 到 低速 层 ， 则 不 符合 产生 回 折射 线 的 条 
件 ， 出 现 影 区 。 如 遇 高 速 梯度 层 ， 将 会 引起 射线 逆 进 回 折 。 


87-7 一 个 数值 反 演 实例 


根据 北京 台 网 、 大 连 、 长 春 、 牡 丹 江 、 海 参 赔 等 26 个 全 站 的 
记录 ， 并 选用 从 北京 地 区 到 阿 禄 申 群 岛 西端 的 300 多 个 地 震 ， 经 
过 椭圆 扁 率 、 震 源深 度 及 剥 壳 校正 后 (地 壳 平 均 厚 度 35 公 里 ) 。 得 
出 了 北京 - 萨 哈 林 一 线 约 48" 长 的 P 波 走时 曲线 。 

将 校正 后 和 的 走时 曲线 用 Herglotz~Wiechert 公式 对 上 述 观 
测 曲线 反 演 得 到 速度 剖面 ， 可 见 400 公 里 650 公 里 附近 有 明显 的 正 
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速度 梯度 带 ， 另 外 在 1200 公 里 附近 也 有 一 较 小 的 正 速 度 梯度 带 。 
在 80 一 100 公 里 有 低速 层 出 现 。 如 图 7-7-1 所 示 。 





6.0 8.0 10.0 
| V, (km/s) 





200 


400 


600 


1000 





1200 , 
| A(km) | 


图 7-7-1 


将 上 述 V-h 速 度 分 布 模型 作为 初 值 ， 反 复 调 整 此 模型 ， 计 算 
理论 走时 曲线 去 拟 合 实测 曲线 。 通过 20 多 次 修改 ， 得 出 符合 得 最 
好 的 即 为 该 区 最 后 的 速度 模型 。 如 图 7-7-2 示 。 


“388。 


6.0: 8.0 10.0 
— Vp (km/s ) 


- 400[- 


1000 
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图 7-7-2 


理论 走时 曲线 与 实际 观测 曲线 的 拟 合 情 况 如 图 7-7-3 所 示 。 
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T(S) 





ЕЯ 7-7-3 


R771 Ж7-7-2О>ША P 波 走时 观测 值 及 反 演 得 到 的 最 后 
速度 分 布 模型 ， 表 7-7-3 是 体 波 走时 反 演 的 速度 分 布 。 











Ж 7-7-1 ЧЕН ИРЕНА 
A( `) T(s) A( °) T (s) 
0.0 0.0 23.0 297.6 
1.0 14.4 24.0 308.3 
2.0 28.7 25.0 317.5 
3.0 42.8 26.0 326.5 
4.0 56.8 27.0 335,5 
5,0 70.8 28,0 344.5 
6.0 84.8 29.0 353,2 
7,0 99,0 30.0 362.1 
8.0 113.4 32.0 379.7 
9.0 127.8 34.0 397,3 
10,0 141,8 36,0 414,1 
11.0 154,8 38.0 430,9 
12,0 167,8 40,0 447.7 
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13.0 180,8 42,0 | 464.2 
14.0 193.8 44.0 x 479,5 
15.0 206.8 46.0 494.5 
16.0 219.8 48,0 x 509.5 
17.0 232.8 | 
18,0 243,6 | 
19.0 254.4 | 
20.0 265.2 x 
21.0 276,0 | | 
22.0 286,8 | | 
387-7-2 Г И КЛ ШЕШН 
度 深 H(km) V(km/ s) | 层 速度 特征 值 
35.0 7.8 2 
55.0 7.9 2 
80.0 7.6 | 2 
120,0 8,1 2 
160.0 8.2 x 2 
180.0 8.3 1 
200.0 8.35 2 
300.0 8,5 i 2 
400.0 9.2 3 
440,0 9,6 2 
480.0 9.7 2 
530.0 9.8 2 
600 .0 10 .0 3 
740.0 10,9 2 
910,0 11.25 2 
1020,0 11.3 x 2 





ЖЖ 


11,45 | 2 


1080.0 | | 

1200,0 | 11.9 2 
1300,0 | 12.25 2 
1500,0 | 13,00 


常 速 层 ;2 一 一 宕 西数 分 布 ;3 一 一 线性 丽 数 分 布 








ИЕ I: 1 





表 7-7-5 北京- 萨 哈 林 测 线 体 波 走时 反 演 的 速度 分 布 


programmed PAUSE input crh 


35,0 
Programmed PAUSE input п, m 
40, 129 
programmed PAUSE input 411 
0.4 
Program med PAUSE input dit 
0.5 
distance time distance time 
.0060 .0000 1.0000 14.4006 
2.0000 28.7000 3.0000 42.8009 
4,0000 56.8000 5.0000 70.8000 
6.0000 84.8006 7.0000 99 0000 
8.0000 113.4000 9.0000 127.8090 
10,0000 141,8000 11,0900 154,8000 
12.0000 167.8000 13.0000 180,8000 
14.6000 193.8000 15,0000 206.8000 
15,0000 219,8000 17.0000 232.8000 
18,0000 243.6000 19.0000 254.4000 
20.0090 265.2000 21.0009 276.0000 
22.0000 286,8900 23,0000 297,6900 
24.0700 303,3000 25.0000 317.5000 
26.0000 326.5000 27.0200 335.5000 
28.0000 344.5000 29 0092 353 .3000 
30.C002 362,1000 32,0707 379 .7000 


“392. 


34,0000 397,30090 36,0920 414.1009 


38.0000 430,9000 ` 40.0000 447.7000 
42.0000 462.2000 44.0000 479 .5000 
46.0000 494.5000 48 ‚0000 509,5000 
distance time depth velocit y 
.2000 „1470 35.0000 7.7853 
.6000 8.6690 35.1729 7.7864 
1.0000 14,3489 35.6274 7,7883 
1.4000 20.0267 36.3262 7.7907 
1.8000 25,7018 37,2432 7.7927 
2,2000 31.3736 38 .3501 7.7971 
2.6000 37.0420 39.4653 7.8001 
2.0000 42 .7075 40 .5610 7.8026 
3 .4000 48 .3704 41 .5205 7,8044 
3.8000 54.0316 42 .1875 7.8052 
4.2000 59.6922 49.4365 7.8054 
4.6000 65.3527 42 ‚4204 7.8050 
5.0000 11.0138 42.5541 7.3036 
5.4000 76.6759 42,7627 7.8022 
5.8000 82.3384 42 ,8394 7.8020 
6.2000 88.0206 43.1606 7.8028 
6.6000 93.6608 46.4902 7.8034 
7.0000 99,3161 51,4590 7.8060 
7.4000 104.9634 57,5806 7.8124 
7.8000 110.5982 64.9604 1.8238 
8.2000 116,2158 13.3105 7.8407 
8.6000 121.8115 82.5200 7.8633 
9.0000 127.3305 92.5288 7.8929 
9.4000 132,9133 102.9585 7.9255 
9,8000 138,4224 113.5635 ‚ 7.9625 
10.2000 143.8904 124.3242 8,0025 
10.6000 149,3219 134.6113 8 0422 
.393• 


11.0000 
11.4000 
11.8000 
12.2000 
12.6000 
13.0000 
13.4000 
13.8000 
14.2000 
14.6000 
15.0000 
15,4000 
15.8000 
16.2000 
16, 6000 
17.0000 
17.4000 
17.8000 
18.2000 
18.6000 
19.0000 
19.4000 
19.8000 
20 ,2000 
20 .6000 
21 .0000 
21 .4000 
21 .8000 
22 .2000 
22.6000 
23 .0000 
23 .4000 
23 .8000 
24.2000 


394: 


154,7184 
160.0812 
165.4123 
170,7136 
175.9862 
181.2305 
186.4464 
191.6322 
196.7857 
201.9035 
206.9810 
212.0134 
216.9953 
221.9210 
226.7858 
231.58 60 
236.3191 
240.9874 
245,5942 
250,1440 


254.6419 


259,0930 
263,5012 


267.8702 


272.2025 
276,4990 
280.7601 
284,9844 
289,1696 
293.3130 
2987.4109 
301,4599 
305.4571 
309,4001 


144,4546 
153 .8755 
182.8701 
171,5249 
180.1758 
183.8677 
167,9634 
207,7930 
218.4165 
230,3247 
243,5405 
258 1636 
274,2896 


291.8047 


310.2886 
329.7041 
349.1060 
367.6343 
385,3164 
401.8237 
417.1147 
431.3974 
444.8521 
457,5644 
470.1821 
482,7857 
495,8564 
509.8559 
524.8418 
541.2231 
559,0454 
578,1177 
598,2461 
619,2232 


8.0808 
8.1179 
8.1531 
8.1864 
8.2193 
8.2519 
8.2857 
8,3224 
8,3625 
8,4085 


_ 8.4611 


8.5213 
8,5004 
8,6686 
8.7545 
8.8481 
8.9447 


_ 9.0386 


9,1290 
9.2135 
9,2911 
9.3625 
9.4285 
3.4894 
9.5487 
9.6070 
9.6668 
9.7307 
9,7995 
3.8755 
9,9596 
10,0514 
10,1503 
10,2554 


24 6000 
25,0000 
25,4000 
25.8000 
26.2000 
26.6000 
27.0000 
27.4000 
27,8000 
28.2000 
28.6000 
29.0000 
29.4000 
29.8000 
30.2000 
30.6000 
31.0000 


31.4000 — 


51.8000 
32.2000 
32.6000 
33.0000 
33.4000 


33 .8000 


34.2000 
34.6000 
35.0000 
35.4000 
35.8000 
36,2000 
36 .6000 
37.0000 
37.4000 
37.8000 


313 .2888 
317.1257 
320 .9137 
324.6571 
328,3806 
332,0238 
335.6665 
339,2781 
342,8675 
346,4382 
349.9935 
353,5360 
357,0684 
360.5924 
364,1090 
367.6190 
371.1223 
374.6137 
373.1082 
381.5906 
385.0652 
388.5312 
391.9375 
395.4332 
398 ,8672 
402,2390 
405.6982 
409.0650 
412 ,4792 
415,8505 
419,2087 
422 .5532 
425.8835 
429 .1991 


Е39,6394 
659 .4756 
678 .1978 
695.4429 
711 .1953 
725.4229 
738.0712 
749.2837 
759.1885 
767.7554 
775.2246 
781.5606 
787.0527 
792,0000 
196 .4556 
801.0586 
805.8917 
810.9375 
816,1866 
821.7134 
827.9893 
835.0054 
842.8013 
851.3433 
860.5396 
869.9293 
879.4566 
889,1358 
898,9737 
909.0118 
919.4639 
930,3585 
941 ,6900 
953 .4561 


10.3594 
10 .4605 
10 .5563 
10,6437 
10,7223 


10.7917 


10.8514 
10.9024 
10.9453 
10.9805 
11.0092 
11.0319 
11.0499 
11,0649 
11,0772 


11.0890 


11.1009 
11.1128 
11.1247 
11.1363 
11.1504 
11.1658 
11.1829 


‚ 11.2020 


11.2227 
11.2441 
11.2657 
11.2876 
11.3099 
11.3325 
11.3560 
11.3806 
11.4063 
11.4331 


‚395. 


38 .2000 432.4995 965,6280 11.4611 


58 .6000 435,7842 978,9465 11.4897 
39.0000 439.0531 990 .6934 11.5189 
39.4000 442 .3058 1003.5730 11.5488 
39.8000 445 „5422 1016,6890 . 11.5793 
40.2000 448 .7622 1029.7350 11.6098 
40.6000 451 .9670 1049.8930 11,6352 
41.0000 455.1595 1049 .8820 11.6548 
41.4000 458 .3427 1056.6600 11.6685 
41.8000 461.5196 1061.1170 11.6764 
42.2000 464.6931 1063,6870 11.6799 
42.6000 467.8635 1068,0830 11.6858 
43.0000 471.0285 ` 1074.7890 11.6952 
43.4000 474.1858 1083.6920 11.7087 
43.8000 477.3328 1094,7020 11 .7263 
44.2000 480 .4676 1107.3400 11.7477 
44.6000 483.5892. 1119.22 50 11.7682 
45.0000 486 ,6990 1130,0780 11.7868 
45,4000 489.7980 1139.9490 11.8033 
45.8000 492.8874 1148.8530 11.8178 
48.2000 495.9683 1156.7390 11.8299 
46,6000 499.0422 1163.2850 11.8393 
47 ,0000 502.1105 1168 4020 11.8459 
47.4000 505.1750 1172 .0170 11.3499 
47.8000 508 .2370 1173.9990 11.8514 


57-8 计算 程序 


(一 ) 球 层 介质 体 波 走时 正 演 程序 
”本 程序 用 于 计算 任意 分 层 的 球 对 称 地 球 中 体 波 的 走时 曲线 。 
使 用 者 仅 需 给 出 地 下 各 界面 的 深度 及 界面 速度 ， 以 及 各 层 的 速度 


分 布 特征 。 即 可 得 出 完整 的 体 波 走时 曲线 。 
.396. О. 


(一 ) 标 识 符 及 子 程序 的 说 明 

NF 一 一 地 球 内 部 分 界面 数 。 

NF1 一 一 地 球 内 部 分 层 数 (= NF 一 1)。 

MC 一 一 从 地 面 到 最 深 处 按 半径 间隔 AR 所 取 的 点 数 。 

но ЖЖЕНИЕ). 

H(50) 一 一 存放 地 下 界面 深度 的 数组 。 

VP(50) 一 一 存放 界面 处 波 速 的 数组 。 = 

FACRAD(50) 一 一 界面 到 地 球 中 心 的 距离 。 

FACVEL(50) 一 一 界面 的 波 速 。 

RADI(2000) 一 一 回 折 点 半径 ( 按 步 长 AR 由浅 向 深 递 增 ) 。 

VEL1(2000) 一 一 -相应 于 某 射 线 回 折 点 的 速度 。 = 

DELI(2000)- 一 一 相应 于 该 射线 的 震中 距 A;。 

TI(2000) 一 一 相应 于 该 射线 的 到 时 T;。 

LK(50) 一 一 各 层 速度 分 布 的 特征 数 。 各 特征 值 的 意义 是 : 
1 一 一 常 速 层 ，2 一 一 短 函 数 变速 层 ， 3 一 一 线性 函数 变速 层 。 

RTB(50，2) 一 一 各 速度 分 层 的 上 、 下 界面 对 应 的 半径 Rr ， 
Ев, 

VTB(50，2) 各 速度 分 层 的 上 上 上、 下 界面 的 速度 值 Yr、Ys。 

“A(50)，B(50) 一 一 各 速度 分 层 相 应 的 4，b 系 数 。 

EMERGE(XH，XVP) 一 一 计算 球 层 模 型 p 波 走时 曲线 的 子 
程序 。 虚 元 XH 为 各 速度 分 层 界面 的 深度 数组 ，XVP 为 相应 各 界 
面 的 速度 数组 。 | | 

DELTRA (M, P, RTBM, УТВМ, DSUM, TSUM)—— 


“计算 震中 距 人 A; 及 走时 T; 的 子 程序 。 虚 元 的 意义 如 下 : 


M 一 一 射线 回 折 点 以 上 实际 分 层 数 。 

P 一 一 回 折 射线 的 射线 参数 。 

RTBM 一 一 各 层 上 、 下 界面 所 相应 的 半径 Rr，Rs。 
VTBM 一 一 各 层 上、 下 界面 所 相应 的 速度 Vr，Va。 
DSUM 一 一 对 各 层 求 和 的 震中 距 人 4。 


397% 


поса 


TSUM 一 一 对 各 层 求 和 的 走时 T。 
(с) FORTRAN-77 语 言 程序 


190 


150 


THIS FROGRAM IS DESIGNED FOR THE 
FORWARD PROBLEM OF TRAVEL 
TIME IN THE SPHERICAL LAYERS 


COMMON /N/NF, NF1, MC, HO 

COMMON /АВ/А(50), В(50), LK(50),DELT A (1000), 
TRAVEL(1000) 

DIMENSION H(50)，VP(50) 

PAUSE’INPUT МЕ, МС, НО” 

READ •, МЕ, МС, НО 

NF1=NF-1 

PAUSE’INPUT H(I), VP(1), LK(I)’ 

ОРЕМ (1,FILE = ’DASPLY’) 


READ(1, *)XH(I), УР(І), І-і, МЕ) 


READ(1, *)(1К(1), Ізі, МЕ) 
У\УЕТТЕ( +, 100) 

FORMAT)//30X, “ORIGINAL РАТА’ //) 
\ЕТТЕ( +, 150)(НСГ), VP(I),I =1, МЕ) 
FORMAT(8F8.2) 

WRITE(», 200)(LK( I), I=1, NF1) 
FORMAT(/4X, 2014) 

CALL EMERGE(H, VP) 

END э 


SUBROUTINE ЕМЕВСЕ(ХН, ХҮР): 
COMMON /М/МЕ, NFI, MC, НО 


COMMON /АВ/А(50), B(50),LK(50), рЕІТА (1000), 
TRAVL(1000) 


DIMENSION ХН(50), ХУР(50), ЕАСВАО(50), 


-298. 


10 


20 


30 


40 


50 


60 


FACVEL(50), АУ(50), АК(50) 
DIMENSION КАРіІ(2000), VELI (2000) 


DIMENSION ЕТВ(50,2), УТВ(50,2), ВТВМЕМ (50,2) ' 


ҮТВМЕУУ(50, 2) 
РО 10 1-1, МС 
ВАБГ( 1) =6371.0-НО-2.0* FLOAT(I-1) 
DO 20 І-1, МЕ 
ЕАСВАО_ Г) = 6371,0- XH(I) 
FACVEL(I)= ХУР( ТГ) 
CONTINUE 
DO 30 І-1, NF1 
RTB(I, 1) = FACRAD(I) 
RTB(I, 2)- FACRAD(I+1) 
VTB(I, 1) = FACVEL(I) 
VTB(I, 2)= FACVEL(I+1) 
CONTINUE 
DO 60 I=1, NF1 
IF(LK(I).EQ.1) GO TO 40 
IF(LK(I).EQ.2) GO ТО 50 


A(1)=(VTB(I,1)-VTB(1,2)/(RTB(I,D) ~ RTB(I ›2) 


В(1)-УТВ(1, 1) - А(1) * RTB(I, 1) 
СО ТО 60 

А(Т)=0.0 

ВСІ)-УТВ(І, 1) 

СО ТО 60 


В(І)- АПОС(УТВСІ, 1) /УТВ(І, 2))/ALOG(RTB 


(1, 1)/RTB(I, 2)) 


4 


A(I)=EXP(ALOG(VTB(I, 1)) –- В(І) • АТОС 


(ЕТВ(І, 1))) 
CONTINUE 


‚ DO 160 1=1, МС 


DO 100 7-1, МЕ1 


«399. 


-一 一 -一 


100 


140 


150 
160 


210 


220 


230 


240 


260 


IF(RADI(I).LE,RTB(J, О)М-3 

CONTINUE 

IF(LK(M).EQ.1) GO TO140 

IF(LK(M).EQ.2) GO ТО 150 

УЕБГ(Т) =А(М) • RADI(I)+B(M) 

СО ТО 160 | 

ҮЕІ,І(І)-УТВ(М, 1) 

СО ТО 160 

УЕГГ(Т) =А(М) * ВАОТСТ) + «В(М) 

CONTINUE 

WRITE( +, 210) (FACRAD(I), Ізі, МЕ) 

FORMAT(//30X, ‘FACRAD’//(10F8.2)) 

WRITE(*, 220) (FACVEL(I), 1=1, МЕ) 

БОВМАТ(//30Х, ”БАСУЕІ,”//(10Е8,2)) 

\УВТТЕ( *, 230) ((ВТВ(І,Ј), УТВ(І, J),J=1, 2), 
І-1, МЕ!) | | 

РОЕМАТ(//30Х, ’ТНТСКМЕ$$ AND VELOCITY’, 
//(10F8.2)) 

ҮҮКІТЕ(«, 240)(A(I), B(I), Ізі, МЕ!) 

FORMAT(//,30X,’ COEFFICIENT OF А AND В”, 
//, (2E30.10)) 

WRITE( +, 250) (RADI(I), VELI(I) 1=1, МС) 

FORMAT(//, 30X, ‘RADI AND VELI’, //, (6X, 
8Е8.2)) 

ҮҮЕІТЕС», 260) 


ЕОКМАТ( /9Х, МО’, 5X, “H”, 8X, 'R', 11X, ғу, 


8X, ?Р”, 10X, 'DS', 8X, 'TS’) 
DO 350 I=1, MC 
DO 310 J =1, МЕ! 
ТЕ(ВАРТ(Т).ТЕ.ВТВСУ, D)M= J 
CONTINUE 
DO 320 K=1, M 


.400° 





320 


339 


DO 320 1-1, 2 

ВТВМЕМ(К, J)=RTB(K, J) 

VTBNEW(K, Ј) =УТВ(К, J) 

CONTINUE | 

RTBNEW(M, 2)=RADI(I) 

VTBNEW(M, 2)=VELI(I) 

P=RADI(I)/VELI(I) | 

CALL РЕГТВА(М, P, RTBNEW, VTBNEW,DS,TS) 

IF(DS.EQ.0.0) СО ТО 350 

НН = 6371,0- RADI(I) 

WRITE(。，330)TI，HH,RADI(CI),VELI(I),P,DS,TS 

ЕОКМАТ(/, 6X, 14, 2X, Е8.2, 2X, Е8.2, 2Х,Е8.2, 
2Х, Ев,2, 2X, Ев,2, 2X, Е8.2) 

CONTINUE 

RETURN 

END 


SUBROUTINE DELTRA (M, P, RTBM, VTBM, 
DSUM, TSUM) | 

COMMON /АВ/А(50), В(50), LK(50), DEĻTA(1000), 
TRAVL(1000) 

DIMENSION RTBM(50, 2), УТВМ(50, 2) 

DSUM=0,0 
Т50М-0.0 

DO 200 Ісі, М 

AI=ACI) — 

ВІ-В(1) 

RT=RTBM(I, 1) 

RB= RTBM(I, 2) 

VT=VTBM(I, 1) 

VB=VTBM (I, 2) 

PVT=P*VT 


401: 


PVB=P* VB 

IF(RT,LT.PVT) GO TO 210 
IF(RB.LT.PVB) GO ТО 210 

SPVT= SORT(RT* ВТ- РУТ + PVT) 
ЗРУВ = ЗОВТ(ВВ + RB- РУВ*РУВ) 
IF(LK(I).EQ.1) GO ТО 100 
IF(LK(I).EQ.2) СО ТО 150 
С=1.0-(АТ»Р) + +2 

ВВ = ВІ/АВЅ(ВІ) 

АВА ~ ABS(AI) 

АВВ = АВЅ(ВІ) 
АВАВ = АВЅ(АІ + ВІ) 

ТЕ(С.СТ.0) GO ТО 60 

IF(C.LT.0) GO ТО 80 

ВАІ = ~ ВВ • АІ 

SBAI = - АВЅ(ВІ/АІ) 

ВАВТ = ВАІ + ЅВАІ/ВТ 
BARB= ВАІ + ЅВАІ/КВ ` E 
IF(ABS(BART).GT.1.0) СО TO 210 
IF(ABS(BARB).GT.1.0) GO ТО 210 
АЕВІ--1,0-2,0« А1» RB/BI 

АВТ! = -1.0-2.0* АТ» RT/BI 
IF(ARBI.LT.0.0) СО ТО 210 
1Е(АВТГ,ГТ.0.0) СО ТО 210 
DSUM =050М + ВВ + (ЅОВТ(АВВІ) - SQRT(ARTI) 

+ АЅІМ(ВАВКТ) - АЅІМ(ВАВВ)) 

ҮТВІ-1,0-2,0«УТ/ВІ 

VBBI =1,0-2,0* УВ/ВІ 
IF(VTBI.LT.0.0) СО ТО 210 
ІЕ(ҮВВІ,ІТ,0,00 СО ТО 210 
DQVT=SQRT(VTBI)-1.0 

SQVB= SQRT(VBBI) -1.0 


402. 


60 


IF(SQVT.LE.0.0) СО ТО 210 

IF(SQVB.LE.0.0) СО ТО 210 

TSUM=TSUM-BB/ABA * (ЅОВТ(УТВІ) ~- SQRT 
(УВВТ) | 
1+ АГОС (5ОУТ/($ОУТ+2.0))- ALOG(SQVB/ 
(SQVB +2,0))) 

СОТО 90 

SC= SQRTCC) 

РАВ-Р»АВВ 

АРВ = -А!*Р*+ ВВ 

АРВТ=АРВ-РАВ/КТ 

АРВВ= APB- РАВ/ВВ 

ТЕ (АВЗ(АРВТ).СТ.1.0) СО ТО 210 

ТЕ(АВЗ(АРВВ).СТ.1.0) СО ТО 210 

АВР5-АТ»ВІ»  Р»«Р/5С 

SQTP=SPVT+RT + SC- ABPS 

SQBP = SPVB + ВВ * SC- ABPS 

ТЕ(ЗОТР.ТЕ.0.0) СО ТО 210 

IF(SQBP.LE.0.0) СО TO 210 

DSUM=DSUM1AI*P/SC*(ALOG(SQOTP)- АТОС 
(ЗОВР)) + ВВ + (АЅІМ(АРВТ) – ASIN(APRB)) 

BISC= BI/SC | 

АЅУТ = АВА + SPVT+VT + $6- BISC 

АЗУВ = АВА + SPVB + УВ ‹ SC— BISC 

АЗАТ = (АВА • ЗРУТ+АВВ)/УТ- ВВ 

АЗАВ = (АВА + ЅРУВ + АВВ)/УВ- ВВ 

ТР (АЗУТ.ТЕ.0.0) СО ТО. 210 


ТЕ(АЗУВ.ТЕ.0.0.) СО ТО 210 


ТЕ(АЗАТ.ТЕ.о.0) СО ТО 210 
IF(ASAB.LE.0.0) СО ТО 210 
Т$ОМ = ТЅОМ +1.0/(АВА + SC) + (АГОС(АЗУТ) 
- ALOG(ASVB)) + ВВ/АВА + (ALOG(ASAT)- AL 


*403 


ОС‹АЅАВ)) 
СО ТО 90 

80 5С-5ОВТ(-С) 
PAB=P+* ABB 
АРВ-А1,Р» ВВ 
СВТ= - С• КТ/РАВ + АРВ 
СВВ= -С*+ВВ/РАВ+ АРВ 
А1В= - Ат» ВВ 
АТРТ=(АТВ-АВВ/КТ) *Р. 
АТРВ = (А1В- АВВ/ВВ) * P 
ІЕ(АВ5(СЕТ),СбТ,1,07 СО ТО 210 
ТЕ(АВ$(СВВ).СТ.1.0) СО ТО 210 
ІЕСАВЅ(АІРТ),СТ,1,0) СО ТО 210 
ІЕ‹АВЅ(АІРВ), СТ,1,0) СО ТО 210 


DSUM =DSUM + А! * Р/5С + (АЅІМ(СВТ) - ASIN 
«СЕВ)) 


+BB* (ASIN(AIPT)- ASIN(AIPB)) 
РВВ=Р. АВАВ | и 
СУТ=(-С+УТ+ВГ/РВВ 
СУВ-(-С«УВ-БІЗ/РВВ | 
ТЕ(АВЗ(СУТ).СТ.1.0) СО ТО 210. 
ІЕСАВ5(СУВ),бТ,1,0 СО ТО 210 | 
АЗАТ = (АВА *SPVT+ABB)/VT-BB 
АЅАВ = (АВА + SPVB + ABB)/VB- BB 
IF(ASAT.LE.0.0)GOTO 210 
IF(ASAB.LE.0.0)GOTO 210 
TSUM =TSUM +1.0/(АВА * SC) (ASIN(CVT) -ASIN 
(CVB)) + ВВ/А ВА + (АГОС(АЗАТ) -ALOG 
(А5АВ)) 
90 CONTINUE 
GO ТО 200 | 
100 DSUM=DSUM-ASIN(P+BI/RT)+ASIN)P+BI /R ` 
B) 
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TSUM =TSUM+(SQRT(RT . RT- (P* BI)* *2) 
– SQRT(RB* ЕВ(-Р» ВІ) • *2))/BI 
GOTO 200 
150 ET=RT/VT 
EB=RB/VB 
DSUM =DSUM + (ASIN(P/EB)- ASIN(P/ET))/(1 -~ BI) 
TSUM =TSUM + (SORT(ET* ET- P*P)-SORT(EB: 
EB-P* P))/(1- BI) 
200 CONTINUE 
DSUM =2* DSUM * 57.29578 
TSUM =2* TSUM 
GO TO 200 
210 DSUM =0.0 
TSUM -0,0 
220 RETRNU 
END 


(二 ) 地 球 内 部 速度 分 布 反 演 程 序 
本 程序 利用 地 面 观测 前 体 波 走 时 , 根据 Herglotz-Wiechert 
方法 反 演 地 丈 内 部 纵向 速度 分 布 。 为 了 取得 较 好 的 反 演 结果 , 对 
实测 走时 直线 按 三 次 样 条 函数 进行 平滑 处 理 。 
(一 ) 标识 符 及 子 程序 说 明 
N 一 一体 波 走时 曲线 的 实际 测 点 数 。 
мне. 
R0 一 一 地 球 平均 半径 、6371.0 公 里 。 


СЕН--Ш ЖЕ о 
RC 一 一 测 沉 后 地 球 半径 RC= 6371 ~ СЕН, 
C 一 一 工作 单元 о 


D0 一 一 观测 震中 距 ， 一 维 数组 。 

TI 一 一 走时 观测 值 ， 一 维 数组 。 | | 

TRA 一 一 用 样 条 函数 平滑 播 值得 到 的 走时 ， 一 维 数组 。 
“405。 





DEL 一 一 接点 距 DLIL 加 密 得 到 的 震中 上 下， 一 维 数 组 。 

R 一 一 反 演 计算 求 得 的 射线 穿 透 半径 ， 一 维 数组 。 

V 一 一 反 演 计算 求 得 的 速度 分 布 值 ， 一 维 数组 。 

T 一 一 反 演 计算 求 得 的 相应 射线 的 走时 ， 一 维 数组 。 

D 一 一 反 演 计算 求 得 的 相应 射 级 的 震中 距 ， 一 维 数 组 。 

DG 一 一 反 演 计算 求 得 的 相应 射线 的 穿 透 深度 ， 一 维 数组 。 

P 一 一 样 条 平滑 播 值 求 得 的 走时 微 高 dT/d4A， 一 维 数组 。 

PP 一 一 相应 的 走时 二 次 微 商 4d *T/dA*， 一 维 数组 。 

DLT 一 一 走时 观测 标准 误差 估计 值 。 

ЗРЬМ(М, К, X, У, DS, F, ҒІ, Е2) ЕДЕ 
平滑 插值 及 求 走时 微 商 子 程序 。 其 中 各 形 参 为 : 

NN 一 一 实测 值 结 点 个 数 。 

K 一 一 插值 点 数 ，K = 2% М—1, 

X— АННАН ЖЖ. 

Y 一 一 存放 结 点 纵 坐 标 ( 走 时 ) 的 一 维 数组 。 

DS 一 一 存放 插值 点 横 坐 标的 一 维 数组 。 

Е ААА ЖЖ. 

下 1 一 一 存放 播 值 点 一 次 微 商 值 的 一 维 数 组 。 

F2 一 一 存放 插值 点 二 次 微 商 值 的 一 维 数组 。 

SM(N, X, У, DY, $, N3, А, В, С, DD) 一 一 样 条 函数 
平滑 子 程序 ， Ареал. 

№ X, Y 








第 1 个 结 点 的 相 刘 数 ， TRY 的 标准 误差 信 计 值 ，~ 
и. 





控制 平滑 程度 的 参数 。 
N3 一 一 工作 单元 。 
А, В, С, 了 DD 一 一 存放 三 次 样 条 函数 各 系数 的 一 维 数 组 。 
(2) FORTRAN-77 语言 程序 

С THIS PROGRAM IS DESIGNED FOR HERGLOTZ- 
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WIECHERT INVERSE 

IN THE MODEL OF SPHERICAL LAYERS 

DIMESION DO(100), ТО(100), DEL(0:400), TRA 
(0:400), Р(0-400), 

РР(0.400), R(0:200), Т(0:200), У(0:200), D0; 
200), DG(0:200) 
PAUSE “ІМРОТ СЕН” 

В0=6371.0 

С =0.017452925 
READ *, СЕН 
RC=R0-CRH 


.PAUSE’INPUT N, M’ 


READ +, М, M 

К=2*М-1 

ОРЕМ(1, FILE = '5ЕРАТ”) 

ВЕАБ(1, *)(D0(1), І-1, М) 

ВЕАО(1, *)(TO(D, 1=1, М) 

PAUSE “ІМРОТ DLL’ 

РЕАр», DLL 

DO 10 1=0, К | 

DEL(I) = DLL + ЕГОАТ( 1) /2 

CALL SPLN(N, K, ро, ТО, DEL, TRA, P, РР) 

WRITE( +, 80) 

WRITE(*, 100)(D0(D, TO(D, I=1, N) 

WRITE(* 85) Б 

WRITE(*, 100) (DEL(I), TRA(D, P(D, PP(D, 
I=1, K) | 

DO 30 I=1, M 

D(D =DEL(2* 1-1) 

Т) = ТВА (2+ I-1) 

DO 411 1-1, М 

РІ=Р(2• 1-1) 
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PI1 = P(1)/IP 
Q=ABS(PIl* РІ1-1,0) 
S=ALOG(PI1+ SQRT(Q)) 
IF(I.LT,2) GO ТО 9 
ММ =2*+ (1-1) 

РО 50 J =2, ММ, 2 
РЈ12=Р(Ј +1)/PI 

РЈ11= P(J)/PI 
S1=PJI1* PJI1-1.0 
S2=PJI2* PJI2-1,0 


S1=PJI1+SQRT(ABS(S1)) 
S2=PJI2+SQRT(ABS(S2)) | 
50 S=S+40* АТОС(АВЅ(51)) +2,0• ALOG(ABS(S2)) 


9 5=5/6,0*+ РЕГ. * С 


К(І) = КС/ЕХР(5/3,14159265) 


V(D =(R(D/PD * С 
411 CONTINUE 

DO 60 I=1, M 
60 DG(D =R0- R(D 


80 FORMAT (//, 12Х, ”“БІЗТАМСЕ”, 12X, “TIME”, 
12X, ‘DISTANCE’, 12X, 


1'TIME”, /) 


85 ЕОВМАТ(//, 12X, ‘DISTANCE’, 12X, ’TIME’, 


16X, ”Р”, 16X, РР”, 
WRITE (+, 90) 


N 


WRITE», 100)(D(D, Та), Оса), V(I), I=1, М) 
90 ЕОВМАТ(//, 12X, ’DISTANCE’, 12Х,”ТІМЕ”,14Х, 
DEPTH’, 12X, VELOCITY”, /) 


100 FORMAT(4F18.4) 
END 


SUBROUTINE SPLN(N, 


FURL 


K, X, Y, DS, F, F1, F2) 


10 


91 


93 


20 
95 


DIMENSION DY(100), А(100), В(100), С<100), 

(100), X100), 

Y(100), DS(0:400),F(0:400), Е1(0.400), Е2(0,400) 
S=N | 
PAUSE 'INPUT DLT’ 

РЕАр» DLT 

DO 10 I=1, N 

DY(D = DLT 

Ni=N+1 

CALL SM(N, X, У, БУ, $, N1, А, В, С, D) 
F(1) = A(1) 

F11) = B(1) 

Е2(1) =2.0*С(1) 


M5=2 


DO 20 I=2, K 

IF(DS(I).LT.X(M5)) GO TO 93 

M5=M5+1 

IF(M5-N) 91, 91, 95 

M3=M5-1 

E = DS(I) - X (M3) 

Е(1) = A (M3) + B(M3) * E+C(M3) + Ее E+ D(M3) • 
Е: Е. E | 

F1(D = В(М3) +2.0* С(М3) + Е+3.0* D(M3) • E* E 

F2(I) =2,0• C(M3) +6.0* D(M3) + Е 

CONTINUE 

RETURN 

END 


SUBROUTINE SM(N,X,Y,DY,S, N3, А, B, С, D) 
DIMENSION Е(101), В1(101), В2(101), У(101), 


U(101), Т(100), Т1(100), 
Х (100), Х(100), 2У(100), А(100),В(100), С(100), 
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0 (100) 
R2(N) =0.0 
R2(N3) =0.0 
В104) =0.0 
R1(1) =0.0 
R(1) =0.0 
ОМ) =0.0 
U(N3) =0.0 
U(I) =0.0 
P =0.0 
Мі-М-і 
91 H=X(2)- X(1) 
Е=(Ү(2)-Ү(1))/Н 
DO 10 1=2, N1 
С-Н 
Е-Б 
H=X(I+1 - X(D 
F =(Y(I+1) = Y(D)/H 
Ай)-Е-Е 
Та) =2.0* (G+H)/3.0 
Т1СІ)-Н/3,0 
200) =DY(-1)/G 
R(I) =DY(I+1)/H 
SGJ =1.0- DY(1)/G- DY(D /H 
10 R1(D =SGJ -1,0 
DO 20 I=1, N1 
B(I) =R(D * *2+R1(I e e 2+R2(I)* + 2 
СО) = ВО) * RI(I+1) +100 * R2(I+ D 
20 DOD =R(D * R2(I+2) 
DO 30 I=2, Мі 
_ IFG(I.GT.2) GO TO 913 
В (1) =1.0/(В(1) +P» I(T)) 
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50 


Ө(І)-А(О 

СО ТО 914 

R1(I-D =F* R(I- D 

R2(I-2) =G В (1-2) | 

R(D =1.0/(B(D +Р• T(D) -F+ R1(I- D - G+ В2А- 2)) 
U(D=A(G(D-Ri1G(-D e UG- 1) - R2(I-2)e U(I- 2) 
F=C(D+Pe TI(D - He R1(1-1) 


G=H 

H=D(D 

DO 40 I=2, N1 

NI=N1-I+2 

ОМ) =R(ND* U(ND- RI(ND * U(NI+1) ~ R2(ND 
* U(NI+2) 

Е-0.0 

Н -0.0 

РО 50 1-1, М1 

G=H 


H=(U(I+1 -U(D)/(OX(I+1)- X(D) 
V(I = (Н- G)» DY(D 

Е-Е +Ү(р • +2 | 
У(М) =U(N1i)/ (X(N) - X(N1)) * DY(N) 
Е =Е+У(М) = * 2 

WW = S + 0,000000001 

IF(E,LE.WW) СО ТО 920 

Е =0.0 

GG =0.0 

H = X(2) —- X(1) 

С-Н/3,0» (U(1) +2,0 * 0 (2)) 

DO 60 I=2, N1 

H1=H 

G1=G 

H=X(I+1)- X(]) 
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С2= Н/3,0• (2,0% (СГ) +U(I+1)) 
С-Н/ҙ,0(0(1)-2,0» U(I+1)) 
Е=Е+ (С1+С2) » U(1) 
IF(I.EQ.2) СО ТО 950 
ІЕ(І,Е0.3) СО ТО 951 
АЯ) -(б61%62-ВІК(І-1)«А(1-10/5ОВКТ(В (1-0) 
Р2(1- 2) • 
A(I-2)/SQRT(R(I-2)) + SQRT(R(D) ` 
GOTO 919 
950 A(D = (61+ С2) + ЗОЕТ(Е(І)) 
GOTO 919 
951 А( =(G1+G2-R1(I- * A(I-1)/SQRT(R(I-1))) 
* SQRT(R (D) 
919 GG=GG+A(CGI) * +2 
60 CONTINUE 
P=P+(E~ SQRT(S* E))/(F -P+ GG) 
GOTO 91 
920 DG 807 I=1, N 
А (1) =Y(D - DY(D + V(I) 
C(D = Р. 9 (1) 
807 CONTINUE 
РО 90 І-1, Мі 
H=X(I+1)- X(1) 
D(D =(C(I+)) -C(D)/(3,0 * Н) | 
ВО) -(А(1Ғ)-АСУ)/Н-«Н» D(D +C(D) * H 
90 CONTINUE | 
RETURN 
END 


(=) 有 低速 层 分 布 时 地 球 内 部 速度 反 演 程序 
本 程序 利用 地 面 观测 走时 昌 线 计算 射线 参数 p， 反 演 地 球 内 
部 的 纵向 速度 分 布 。 本 程序 仅 允 许 含 一 个 低速 层 。 
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(一 ) 标识 符 及 子 程序 

N，M，CRH 一 一 与 附录 二 同 。 

ріл, ии, 

D0，T0 一 一 与 附录 二 同 。 

DET0 一 一 经 插值 加 密 后 的 点 距 ( 度 )， 一 维 数组 。 

DET-- 一 经 低速 层 水 平 距离 校正 后 的 点 距 〈 度 )， 一 维 数 





组 。 
P0 一 一 经 插值 加 密 后 的 走时 曲线 计算 的 射线 参数 ( 秒 / 度 )， 
一 维 数组 心 


”RL，VL 一 一 分 别 为 低速 层 的 半径 及 速度 分 布 ， 一 维 数 组 。 
DLT 一 一 走时 观测 标准 误差 们 计 值 。 

PL 一 一 低速 层 顶 部 的 射线 参数 极 大 值 。 

DI 一 一 低速 层 项 部 的 深度 。 
К-т Ж. 

HL 一 一 低速 层 中 各 分 层 的 厚度 ， 共 k 个 层 。 

THL 一 一 低速 层 的 总 厚度 ，THL = (k— 1) * HL, 
VI 一 一 低速 层 中 各 薄 层 的 速度 分 布 ， 一 维 数组 。 
EL 一 一 震中 距 的 积分 函数 。 
DR 一 一 半径 积分 元 dr。 
ЮРА ар. 

NQ 一 一 计算 射 组 最 低 扎 的 个 数 。 

RaQ 一 一 射线 最 低 氮 相应 将 半径。 

HQ 一 一 射线 最 低 点 的 深度 (6371.0- КО), 

Q- 一 一 射线 参数 8 值 。 

LAGR 一 一 拉 格 月 日 插值 子 程序 。 

SIMPSQ 一 一 辛 普 生 积分 子 程序 。 

SPLN 一 一 三 次 样 条 函数 平 消 插值 子 程序 。 
SM- 一 一 样 条 函数 平滑 子 速 序 。 

(二 ) FORTRAN-77 语 言 源 程序 : 
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THIS PROGRAM IS DESIGNED FOR HERGLOTZ- 
WIECHERT INVERSE 


IN THE MODEL OF SPHERICAL LAYERS WITH 
LVL 


COMMON/NM/N, M 

COMMON/DT/D0(300), T0(300), DET0(600), 
DET(600), P0(600) 

DIMENSION RL(30), VL(30), RL1(300), VL1(300), 
БІ,(300), D(1000), P(1000), F(1000) 

PAUSE “INPUT М, М, СЕН” 

READ +, М, М, СЕН 

OPEN, FILE=’SEDAT’) 

READ(1, *)(D0(D, І-1, N) 

READ(1, •)(Т0(1), I=1, N) 

PAUSE 'INPUT DLL’ 

ВЕАПр», DLL 

ҮУЕІТЕ(», 5) №, М, CRH, DLL 

FORMAT(/,25X,“'H- W INVERSION WITH LVL’,/, 
15X, 'N =, 13, 6X, *М = 13, 6X'CRH = °, F4.1, 
6X, ’DLL =’, F5.2/) 

DO 10 I=1, M 

DETO(I) =DLL = FLOAT(I-1) 

CALL SPLN : 

WRITE(* 15) 


WRITE(*, 1002(00(), Т0(1), 1=1, М) 


FORMAT(//, 12X, ”ПІ5ТАКСЕ”,12Х,”ТІМЕ”, 12X, 
’DISTANCE’, 12X, “TIME”, /) 


- ЖХҮКІТЕ(,, 80) 


WRITE(*, 100)(РЕТО(Ю, PO0(D, І-1, М) 
PAUSE ІМРГИТ РІ, DL’ 
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ВЕАО., РГ, DL 
В-180,0/3,141592653 

DO 20 Ісі, М 

P0(I) = В • Р0(1) 

DET0(D = DET0(D /В ` 

PAUSE ‘INPUT К, THL’ 
READ •,К, THL 

PAUSE 'INPUT УІІ)” 
READ», (VL(D, I=1, К) 
WRITE(*, 25)PL, DL, K, THL 


FORMAT(/, 12X, 'PL =”, F6.3, 6Х, 'DL =”, 


22 6X, ‘K=’, 12, 6Х, 'THL =”, F6.2, /) 
WRITE(*, 28) (УГ(1), 1=1, К) 


Е6.2, 


ҒОВМАТ(/, 25Х, “一 -L-V-L- -” /, 12Х, 828.3) 


РТ, = РІ. + В | 

HL = THL/FLOAT(K - 1) 

ВІ (1) =6371.0- DL 

ро 30 J =2, К 

RL(J)=RL(J -D-HL 

DR = HL/10,0 
Кі-(К-1)410-1 
LR1G)=RL(1) 

VL1(1) =VL(1) 

DO 40 J =2, К! 
RL1GI)=RL1(J-1)- DR 
RL2=RL1(J) 

CALL LAGR(K, RL, VL, RL2, VL2) 
УГ.1 (1) = VL2 | 
DO 333 Ісі, М 

DET(I) = DET0(D 

PP = POI) 

IF(PP,GE,PL) GO ТО 333 
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DO 50 7-1, КІ 
Х=ВГ: (1) /УГ1 (1) 
Х= ВІ1(7Ј) * ЗОВТ(АВ$(Х + X- PP* PP)) 
50 FL(J) =РР/Х | 
CALL SIMPSO(K1, DR, FL, $) 
$3=2,0* 5 
рЕТ(І) = рЕТО(1) -S 
333 CONTINUE 
Мі =IFIX((P0(1)- P0(M))/0.5) 
N1 = 3№1 +1 
0(1) = РЕТ) 
DO 70 І-1, М1 
Р(Т) = Р0(1) - ЕГОАТ(1- 1) • 0,5 
Р1 = P(D | | 
CALL LAGR(M, P0, DET, P1, РЕТР) 
70 D(D =DETP 
WRITE(*, 80) 
WRITE (ж, 100)(D(I), P(D, I=1, N1) 
МО =(N1-1)/10 
WRITE(* 130) 
DO 555 І-1, МО 
№2=10* 1+1 
Q= P(N2)- 0,01 
DO 90 72-1, № | 
90 F(J)=D(J)/SQRT((P(J)+Q) * )P(J) — Q)) 
CALL SIMPSO (М2, 0,5, F, SO) 
SO = SO/3.141592653 
RQ = (6370.0- CRH)/EXP(SO) 
IF(Q.GE,PL) GO TO 95 
RLB= RL(K)/RL() 
RO=RQ* RLB 
95 НО-6371,0- RQ 
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VQ = RQ/Q 

WRITE(* , 120) І, Q, ЕО, НО, УО 

CONTINUE 

FORMAT (//,12X,“ DISTANCE’, 9X,’RAY P,’ 11X, 

DISTANCE’, 11X, 'RAY P.”, /) 

FORMAT(4F18.4) 

FORMAT(15X, I4, 5Х, Е8,3, 5Х, Ев,2, 5Х, F7.2, 
5Х, F6.2) Е 

ЕОКМАТ(//, 18X, ”МО”, 8X, 'P0”, 11X, 'R', 12X, 
“Н”, 11X, У’) | 

END 


SUBROUTINE ГАСВ (N, X0, Y0, X, Y) 
DIMENSION X0(600), Ү0(600) 

I=1 

IF(X,GT.0.5* (XO(I+1)+X0(I+2))) GO ТО 30 
IF(X.LE.0.5* (X0(N-2) + X0(N-1))) GO ТО 20 
I=I+1 

GO ТО 10 

I=N-2 

МА =I+2 

Ү-0,0 

DO 6 J =I, МА 

РА-1,0 2: 

DO 5 K=I, МА 

IF(J -К)4, 5, 4 

РА = РА • (Х- X0(K))/(X0 (J ) - X0(K)) 
CONTINUE . 

У =У+РА • У0(1) 

ВЕТОВМ 

ЕМІ 
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SUBROUTINE SIMPSO (М, Н, Е, 5) 
DIMENSION Е(1000) 
S=F(1) + F(N) 
N1=N-1 
N2=N-2 
DO 2 I=2, N1, 2 

2 S=S+4.0* ЕСГ) 
DO 3 1-2, №, 2 

3 S=S+2.0* ЕСГ) 
S=H=<=S/3.0 
RETURN 
END 


SUBROUTINE SPLN 
COMMON /мм/м, M 
COMMON /DT/DO(300), T0(300), DET0(600), 
DET(600), P0(600) | 
COMMON /АВ/рҮ(300), А(300),В2200). С(300), (300) 
2 S=N 
PAUSE'INPUT DLT’ 
READ», DLT 
WRITE(*。，5) DLT 
5 FORMAT(/, 12X, 'DLT =”, F5.2, /) 
DO 10 I=1, N 
10 DY(D =DLT 
N1=N+1 
CALL SM(Do, То, $, №) 
DET(1) =A(1) 
Р0(1) = В(1) 
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91 


93 


20 
95 


91 


М5-2 

DO 20 1=2, 2* M 

IF(DET0(I),LT.D0(M5)) GO TO 93 

M5=M5+1 

ІҒ(М5-М)91, 91, 95 

М3 =М5-1 

Е = DETO - D0(M3) 

DET(D = A(M3) + B(M3) + E + C(M3) + Es E+ D(M3) 
“Е»Е»Е 

POCI) = В(М3) +2.0-С(МЗ) + Е+3,0 + О(МЗ) + Е* Е 

CONTINUE 

RETURN 

EN D 


SUBROUTINE SM(X, Y, S, М3) 
COMMON/NM/N, M 


COMMON/AB/DY (300),A(300),B(300), С(300), D(300) 


DIMENSION R(300),R1(300),R2(300),V(300) U (300), 


T(300), Т1(300), Х(300), Ү(300) 
R2(N) =0.0 

R2(N3) =0.0 

R1(N)=0.0 

R1(1) =0.0 


К(1) =0.0 


U(N) =0.0 
U(N3) =0.0 
041) =0.0 
Р-0,0 
МІ-М-І1 
H=X(2 -X1 


Е = (Ү(2) -Y(1))/H 
DO 10 I=2, № 
G =н 
Е-Е 
Н=Х(1+1) -Х(1) 
F=(Y(I+1)- Y(D)/H 
A(D=F-E ` 
Та) =2,0* (G+ H)/3.0 
T1(D =H/3.0 
R2(D =DY(I-1)/G 
R(D =DY(I+1)/H 
SGJ =1.0- DY(D/G- DY(D/H 
10 КІС)-5С1-1,0 
рО 20 Т=1, М1 
В(1) =R(D * *2+R1(D + *2+ R2(D * +2 
C(D = ВО) е Е1(1+1) +R1(D + R2(I+1) 
20 D(D =R(I • R2(I+2) 
DO 30 I=2, N1 
` IF(I.GT.2) GO ТО 913 
 R(D =1.0/(B(D +P+ T(D) 
U(D = A(1) 
GO ТО 914 
913 БКІ(І-13-Е» R(I-1) 
R2(I-2)=GeRI-2) 
R(I)=1.0/(B(D +P» T(I)- F» КІ(І-1)-С» R2(I-2)) 
000) = А(0 - R1(I-1)* U(I-1)-R2(I-2)'* U(I-2) 
914 Е=С(0) +Р• ТІС)-Н»ж R1(I-1) 
беН 
30 H=D(D 
рО 40 1=2, № 
Мт= №1- 1+2 
40 U(ND=R(ND* U(ND-R1(ND * U(NI+1)- R2(ND 
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-UNI+2) 

E=0.0 
H=0.0 
DO 50 1=1, № 
G=H | 
H=(U(I+1)-U(D)/(X(I+1)- X(D) 
V(D =(H- 6) • DY(D 

50 E=E+V(ID e «2 
V(N)=U(N1)/(X(N)- X(N1))* DY(N) 
E=E+V(N)* +2 
WW=S+0.000000001 
IF(E,LE.WW) GO ТО 920 
F=0.0 
GG=0.0 
Н-Х(2)-Х(1) 
G = Н/3,0• (0(1)%2,04 0(2)) 
РО 60 І-2, МІ 
Ні-Н 
G1 = G 
Н=Х(1+1)-Ха) 
G2=H/3.0* (2.0* U(D +U(I+1)) 
G = Н/3,0• (ÜU(D +2,0• U(I+1)) 
F=F+(G1+G2)» U(D 
ІЕ(І,Е0.2) GO TO 950 
IF(I.EQ.3) GO ТО 951 
А(Г)=(61+62- R1(I-1)* A(I-1)/SQRT(R(I-1)) 

- В2(1-2)* 
A(I-2)/SQRT(R(I-—2)) + SQRT(R(D) 

GO TO 919 | 

950 A(D = (61+ С2) • SQRT(R(D) 

_ GO ТО 919 
951 А(1) =(G1+G2-R1(I-1)* AG(1-1)/SQRT(R(I-1))) 
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* SQRT(R(I)) 
919 СбС=СС+А(1),» +2 
60 CONTINUE 
Р«Р-(Е-50КТ(5» ЕУ/(Е-Р» GG) 
GO ТО 91 | | 
920 DO 807 Ісі, N 
А(1) =Y(D – DY(I) = V(I) 
C(I) =P= ПСТ) 
807 CONTINUE 
DO 90 I=1, N1 
H=X(I+1)-X(D 
D(I) =(C(I+1)- C(I))/(8.0 * H) 
В(1) =(A(I1-1)- A(D)/(H-(H* рер) +C(D)* H 
90 CONTINUE 
RETURN 
END 
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第 八 章 ”用 地 震 面 波 研究 地 球 内 部 结构 


从 本 世纪 五 十 年 代 以 来 ， 世 界 各 国 地 震 学 家 广泛 地 使 用 天 然 
地 震 面 波 来 研究 地 球 内 部 的 结构 。 这 种 方法 利用 天 然 地 震 的 记录 
测定 频 散 曲线 ， 并 将 实测 的 频 散 曲线 作 反 演 计 算 ， 从 而 得 到 地 球 
内 部 结构 参数 。 | 

在 反 演 计算 时 ， 必 须 将 实测 频 散 曲线 与 理论 频 散 曲线 相 比 
较 。 尽 管 Haskell 在 五 十 年 代 初 期 就 提出 了 计算 任意 多 层 地 球 模 
型 理论 频 敌 曲线 的 矩阵 方法 。 但 在 高 速 计算 机 问世 之 前 ， 这 种 算 
法 一 直 无 法 实现 。 当时 仅 能 计算 相当 简单 的 地 球 模型 (例如 ， 单 
屋 或 双 层 介质 )。 

过 去 ， 由 地 震 记录 获取 面 波 频 散 曲线 主要 采用 峰 谷 法 ， 这 是 
一 种 目 视 对 比 的 手工 操作 法 ， 精 度 低 且 易 出 错 。1956 年 ，Sat6 等 
人 在 面 波 频 散 计算 中 引入 了 Fourier 分 析 ， 使 面 波 频 散 的 测定 建 
立 在 数值 计算 基础 上 。 

自 六 十 年 代 地 震 学 各 领域 广泛 使 用 数字 计算 机 以来, 面 
波 研 究 工 作 有 了 突飞猛进 的 发 展 。 首先 , Æ JB Haskell Ж Ё 27 
法 加 以 改进 ， 在 计算 机 上 实现 了 多 层面 波 频 散 曲线 的 快速 计算 
(Schwab 及 knopoff 等 ) 。 以 后 ,利用 数字 滤波 ， 快 速 Fourier Ж 
换 等 数学 工具 ， 也 实现 了 用 计算 机 测定 面 波 频 散曲 线 (Brune， | 
Dziewonski № Landi sman 等 )。 其 它 如 普遍 使 用 线性 反 演技 术 
对 面 波 频 散曲 线 进行 计算 ,得 出 了 地 壳 上 地 由 的 细 结 构 (Dorman， 
Braile, Knopoff, КоуасҺ&%%), | 

随 着 用 面 波 研究 地 球 内 部 结构 工作 的 广泛 开展 ， 发 现 了 不 同 
构造 环境 的 地 壳 上 地 慢 结 构 有 很 大 差异 。 用 面 波 研究 地 壳 上 地 
则 ,不 仅 可 以 获得 其 分 层 的 厚度 及 横 波 波 速 ， 还 可 以 对 地 这 及 上 
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地 强 中 的 低速 带 作出 较 好 的 测定 。 | 
本 章 讨论 面 波 频 散 的 测定 方法 ， 以 及 用 面 波 研究 地 球 内 部 结 
构 的 正 、 反 演 方法 。 


88-1 地 震 面 波及 其 频 散 


在 远 震 记 录 图 上 ， 可 以 在 S 波 后 观测 到 面 波 波 列 ， 这 是 沿 着 
两 种 介质 的 分 界面 传播 的 波 。 当 它 洛 介质 的 自由 表面 传播 时 ， 其 
能 景 主要 和 集中 在 自由 表面 附近 ， 并 随 着 深度 的 增加 能量 迅速 衰 
减 。 面 波 按 其 类 型 主要 有 Ray leigh 波 、Loue ЖЖ, 下 面 简略 
讨论 这 两 种 波 的 形成 及 性 质 。 

考虑 一 个 均 名 弹性 半空 间 ， 当 平面 SV 波 大 于 临界 角 入 射 到 
ВНЖ, Яр 波 为 沿 着 自由 表面 前 进 的 不 均匀 波 。 这 两 种 
相互 干涉 ， 便 产生 了 Raylieigh 面 波 。 

设 x，、3 轴 了 到 在 自由 表面 上 ，z WEERT, #z> 08k Z=] 

有 沿 x 方 向 传播 的 稳定 振动 。 RAREN 
$= Ае-** е io (4-2 `, 


ф = Be - h ze io t5) (8-1,1) 


式 中 c 为 简 谐 波 同 相 面 传播 的 建 度 ， 又 称 相 速度 。 殉 之 0 及 匹 盖 0， 
苑 4 及 4 随 深 度 z 增 加 而 衰减 。 
' 位 函数 $ 及 % 符 合 波动 方程 : 

- 1 92%. 


2—1 Ü ° 
V $= 2 042 


А - 1 92% (8-1,2) 
82 дг? 


式 中 ao 及 8 分 别 为 纵波 波 速 及 横 波 波 速 。 
将 (8-1.1) 代 入 (8-1.2) 式 得 


«2 с? » 
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к: 008-1). | (8-1.3) 


令 ki= a/8 及 ka=c/B， 并 根据 边界 条 件 os。 = 0 及 ass = 0， 可 以 
求 出 式 (8-1.1) 中 待定 系数 А, B 具有 非 堆 解 的 条 件 为 


(2- кё)? = 44 1-k? Tk h - (ey (52 г). (8-1,4) 


к2= с/8, W Е ЕН ср ЖЕ, ЖО) Rayleigh 
方程 。 当 ks; 具有 实数 根 时 , жЖЕауеі АЖ ИЯЛ. Ш(8-1.40 
式 可 见 ， 在 (0,1) 区 间 内 k; 至 少 有 一 个 实数 根 ， 且 ks 二 1。 由 此 
可 知 c<p8， 即 自由 表面 的 Rayleigh 波 相 速度 c 总 是 小 于 横 波 速 B 
的 ,其 质点 运动 为 道 进 的 椭圆 。 如 图 8-1-1 示 。 





而 波 传播 方向 
— 


ЕЯ 8-1-1 


对 于 Poi sson 固 体 ( 弹 性 系数 1 = 由 而 言 ， 可 以 求 得 半 无 限 空 
河中 的 让 速度 为 c= 0.91946， 即 Rayleigh 面 波 传播 速度 略 小 于 
模 波 波 这 ， 且 与 频率 @ 无 关 ， 不 产生 频 散 现象 。 

在 二 层 及 多 层 分 层 介 质 中 ， 无 论 是 Rayleigh 面 波 和 Loue 面 
波 ， 其 相 速 度 都 随 频 率 变化 ,这 种 情况 称 为 面 波 的 频 散 。 下 面 仅 讨 
论 二 层 介 质 的 Loue 波 。Loue 波 是 SH 型 的 横 面 波 ， 其 振动 方 站 


425: 


与 传播 方向 垂直 。 设 大 陆 单 层 地 壳 模 型 复 盖 层 各 有 关 参 数 为 ki， 
Ві» Pas 厚度 为 H; КЕНІН ЖУЫ: Вг, рг, № 
Loue 波 相 速 度 的 频 散 方程 为 





7 


GEDORE аза 











式 中 各 参量 的 意义 是 : 
ко 疹 层 与 半 无 限 空间 的 剪 切 模 量 比 。 
盖 层 的 横 波 速度 。 
бетен ең 
HE 一 一 盖 层 厚度 。 
k= = -到 = 下 ， 称 为 波 数 ， 它 表示 单位 距离 内 波 的 个 


数 ( 波 长 1 的 倒数 ) 。 它 是 一 个 有 用 的 参量 。 

c—— HER, АЙНУ В! <с<В». 
方程 式 (8-1.5) 给 出 了 相 速 度 c 与 频率 @ 的 关系 ， 这 是 一 个 非 
线性 函数 ， 可 以 用 第 六 章 讲 述 的 方程 求 根 法 计算 给 定 频 率 的 相 速 
度 。 

由 于 地 人 震 面 波 各 个 谐 波 波 速 的 不 同 ， 所 以 在 传播 过 程 中 ， 面 
波 波 形 将 发 生变 化 。 一 般 情况 下 是 周期 大 的 波 先 到 ， 周 期 小 的 波 
后 到 ， 这 种 现象 称 为 正 频 散 (或 频 黎 ) 。 反 之 ， 如 果 波 列 是 周期 先 
АЕ, ЖИ. НО Я ЗЕ БЕ Не РИН yE БЕЛП 
速度 两 个 不 同 的 概念 。 

在 讨论 Rayleigh 波 和 Love 波 时 ， 对 波 的 位 函数 (考虑 一 维 
情况 ?假定 为 下 列 简 谐 波形 式 ， 

p= Ав ШӨ 。 = (8-1,6) 


其 中 ， о= К. =ke, 或 c= í K 称 为 波 数 。 是 简 谐 波 同 相 
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面 的 传播 速度 ， 称 为 相 速 度 。. 

实际 上 ， 地 震波 是 由 许多 简 谐 波 迭 加 而 成 的 ， 它 们 的 频率 各 
不 相同 ， 而 且 频 率 谱 一 般 是 连续 函数 。 因 此 ， 当 各 种 不 同 频 率 成 
分 移 波 帮 加 时 ， 如 果 波 峰 丰 遇 就 会 使 振幅 增 大 。 反 之 就 会 相互 抵 
消 而 使 振 蚂 减 小 。 适 加 形成 的 大 振幅 传播 的 速度 称 为 群 速度 。 由 
于 波 的 传播 能 量 都 集中 于 大 振 蚂 处 ， 因 此 群 速度 也 表示 波 的 能 量 
传播 速度 。 下 面 来 讨论 群 速度 与 相 速 度 的 关系 。 

根据 Fourier 积分 定义 ,可 以 将 地 震波 表示 为 连续 频谱 sl@) 
或 &(К) 的 下 列 积分 形式 : 


ф(х, 1) = | gloeit edo, (8-1.7) 


或 ф(х, 1) = | C p(k)eithx-ət dk. (8-1.8) 


A g(@) № Е (К) 2 М КОИ о ЖЖК НН 
数 ， 而 波 的 相位 为 


0=0t-kx. (8-1.9) 


每 一 简 谐 波 都 以 一 定 的 相 速 度 c 传播 ，c 是 频率 о КОЕ Е 
的 函数 。 不 同 频率 成 分 的 波 在 传播 过 程 中 相互 于 涉 ， 有 的 增强 ， 
有 的 减 绊 。 在 相位 角 6 为 常数 的 波 Жк 处 ， 它们 相互 迭 加 而 使 
振 辐 增强 。9 等 于 常数 即 满足 条 件 | 


dd) -= 
dk |р, 
或 = 4. (0 —kx) 
= SOt-x=0 
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-Ce 用 | (8-1.10) 
上 式 表 示 波 数 为 ko 的 波 的 大 振幅 经 过 时 间 上 后 传 到 了 x 
处 ， 因 此 - -就 是 波 数 为 ko 的 波 的 群 速度 U， 即 





dc . _ | 
U=cTk-— . (8-1,110 
由 于 波 数 
k= 2 27. 2л 
с с À 
所 以 
4к- - 274 
因而 群 速度 又 可 以 表示 为 | 
| ас | 
U=c- А. (8-1.12> 
通常 用 于 计算 群 速 度 U 的 式 子 可 由 (8-1.10) 拓 得 
г -49.- do _ аа - С 
dk фо\ de о _@ dc ` 
(4) с 2246 | 1 са 
| (8-1.13》 
因为 eyc = 2r/Tcec， 故 上 式 又 可 以 写 为 
_ _ “C _ — — 
‘т + (8-1,14) 
с ат 


这 是 后 面 常用 到 的 群 速度 计算 公式 。 


关于 面 波 频 散 的 概念 可 由 图 8-1-2 表示 。 图 中 给 出 一 系列 以 
t= (为 起 反 ， 按 震中 距 排列 的 接收 人 台 站 记录 波形 图 。 波 列 中 每 一 
个 频率 的 波 将 以 适当 的 群 速度 通过 波 列 向 前 传播 。 对 于 给 定 的 频 
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率 此 群 速度 将 为 一 常数 ,频率 不 同 群 速度 也 不 同 . 于 是 ， 对 一 系列 
接收 合 的 波 列 给 定 频 率 的 位 置 联 线 ， 将 是 通过 原点 的 一 条 直线 。 

此 直线 的 斜率 则 是 群 速度 。 图 中 分 别 给 出 对 应 三 个 不 同 频率 @1， 

ozko: 相应 的 群 速度 U1，U2 及 U3 。A、B、C、DD 几 条 曲线 分 别 
表示 同 相位 的 联 线 。 这 些 线 上 任 一 点 的 斜率 即 为 该 点 某 一 特定 频 
率 的 相 速 度 值 。 


图 8-1-2 


58-2 测定 面 波 频 散 的 计算 方法 
应 用 计算 机 测定 面 波 频 散 曲线 ， 不 仅 可 以 提高 测定 精度 ， 还 


可 以 扩大 测定 的 周期 范围 。 因 此 ， 利 用 数字 方法 测定 面 波 频 散 罚 
线 已 得 到 广泛 的 应 用 。 | | 


(一 ) 测定 面 波 频 散 数据 的 预 处 理 
面 波 波形 的 离散 化 ， 按 Atf=1s 采样 已 能 满足 要 求 。 为 提 
高 采样 效率 ， 实 际 上 是 用 较 大 的 不 等 距 间 隔 采样 ， 然 后 用 揪 值 法 
取得 加 密 药 等 间隔 样 点 。 如 果 发 现 记 录 走 纸 速 度 不 匀 和 记录 基线 
不 水 平 ， 则 可 按 线性 插值 法 作 走 纸 速 度 和 零点 漂移 校正 。 为 了 得 
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到 真实 的 地 动 位 移 ， 还 要 作 仪器 频率 特性 校正 。 
” 由 于 Rayleigh 波 的 质点 位 移 与 入 射 面 一 致 ， Loue 波 的 质 
点 位 移 与 入 射 面 垂直 。 所 以 ， 在 测定 Rayleigh 波 频 散 时 ， 一 般 
只 取 垂 直 分 量 记录 ， 而 在 测定 Loue 波 频 散 时 ， 则 要 将 两 水 平分 
量 作 极 化 合成 ， 以 得 到 横向 的 振动 分 量 。 设 地 震 面 波 入 射 方位 角 
(以 正 北方 向 顺 时 针 旋 转 为 正 ) 为 6p， 地 震 记录 东西 向 及 南北 向 的 
分 量 分 别 为 Ag、Aw，Loue 波 的 位 移 工 与 Ray1eigh 波 水 平分 量 


cos -віпф Ак 
| (8-2,1) 
sing cos $ Ау 


ғ. 





(=) 和 群 速度 的 测定 

测量 地 震 面 波 的 群 速度 ， 主 要 是 从 地 人 震 记 录 中 测量 某 一 时 刻 
的 面 波 优势 周期 。 H T В ЕЕ Ну EE ЖЛЕ SH, ЖЕ 
Ў) to 亦 已 知 。 而 对 应 于 某 一 优势 周期 (频率 ) 的 到 时 t 可 以 从 数 
字 化 的 地 震波 形 上 测定 。 因 此 群 速度 

A 

t—t ` | 
对 一 系列 优势 周期 T 进行 测定 群 速度 UU， 则 可 以 得 到 群 速度 频 散 
曲线 。 

移动 窗 法 及 多 重 滤波 法 都 是 利用 单 台 测定 群 速度 的 数值 方 
法 。 前 者 在 时 间 域 内 ， 后 者 在 频率 域内 进行 滤波 。 下 面 分 述 这 两 
种 算法 。 | 

1. ШУ | 

移动 窗 分 析 法 就 是 沿 着 面 波 数字 化 信号 x (t) ажы, 
取 一 系列 时 间 点 t;， 以 t ;时 刻 为 中 心 乘 以 窗 函 数 多 (r)， 得 到 新 
的 时 间 信 和 号 
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О = (8-2,2) 





ZT = хі: ы туу/ (т), (8-2 .3) 
这 一 计算 过 程 相当 于 时 间 窗 沿 面 波 信号 移动 ， 故 称 为 移动 窗 分 析 


法 。 
常用 的 时 间 窗 为 半 余 弱 平 方 窗 
(cos I| <Ë, 
W (т) = (8-2,4) 
, \т|>#=. 


ЭТ АМ НЕЕ Ы ЕПЗ ЖЕ ҖЕ, ИМТ УК 
而 加 宽 。 一 般 窗 宽 约 为 分 析 周 期 的 五 倍 为 宜 。 这 是 因 为 窗口 太 
窗 ， 周 期 分 辨 率 较 差 。 窗 口 太 宽 ， 则 时 间 分 辩 率 不 好 。 

将 (8-2.3) 式 进行 Four ier 变换 ， 可 以 求 得 时 窗 中 心 对 于 时 
刻 t: КН ЯН T, ЕУ, 


Но 


.. 2 


F(t., Т) = | ЖО 117% ат 


=f 2; (т) сов(2лт/Т,)ӣт - j 


На 
2 


х} 2.6" Әвіпһ(2лт/Т,04т 
- + 


= Ref F(t;, Т,21- jImCF (ti, T.,)2, 
(8-2.5) 
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因而 求 得 其 谱 振幅 为 


Air = A(t: Th) = ІЕе?ГЕС,Т,92% Im CF(t;, Т,22)7; 
1=1, 2, ..... ‚ М, К-1, 2, ..... , м, (8-2,6) 


Аі, 是 由 到 时 t; 及 周期 T; 决定 的 谱 振 幅 。 由 元 素 A, 构成 
的 矩阵 4ww， 就 把 不 同 到 时 及 不 同 周期 了 全 部 的 谱 振 申 包 括 
在 内 。 | 

以 到 时 t ; Ам, ИТ, УЖ, ПРА 各 元 
素 打 印 在 平面 图 上 ， 将 An TARARE, HIFR AYIA 
线 。 如 图 8-2-1 示 。 | 
Т | тн 

in 如 осо 22 线 ， 纵 坐标 实际 上 标 群 速 

E Ui 信 。 因 为 窗 中 有 距 人 A 
和 发 震 时 刻 to 是 已 知 的 ， 
故 由 到 时 +t; 换算 为 群 速 
| 度 U;， 可 由 以 下 简单 公 
图 8-2-1 式 表示 





А 
.- 7 
这 样 ， 平 面 坐标 图 上 便 直 接 给 出 群 速 度 U 与 周期 T 的 关系 。 
ЖЖ ИНЕШ ШЫН, ЖАР Алм 按 以 下 方式 归 一 化 : 最 大 
振幅 А... 取 为 99 分 员 ， 其 它 各 相对 振幅 值 为 


Ато. (8-2,8) 
tR 


Ui = 





i=l, 2. e. М. (8-2,1) 


下 面 给 出 移动 窗 分 析 法 的 计算 框图 (图 8-2-2)。 

2。 多 重 滤波 法 o 

如 上 所 述 ， 移 动 窗 分 析 法 是 在 时 间 域 内 将 移动 时 Ін ІН зін 28 
信号 x(t) ХУ, ВОКАН, 然后 通 过 Feurier ҘА 
求 出 该 点 不 同 频率 的 谱 振 幅 。 与 此 不 同 ， ЕЛЕНЕ ЖЫН НИП 
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AREE A. Cio 1,2,4., 10, WEN, МЕ 
样 АЙНИ Л E И АННЕ И: X, — x, 
| (> ~ | 
TT 


ТЕПЕ r 


ЖЕҢНЕН. ДИЕТ Исто, (т) 


计算 Founer 积分 — — --- -~ 
F t. Таз = Г. ди , 43%лт/ т 


НЕ А... ООН ЖАНЫНА А, 


ИН аа Үй -化 Ағ, 





ИЕЛЕ ШЕГЕ ТЕСІШІ 


图 8-2-2 
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号 x(t) 经 Fourier 变 换 为 谱 函 数 X(Cf) 。 然后 以 不 同 的 频率 点 
为 中 心 乘 以 谱 窗 函数 ， 再 经 Fourier 道 变换 ， 求 出 该 频率 在 不 同 
时 刻 的 瞬时 谱 振 幅 。 在 各 点 频率 上 乘 以 谱 窗 函数 ， 犹 如 进行 不 同 
频率 的 滤波 ， 所 以 这 种 方法 称 为 多 重 滤波 。 由 于 快速 Fourier Ж 
换 (БЕТ) 算法 的 应 用 ， 使 得 多 重 滤波 法 的 计算 速度 和 效果 都 比 
移动 窗 分 析 法 好 ， 因 此 应 用 较为 广泛 。 多 重 滤波 法 算法 如 下 。 
首先 将 面 波 信号 x (t) 用 FFT 算 法 变换 为 频谱 函数 


х(р- ШЕ (t)e`i "hdt 
= | > (t)cos(2rmft)dt- ix(Dsin(2zyDdi 


= Re(X(f)2)— jIm[X(7/f)3, (8-2,9) 


FB хОу) АЖЫЛЫ 的 频率 窗口 
Y(f,+ f). 





S(f) =X(f)Y(f,, р. (8-2.10> 
频率 窗口 可 采用 Gauss ЖЖ 
0 тса-гуһ,. 
-a (L2 2 
ylfs, =E (1-D)f<f<G +D)/,, 
0 разг. 
(8-2,11) 


AP, f, =1/T, 为 频率 窗口 的 中 心 频率 ; T: 是 中 心 周 期 ,DD 为 
频率 窗口 的 相对 带宽 ; a 为 Gauss 函数 峰值 的 锐 度 参数 。 实 际 
计算 表明 ， 一 般 D 50.25, а 取 为 30 一 50 效 果 较 好 。 
对 (8-2 .10) 式 作 Fourier ИЖ, 
rr(lirp)ft 
h(t;. far) -| 


TD 


Хх(РУ(ь. Реза) 
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(1-3) 
-| х (үу, сов 2л :)а] 


:(172)); 


Ті сә 
"ij X(f)Y(f,,f)sin(2xfti) а) 
С170)/; 


= Веси (#;. f;))+ ј оса, , рь) 2; 
і-1, 2, ~, М, К-1, 2, ©, М, 


(8-2. 12) 
Ен, ТЕЛІ С, f.) 对 某 一 中 心 频率 为 Г, 在 时 间 为 
t: БҮЙЕН. 
Ais = А(т:, |+) = (Re °(h(t,;, fa) 
+ Im°(h(t;, f,)J)%; 
іс1, 2, --, N, K=1, 2, `“, М, 
f (8-2.13) 


由 此 ， 可 得 到 关于 到 时 t; 和 频率 у, 的 二 维 数组 。 与 移动 窗 
分 析 法 同样 ， 最 后 以 群 速度 U; 为 织 坐标 ， 周 ВАТ, (Ил 为 
横 坐 标 ， 将 经 过 归 一 化 后 的 Ai, 值 输出 ， 其 最 大 值 连 线 ， 即 是 
群 速度 的 频 散 曲线 。 图 8-2-3 为 多 重 滤波 法 计算 框图 。 


_ (=) ЖЕНИХ 
` 求 面 波 相 速度 早期 的 方法 是 Press 于 1956 年 提出 的 三 各 
法 。 从 理论 上 来 说 ， 只 要 震源 产生 的 相位 及 仪器 的 相位 移 已 知 ， 
用 单 台 记 录 便 可 求 得 震中 与 记录 人 台 之 间 介 质 的 相 速度 。 这 种 方法 
首先 由 Sato 引出 。 
若 地 震 只 激发 基 阶 面 波 ， 在 震源 距 为 /， 方 位 角 为 6 的 台 站 所 
记录 到 的 信号 为 x (t); ЕЖ, t<0 BF, x(t)=0, ij Fourier Ж 
换 为 
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| 输入 面 波 样 点 x 





(í =1.2 






0), HEM, М 
样 点 的 插值 及 零点 漂移 校正 x,— х; 


| 计算 面 波 群 速度 И, = 


4 
T 


计算 快速 Fourjer х; эх f) | 


ізі! 


计算 快速 Fourier 变换 







во, Л = 1 бк Се ау, 
求 振幅 4 ,x = ГВе? (hi i) + Im ОЙ) ,к) 1/2 


振幅 归 一 化 47 = 99- 10g AEE, +. АНЫҚ Аа ўй 
图 8-2-3 
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-р---- 


X (f) -| x(t)e аі. | (8-2-14) 
0 


信号 的 复数 谱 X(f) 可 以 由 振 辐 谱 和 相位 谱 来 表示 ， 


ХО) = AGr, 0, peit f, (8-2-15) 
上 式 中 相位 函数 可 以 写 为 
фт, 9, f) =k(f)r + $, (0, f) +  ОО2пл. | 
(8-2-16) 


Низ, кр ЖЖ (Е k= 2л А), Фо (9, f) Я 震源 处 的 初 相 , 
$ (f) 为 记录 仪器 的 相 移 。 因 为 Fourier 变换 所 得 的 相位 角 总 是 
在 0 与 2r 之 间 ， 它 与 实际 的 相位 角 可 能 差 2nz (n=0,1,2,…)。 
为 了 能 够 估计 k(f)， 必 须 确定 фо (Ө, f), ФОР, —№ 
说 来 ， 仪器 相 移 $; 可 根据 仪器 特性 计算 出 来 。 但 很 多 情况 下 ， 
作 面 波 分 析 用 的 地 震 震 源 机 制 难于 测定 ， 所 以 ф 也 不 确定 。 单 
合法 的 应 用 受到 限制 。 
如 果 位 于 同一 方位 角 上 有 两 个 台 站 的 记录 ， 则 可 以 避免 因 震 
源 机 制 不 确定 引起 的 困难 。 下 面 讨 论 两 种 计算 方法 ， 以 测定 两 台 
间 面 波 相 速 度 的 方法 。 
1。 相 位 差 法 
设 有 位 于 同一 方位 角 上 的 两 台 记 录 ， 由 (8-2.16) 式 不 难得 
k(f)ríi= ó,(r, 0, Ы-Ф(, })—ф10})—2пл; | 
k(f)r, = Ф. (ғ, 6, f) = $a C, f) — ф.2(}) ~ 2mm, 
(8-2-17) 


将 二 却 相 减 ， 并 经 过 简单 的 变换 ， 可 得 到 两 台 间 介质 的 相 速度 


2zf_ 2rf(rz-ri) 2 
КОЈ) ф2-%1-%2%фФфіч21л ° (8-2-18) 


合 仪 器 频率 特性 相同 ($12 = $,1) ， 并 将 频率 了 改 为 周期 了 
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c(f) = 


е ua... ...... ез . 


表示 ， 则 上 式 可 简化 为 


CT)=—— 1 (8-2-19) 


元 (gz — фу + 212) 


上 式 中 ， 整 数 4 可 以 根据 相 速度 的 粗略 范围 而 估计 。 所 以 ， 由 此 
测定 的 相 速 度 是 不 唯一 的 。 不 同 的 估计 常 有 较 大 的 差异 。 

此 外 ， 如 对 两 台 的 记录 作 Fourier 变换 ， 分 别 求 得 gz МФ: 
代入 (8-2 .19) 式 ， 所 得 的 误差 较 大 。 应 用 互相 关 法 求 两 台 记 录 的 
M82224; — 0: 可 以 获得 更 好 的 结果 。 

设 x i (t), а СЫ 分 别 为 两 全 的 面 波 记录 ， 它 们 的 互相 关 溺 | 
数 为 


угар) =}. хз(#+р)х, (ВЕ. (8-2-2 0) 


ХУН ЖНЖ ВЕ Fourier 变换 
вр = | Yz: (ре? "пар = Ха) 


-| (P| |X (f) lei %1-$1` = | Rf) leit’. 
(8-2-21) 


式 中 Xi(f) Ж Xi (f) И. MAER R(f) 的 相位 就 
是 求 相 速度 所 需 的 相位 差 Аф- $; - bi, RA (8-2.19) Ж, Ж) 
算出 结果 。 图 8-2-4 为 相位 差 法 计算 相 速 度 的 框图 。 

2。 罕 带 通 滤波 一 一 互相 关 函 数 法 

相位 差 法 由 于 1 值 的 不 确定 ， 使 相 速 度 的 计算 有 一 定 困 难 。 
因而 提出 改进 的 窗 带 通 滤 波 一 -一 互相 关 函 数 法 。 这 种 方法 不 是 基 
于 相位 对 比 ,而 是 基于 振幅 对 比 。 其 主要 步骤 是 先 对 面 波 信号 作 窑 
带 通 滤波 ， 再 计算 互相 关 函 数 yz1， 最 后 将 归 一 化 的 yzl ЕЕЕ 
排列 形式 输出 ， 便 可 由 等 值 线 确 定 相 速 度 c(T) 。 
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ЖЫ A RI EAI HIRE И ха), X; №, ВЕЛИ 








FERGE Aj + ху J Xai 


РУЗЕ 
ААК 





А, ),] 





[ИГЕ 








т е ашк он ЩЩ X РА Ж 
И: [D лсіз рух (г) ат | 





ПАН АСТ Е НИИ АФ, k 51,2.-.М94 
КОРЕЕ”, Yni Pie 2" р= КОТ) еј 












对 于 和 个 ;计算 相 速 局 
С, (Т, и 
25 (49, 十 2{т) 








图 8-2-4 
Er x (1). әСсо 为 两 台面 波 记 录 ， 首 先 分 别 对 它们 进行 罕 
带 通 数字 滤波 ， 即 在 时 间 域 内 对 这 两 个 时 间 序 列 作 福 积 运 算 


yi (т) -| | xı(tT-t)W(t)dt, 


уз(т)=} xsr-Dw(pDdt . 


一 个 理想 带 通 滤波 器 的 单位 脉冲 响应 函数 为 


W(T,, 1) = до sin (27+) . 
лі Т, О 


HP, k 为 通 频 带 半 宽度 (— H h = 0.001), Т, 为 滤波 器 的 中 
心 周 期 ，4 为 常 系数 。 对 有 限 长 度 的 离散 资料 ， 为 有 效 压 制 滤 
波 器 的 边 叶 效应 ,必须 对 脉冲 响应 函数 乘 以 一 定 的 权 琐 数 w(t)， 
u(t) ЧЕМУ ЛЖ. ВОИНА па py РЕ 26% 28 


W (Ta, t)= A ‚5їв@лм) cos( 2 t cos? (==). 
егі 


对 两 合 分别 作 了 窄带 滤波 后 ， 下 一 步 就 是 通过 求 互 相关 
求 相 速度 。 因 








Ү2.(Т;, р) -| ys (Ti, тер) у, (T i T)drT, 
(8-2, 25) 


式 中 p 是 第 二 人 台 记 录 相 对 于 第 一 台 记 录 的 延迟 时 间 。 若 二 人 台 震 


НЕ А:-А), ШТ, / АДН ЛД ЛЕ 便 为 
eT) = 42241. (8-2,26) 
“р 


БІН, ЖЖ Н 382 8038102 

Үг21(Т,, р) =Ү?1(Ть, с), (8-2,27) 
它 表 示 T, 周期 在 不 同 相 速度 с(Т,) 时 的 振幅 分 布 。 考虑 到 互相 
ИЖ 


lpo 
Yr (Too) = Za | ҮСҮ: e "ај 
-lr- 
ШЕСІ IYi(f)]ei ®2-- ғ. 6044) 


(8-2,28) 
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由 (8-2.28) 式 可 以 看 出 ， 当 两 ВЕ 80.00), y0) 同 相 时 ， 
$: - ó, =0, Y. В ЖК. 5 #8, ф- діл Ел, КЕТ 
ін. BE, № Ү21(Т,, с) ЭЕ Ёл, ЕКА 






ЕМ, М 






ох), 





输入 两 台 的 面 波 样 点 (Xx1 ),， 







( X))/ — ( X; à, 


ЗЕНОН ЕЕ АПК Oa 一 (Xi )， 
ЕРЕ ТЕДІ HER c, 


арқа Е Га А 


) 
WT. г) = (242 cos (Трусов: | 

















х! 
ОТ») 














«чи =} | ВЕНЕ 
У, (т, Тк) = 1.99. Хут Г) (Тк, 1) dt, 3-1,2 






将 滤波 后 的 时 间 译 列 进行 互相 关 计算 ， 
Уи (Pi, T) = Í У Tk, T+ Pi) у TE TIA, із1,22-М 







Мн Сі, kB ly Ў. (i, кә =99- 1018 


EZ 
图 8-2-5 
绘 出 来 ， 即 可 以 方便 地 确定 相 速 度 频 散曲 线 c(T,)。 输 出 Y21 


时 ， 仍 可 按 最 大 振幅 为 99 分 贝 进行 规范 。 图 8-2-5 为 计算 框图 。 
41, 


анши Кыранын дайт іне iea- 





图 8-2-6 是 实际 测定 的 例子 ， 可 以 看 到 正 负 区 域 旦 明显 的 条 带 分 
布 。 在 任 一 同期 处 ， 相 邻 二 个 正 值 区 差 一 个 波长 ， 正 、 负 区 相差 
半 个 波长。 


c UT) 





图 8-2-6 


$83 ”多 层 介 质 面 波 频 散 计算 的 矩阵 法 


前 面 ， 我 们 已 经 讨论 了 Rayleigh 波及 Love 波 的 基本 特性 
及 频 散 曲线 的 测定 方法 。 为 研究 地 球 内 部 结构 ,需要 计算 多 层 介 
质 ， 而 且 包 括 有 低速 屋 、 液 体 层 ( 如 海洋 水 层 、 液 体外 核 ) 的 各 种 
情况 ， 这 就 要 求 研究 更 一 般 的 方法 。 

多 层 介 质地 震波 的 计算 方法 是 从 50 年 代 发 展 起 来 的 。 首 先是 
Thomson 用 和 矩阵 方法 解决 体 波 计算 ， 接 着 Haskell 就 将 它 改 进 
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并 推广 到 面 波 问题 的 计算 。Knopoff 于 1964 年 讨论 了 混合 的 
Thomson~Haskell 方法 ， 接 着 于 1970 年 在 计算 机 上 实现 了 这 种 
算法 。 这 一 节 ， 我 们 讨论 Haskell ЕВ. 

ЖЕН ЖЖ У) о, ЖЕУ с 的 地 震波 在 п 个 水 平 的、 均匀 
介质 组 成 的 层 状 空间 中 的 传播 问题 。 层 状 空间 如 图 8-3-1 所 示 。 
x 轴 与 波 的 传播 方向 一 致 ，z 轴 向 下 。 层 的 序数 及 界面 序数 如 图 


所 示 。 
— .. 
нала 
І 
(10 
2 
(2) 
š 
| "1 (m - 1) 
т 
m + 1 (m) 
| м 
| — nt —1) 
# 
z 
Е 8-3-1 ` 
矩阵 方法 。 


由 于 介质 内 部 的 不 连续 界面 处 
存在 四 个 边界 条 件 ( 两 个 位 移 分 量 
和 两 个 应 力 分 量 连续 ) ， 自 由 表面 
处 有 两 个 边界 条 件 (两 个 应 力 分 量 
为 零 ) 。 所 以 ， 对 Rayleigh 波 的 
计算 总 共有 4n-2 个 边界 条 件 , 这 将 
导致 4n-2 个 齐 次 联 立 方程 式 。 仅 当 
方程 组 系数 组 成 的 行列 式 为 零 时 ， 
此 方程 组 有 解 。 层 数 愈 多 ,行列 式 的 
阶 数 就 越 高 (例如 , З 层 为 10 阶 ，5 
层 为 18 Br), ПАВЛЕ. XTK 
进 这 种 情况 ， 就 提出 用 迭代 过 程 的 


这 里 我 们 先 考虑 Rayleigh 波 问题 。 据 此 ， 假 定 沿 > 方向 无 


为 : 
pm 密度 ; ü 
аһ 厚度 ; 
Аһ» u, Lame 常数 ， 
Om = СОЛ + 28) /pn 


位 移 且 波 的 振幅 随 z 增 大 而 衰减 。 对 于 第 mm 层 ， 其 层 参数 分 别 


纵波 波 速 ; 


В» -Ги,/р,2%9 ЖӘН; 
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С ССо/а)2- 0800 оон 
м И Ш сан; 
„+ С(с/В») t — 12% = 当 c>B;,, 
т асов 当 c<B,; 


Ym = 2(В"/с)?; 

и, ой xxz 方 回 的 位 移 ; 
б=р.. 法 向 应 力 ; 

T= р.» 切 向 应 力 ; 

к= © -2л/) Ж. 


с 


众所周知 ， 平 面 波 在 层 状 介 质 中 传播 ， 其 波动 方程 为 


2p- 1 9% f 
Ab = a? 04%? 
1 97) (8-3.1) 
А?) = -> 一 ° 


Җир, $. УН АЛАНИН И. (8-3. ПИ REE m БИРА] 
解 也 可 以 直接 表示 成 纵波 和 横 波 的 组 合 。 对 于 纵波 有 


A, = ди, дм _ ellot-Rhx) СА” еті ам? + Аней! a mz 


Gx 92 
(8-3,2) 
对 于 横 波 有 
@т = (s 一 5% )- ei о1-Ёх ; COn e Een? + nM 


(8-3,3) 
E (8-3.2) (8-3.3), А„,о„ 与 纵波 位 及 横 波 位 的 关系 为 


2 
ф= - (==) Аһ э 
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)-2 Ba Yio да. (8-3,4) 


ДА, Да, ди, Oa 为 常 系数 。 其 中 Aa 的 意义 是 : 当 га 2090 
数 时 , 它 表示 与 z 轴 正 方向 夹 角 沿 ctg-!r cn 方向 传播 的 平面 波 ， 
即 通 过 层 状 介质 传播 的 体 波 ， 当 ran 为 虚数 时 ，4s 为 WE Ж x Bl 
正方 向 传播 的 面 波 ， 其 振幅 随 深度 增 大 而 呈 指 数 衰 成 。 4; 的 意 
义 是 ，ram 为 实数 时 ， 表 示 与 z 轴 负 方 向 以 上 述 同 样 夹 角 转播 的 体 
Ж; 当 ran DBA, WAR x 轴 正 方向 传播 的 面 R. HF o 
Хо: 项 ， 只 要 将 га 改 为 rjn， 也 可 按 上 述 类 似 方式 定义 。 
在 第 m 个 界面 的 位 移 及 应 力 分 量 为 | 





7 Bn Зен, 
Ит = - (<=) 54м An 2( A 
--(-) ®ат+;(# у бо 
@ ах” 


< (8-3.5) 
an= pad sas (9) GA +a) Ss]. 


_. Т ©з 2 02 Am „\? 020, ron 
ra= zott- (S) а (y - ан), 


O ЖЕЙЛИ ИШЕ, ЖИЛ ИДЕЙ. ОЖЖ 
续 人 性 使 相应 的 速度 分 量 z 及 w 也 连续 ， 由 于 相 速 度 c 对 各 层 都 
一 样 ， 六 此， 无 量 纲 的 量 & /ce 及 we 也 连续 。 将 8-3.2) 及 (8- 
3.3) 式 代入 (8-3.5) 式 ， 并 将 含有 jkrz шаны = 角 
函数 ， 可 得 | 


и„/с= 一 (а-/с)2ССА4% Ла )созКГа"2 ~ Ј (Да Да) 
x sinkr. +z) - Ули” (@ы 一 @ s )COSKr p 2 — (би 


十 Фъ)ѕіпКгвь22, 
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МИ = (а/с) r anl- jAk + Az)sinkr.,z+ (Ды 
~ Ah cOSkr anz) + Ү.С ј (он Ф) 51 ИКГдт2 
+ (фе + Os)coskr gaz], 7 
бл — баба r. — 1) An + Аусовктан2- } (Да 
- As)sinkranz) -рас272 ау С (Фе 
— @а)совКга2 — (96 + @š)sinkra,22, 
Ти = РавутГатС — }(Аж+ As)sinkr.,z+ (Au 
— Aš) созК Гот 1 — p.c2ya (у — 1) - j (өт 
— оа )ѕіпкер 2 + (On + ос) соѕКева20. 
| | | (8-3,6) 
将 z ЗН ЛАА Р (т-1) 界面 上 ， 则 在 (m-1) 界面 处 z=6， 于 


是 sinkrz=0, созКғ2- 1, (8-3.6) A u/c, м/с, o j r #E 
(т-1) EERE, MRR A М Ж (A, + AS), (A, - Аа), 
(@s— 0а) < (Qs t os) 的 下 列 线性 变换 关系 


° T 
Ит-1 Wm- / ” A.L 
(e=, Smti gn-1, та-1) = „(А.Т As, А, 





С с 
-А, 04-05, Onta). (8-3,7 
от ) 
这 里 矩阵 下 ,不 难 由 (8-3.6) 式 确定 ， 
2 
7 - (5%) 0 = 了 | 0 
-1 ` с 
x (=, | 
Е,- | 0 | (°) ran 0 | Ym 
|T раоа(Үһ- 1) 0 — pnc Yargm 0 
. N 20 био Yi Vami Ü 一 Ыас”Ү, СУ, 一 1) 2 
(8-3,8) 


用 同样 的 办 法 ， 将 z 轴 原 点 置 于 (m) М Е, PB ER z= d, 代入 
‚ "446» 


(8-3.6) 式 ， 可 得 下 列 线性 变换 关系 
(8%, Уб, он, ты’) = В.Е + 44,44 45,0: 
- С - 
—2%, ОҒ ОТ, 
(8-3.9) 
Ю„ ЖЕ ЕУ 


— (aq. /c)2cosP, |б(оһ/с)”віпР, 


j(an/c) ransinPp, — (а„/ с) катпсовР 


— 
— 


т 


一 Drnas(yYn 一 1)cosP，ijpnos(yn - 1)sinP,, 
V- ЈОлажҮ namS ПРи PosyursncosP， 
— YnrgnCOSQn ЈҮағра5іпО,, 
— ] 7.5110. ҰҮнсо5Оһ 
— р„с?ү?„ғрасоѕОь jpnc У Гут! NOn 


jpnc Yn Yn — 1)sinQn— Pnc Yn(Ynm 一 1)cosOn ° 


(8-3.10) 
其 中 Р. = Кеа; О» = КГу-. то к 
由 (8-3.7) 式 得 = 
(Ant Да, Да Да, On овоа)" 
_ Е (шы Wa- 1 Onit а) 
т , С DP s v m . 
(8-3. 11) 


代入 (8-3 .9) 式 得 





Um Ут Т - Un- Wa- | Т. 

(з оз зы) = Рав, Эка, osa, қа). 
(8-3.12) 
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其 中 
— 2(Bn/Qm)’ 0 (Phak)! 0 


| 0 cz(?, -1)/usron 0 (онага): 
E Í! = | 


Kl 


(Үһ- 1)/Y,F pm 9 -(рһс? Ymr Bn) 0 


\ 0 1 0 (pac2Ya) 12. 
(8-3.13 
) 


取 (8-3.12) 式 中 和 矩阵 的 积 为 
a= D,E,- l. 


由 (8-3.10) 及 (8-3.13) 式 ， 可 得 a, 的 元 素 为 


(а„):: = YacosP, - (Yz — 1)cosQ as, 

(as) i = } СҮ) — 1)yilsinPn + Ули виз! ПО», 

(а); з = — (Pme?) l(cospa-cosQ,.), 

(а): = j (Pme?) (узаз1 ПР». + ГВтЗ1 ПО п), 

(an)si= — ј (УтГат51 ПР» + (Yni — 1)ув15іпОь,2, 

(аъ): = — (Yn— 1) созР, + Үһсоз@»., - 

(алӘга = | (бас?) 7) (ғанвіпРы + yersinQ,), 

(а„) 24 = Саһ) 1з 

(ап) з: = Р«с?Ү.(Ү. – 1)(cosP, — cosQn), 

(ат) за = |Оһс7 С(Ұ,-1)7у:івіпр» + YáransinQ,.J, 
_ (аз)вв = (an)aa， | А 

(а„)за = а»): з, 

(а) 41 = јр„с2СУғаезіпР, + (Y, -1)2ygusinQ,J, 

(аъ) 4 = (а„)з1› 

(алдаь = (аһ) 21у 

(аһ), = (ањ). | 
| | (8-3.14) 
EN a, 是 一 个 反对 称 和 矩阵 ， 即 有 下 列 形式 
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(ат): (ат) 2 (аъ); (аһ); 4 
(а„) 2} Сам)» (аз)»з (ап). з 
а, = (8-3.15) 
(а); (G; )a2 (ам)»» (аа), 2 
| (22), (а„) зу (а) 2; (22), 1 ° 


因而 (8-3.12) 式 可 以 写 为 


и үр “下 u w i 

- 1 一 人 

(=, —". ， Ол, т.) = an(&n= т, —, Om-1, 1) 
с С c с 


(8-3. 16) 
上 式 中 以 (т-1) К (m) 得 到 


е a T р - т. 
Пт-і W"-] Un-2 У/,-2 
(—, ~e On-1s т.) =а»-1( " » ~ > 
с с с с 


Om~-2, та-а) . (3-3. 17) 
将 (8-3.17) 代 入 (8-3.16) 式 得 


° . р | и ° 

и | Un- Mmt. 

(=, Мт Ons ta) = а.а: - (Ұз, Mm > . 
с с с c 


От-2» а-а) (8-3,1980 


反复 利用 这 个 过 程 可 以 得 到 


| ә е | ` 

Ил-1 Wa~] | 

(ше, -一 一 一 ， О,-1» Ta- 1 ) 
C C 


1 
u Wo 
= Ca-1l0n-2 7 G1 —9—, ——› Өз, ға) 
C C | 


对 于 第 n E, (8-31 


419» 


(А”,-А",,А”,-А;, о”,-0), о, toZ) 


в ш Т 
| - ir- Wna- í 
= E s (8-2, _——, Ок-1› 1) ° 


(8-3,20) 
将 (8-3.19) 代 入 上 式 得 


(А'„+ А), A nAi, о”,-о1, O „+ 37 
: uo wo 7 
一 Етча,- 14,-2 aaa (10 > с? 09; to) ° 


(8-3.21) 
Зх J — 8 KE sN, М EST ОЕ ЖИН ЖЫЛА. ATRI 
研究 上 且 的 来 说 ,我 们 特别 要 讨论 面 波 的 情况 , 即 在 自由 表面 处 应 力 
为 零 ， 因 此 оо = ro =0; 在 无 穷 远 处 无 震源 ， 因 而 A:=of! = 0， 
并 且 令 
J = E la,-ia,-2 ayar, 
于 是 (8-3.21) 式 便 写 为 
24400, „лугу [u Wo | 
(4,0, 4,5 он, e TE (e, 9, о, 0) 
| | (8-3,22) 
其 中 J 了 为 4 x 4 ЛИ, (8-3. Е ВЯ 


н w 
А»= д +Ji2— , 
с с 
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| и wW 
Oi =J tJi.. 
| с С 





(8-3.23) 


由 上 式 消去 A! 及 о 


Но _ 4/22- 412 ,а2- J32 
wo Ла-Ла 1-4” 





(8-3,24) 


由 于 矩阵 J 的 元 素 是 相 速 度 c 和 波 数 k КЖ Ж, Br 以 方程 
(8-3 .24) 式 提供 了 c 与 上 的 隐 伟 函数 关系 ， 这 即 是 所 求 的 相 速 度 
с 的 频 散 函数 。 | 

下 面 进 一 步 讨 论 频 散 函数 的 一 般 特 人 性。 令 

А-4,-14,->:" 4241, 


它 是 一 个 4 x 4 ЖЕ, FEJ PETIH 


| J= EA. (8-3,25) 
将 (8-3.24) 改 写 为 以 下 形式 
Uo K M | 
=_= —Y. = —— , (8-3.26) 
w L N 


其 中 各 系数 可 以 由 (8-3.25) 算 出 
К-Ү,ға. А12 “(Ү,- 1) А22 – га, Аз2/рьс? + Адз /prc’, 
Г, = Ү,ға.А1- (Y, — 1)A21 га» Аз1/р,с* + Аз: /рьс*, 
М = (7, - 1) А12 + Т,гр,А22 + А 32/0, С? + гр, A42/p.c2, 
М = - (У, - 10А + Угры Аз + As i/p.c2 + ть А41/р,с?, 
(8-3.27) 
S HW BI, ЖҰ a, 的 元 素 是 由 sinP,, sinQ,. гра Ж 
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ғап 等 量 确定 的 ， 而 这 些 量 是 实数 还 是 虚数 取决 于 相 速 № c 的 大 
小 ， 而 且 它 们 仅 以 rinsinPm 及 ršasinQ, 的 组 合 形式 出 现 。 因 
为 sinP。 是 实数 还 是 虚数 是 和 ron 一 致 的 ， 而 3100» 也 与 ren 
一 致 。 所 以 ， 只 要 相 速 度 为 实数 ， 上 述 组 合 形式 总 是 实 的 。 按 照 
ЖЕТЕ, ЖЕ a, 的 元 素 具 有 下 述 形 式 : 
R I R I 
1 R 1 в | 
а,- | | (8-3.28) 
К І Е I, 
I R I R, | 
A RERA, I 32 Е, Me BR E PEAS ania 
asai， 世 具有 同样 的 实数 虚数 分 布 形 式 。 即 (8-3.27) 式 中 Ai， 
А::, Аз. 及 А2 ЯЗ; Aiz, Аз, Аз: МА. 0 Ж. 
由 于 我 们 考虑 面 波 情况 ， 即 相 速 度 с<28,, Ста. Ағы А 
为 虚数 。 由 (8-3.27) 知 ，K，N 中 所 有 各 项 都 为 实数 ,而 L，M 


中 所 有 各 项 都 是 虚数 。 于 是 (8-3.26) 中 比值 &9 м 是 纯 虚 数 。 这 
| ‚ Ф% 

ЖЕН Ë ЕЩ ЖЕТ АРЕН Уу SKEA Pi 49004840225. ХЕ 

有 介质 耗 散 欧 情况 下 ， 波 数 为 复数 ，“” 是 复数 而 不 再 是 纯 虚 

Wo | 


数 ， 垂 直 位 移 与 水 平 位 移 相 位 差 不 等 于 90°, ЖЕШ ВА 
的 。 | 


88-4 多 层 介质 Rayleigh 波 频 散 快速 计算 法 


由 Haskell 发 展 的 矩阵 方法 虽然 对 多 层 介质 面 波 频 散 计算 较 
过 去 有 很 大 改进 ， 但 迭代 过 程 中 仍 存在 有 效 数字 损失 和 计算 速度 
较 低 的 缺点 。 这 一 节 讨 论 Knopff 提出 的 改进 模型 ， 这 是 目前 使 
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用 的 较 有 效 的 计算 机 快速 计算 方法 。 
多 层 介质 的 模型 及 坐标 系 иу, 要 考虑 到 各 种 可 能 的 情 
况 ， 如 图 8-4-1 示 。 





(8-1) 





图 8-4-1 
图 中 左 侧 表示 п-1 层 完 全 弹性 均匀 介质 覆盖 在 半空 ШЕ, 2 
ЯЗ; НИНЕ АННА, ХНА 
洋 型 结构 。 每 种 模型 根据 其 结构 又 分 为 三 种 情形 : 即 最 深 界 面 在 
地 则 中 的 固体 - 固体 模型 ， 最 深 界 面 在 外 核 中 前 固体 -液体 模型 ; 
最 深 界 面 在 内 核 中 的 固体 -液体 -固体 模型 。 下 面 分 别 讨 论 。 


(一 ) 最 深 界 面 在 地 浊 中 的 固体 ~ 固体 模型 
上 一 节 中 ， 我 们 已 经 根 据 Haskell 方法 ЖЕ 导出 位 移 与 村 应 力 
的 表达 式 (8-3.6)， 现 在 对 它 作 如 下 变换 ， 在 xm- ж” ШЖ 
以 c2; Шо 2—2„_1{%1# 7, 4 
Am= фа (А+ Дд), 
Ba= -03 (AZ AL), 
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C. = - 288 (о)- өз), 


Раз КГат( 2 — Zm), 
О» = Кғр,(2- 2,2. 


并 注意 到 ra 2( 如 ) ， 于 是 (8-3.6) 式 可 以 写 为 


CUm = COSPm A, + jsinP, B, + romnCcOSOQnCn — jronSinNOQnDmn , 


CWm = — jramsinPnAntrancosPnBn + jsinQnCm 

= COSQanD m, 
On = Pul Ym- i)cosP, A... јоһ Үт – 1)sinP, B, 

+ р„У af BmCOSQnCn ~ jpnynr pmsinQnDn, 
Tm = } бт ҮтҒатві 1РАА,- ра Ў mY апсОВРь„В»— )Оа Үн 

~ 1)sinQnCn + ры Yn ~ 1)cosQ,.D:,. 
| (8-4.1) 

对 于 大 陆 模 型 ， 因 自由 表面 上 的 应 力 为 零 ， 故 上 式 中 ol Ti 
= 0, АНТ 2-2-0, ЖР, = 91=0, 式 (8-4.1) 中 后 二 式 可 简 
化 为 | 
— p (Y, — DA: -р.Ү.ғр:С; = 0, 


piYira В1 ~ p CY, -1)р, = 0. | 
(8-4,2) 
上 式 可 以 写 为 矩阵 形式 ， 如 取 (А1, В, Сі, 也 1)7 为 向 量 ， ЛІ! 
系数 可 以 写 为 2 x 4 子 窍 阵 形 式 : 
(0 ) = р. (Y, 71) 0 -рТ: рд; 0 | 
con ` 0 PiYiral 0 —p (Y, -1)Z . 
(8-4,3) 
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对 于 海洋 模型 ， 自 由 表面 (水面) o= 0, ЖЕ T 界面 
位 移 及 应 力 垂直 分 量 连续 ， 切 向 量 为 零 的 条 件 ， 可 得 以 下 2 x 4 
ТЖ: 


А” | —pi(Y i - 1) Рога: ЕРу/Гае 


өсе 0 „Жаб 
-pıYırpı -jpotgpo/rao | 
Q = рубу 1) 


| (8-4,4) 
ЖӨН Ро = Кгьейо„ Æ (8-4.3) № (8-4,1) ВЕЯ PR con Е 示 大 
М» осе 表示 海洋 。 | 

对 于 内 部 任意 m 界面 ,根据 界面 上 位 移 及 应 力 的 连续 条 件 ， 
可 以 得 到 4 хат: 





cosP;, — j sinP;, r BnCOS © 
ПЕ 一 jranSinP, - ranCOSPn jsinOQn 
| О. СҮ. = ОсозРл - jpn(Yn— 1l)sinp, PnYnr grCOSOn 
S — jpnYnramSinPn— prnYmnrpncosPn — Jp (Y, = 1)sinQ, 
— )ғҙазіп Он -1 0 | © Ұран! 0 
- COSOn 0 — Гат+ 1 0. 1 


~ JDmY xr gaSinQ,, — pn.1(Ym:1~ 1)0 — Pmtiregn з Үш 1 0 


Dx (Yn = 1)сО8О» | 0 Dm 1 Ут 1F m 1 0 “От (Ya 1-0. 
| (8-4,5) 
式 中 Р„ = Кӯатй»љә Q. = КГв,то 
注意 到 在 第 nn 层 л: -о, = 0, 所 以 А, = Bas С, = Dr, 得 到 
(п-1) 界面 子 矩 阵 为 4 ~ 6 形式 ; | 
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A *-1) 


li 


— Пат ! 1 
7 ПАО Сн 1) ш Ол Ү nf рл 


ОЇ nt an — р. (т, 一 1) А 
(8-4,6) 


A'"-1; 中 前 四 列 元 素 与 4‘" 的 前 四 列 形式 完全 相同 ， RAKA 


关 下 角 标 m Я и – 1 Віту, 


зр 8-4..3) —(8-4.6) ЖЕНЕ. Мг: | 
З ВЕН 2 8 6 列 ， 用 ги 去 除 各 子 矩阵 的 3 或 7 列 (i= 


1,2,0 sn- 1), 则 有 了 以 下 结果 : 
И-р. (У: -10 0 -piYi 0 | 
人 
0 0171 0 -р1(Ү1-1 , 


0 Piyi 


cosP;, 
- jramSinPr 
Da (Y x 一 l)cosP;, 


jpmYnranSinPn 


cos Q, 

jsinQ./rs= 

DmYxCosQa 

— jpn(Yn— 1)sinQn/ren 
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(8-4.7) 


— pi(Y1—1) jpotgPo/ras РҮ — jpotgPo/ra 
aof- | 


° 
0 —pi(Yi - 1) | 
(8-4,8) 


- 131 пР»/ Гат 
COSPm 
Т Оһ Үн” 1)51пРи/Рат 


— PmY mCOSP m 


іг ҙззіп Оһ 
- совОһ 
一 [РҮ mf enSinOn 


Ыа(Үт- 1)COSQn 


Do 


0 -1 0 1 
一 Dr + 1071-10 0 一 Pm- Үн. 1 0 
0 | Рт. а Ут 1 0 - Ра. 1(Үт 1-1) ? 
(8-4,9) 
-1 - — Үр, 
Ф ° е ы — Гая 1 
A:"-1) - 


-рһ(Ү,- 1) —DaY.r pn 


PnYnr ап _0„(Ү„— 1) . 
(8-4.10) 
А-а 的 前 四 列 元 素 与 4” 形式 相同 。 将 这 些 子 矩 阵 ' 组 合 起 
来 ， 就 构成 下 列 频 散 函数 的 行列 式 形式 : 





Fr(@,c) = -一 





. (8-4,11) 

这 是 一 个 (4n-2) 阶 行列 式 ， 直 接 计算 是 困难 的 。 因 此 必须 对 其 
进行 简化 。 首 先 对 行列 式 (8-4.11) 施 行 下 列 运算 : | 
$1., ЭЖНЕЙМ-р, 4+1# 4i+2 Ир: Gi= 1, 2, 


| | 457" 


о П-Ь; | 

1-ІНЖМ-(-Ы 与 4i+1 行 相 加 作为 后 考 新 的 结 
果 ， 

4i FRM Y: 与 4i+ 2 行 相 加 作为 后 者 新 的 结果 ; 

4i+ 1 行 乘 以 -1 与 4i -1 ЛЕЛ ЖЖ, 

4i+ 2 行 乘 以 -1 与 针 行 相 加 作为 后 者 新 的 结果 ， 

用 (一 DD"-!1p4C?/Ywnranrp:pras 去 乘 最 后 一 列 。 结果 行列 式 
的 子 矩 阵 就 成 为 下 面 形式 : 


А ШЕ 0 Yı 0 | 
ғ. АУ 一 | 





0 - Yi 0 -Үі-1 
| (8-4,12) 
Yi-1 0 — jpatgPo/Pirao 
А, -| 
0 ` -Ү; 
Yı eres J 
0 | У: -1 э 
(8-4.13 
Г соѕР® —jsinP,/ram 0. 0 
Т“ jr omSinPn cosPn 0 0 
A m) = 
| x 0 0 cosQn 一 FrpgnSsinCn 
4200 0 ісіпОн/Ғфя 一 cos@n 
-e$ 0 -e т 220 
0 3 0 -e T 
(8-4,14) 
Ей’ 0 гш) 0 
0 -e'f o 0 = З , 


. е . . Elgi Fan "122 
A 4-І 一 
. ° e 5 elil rpne 
. ° —= i l ras Е/1-1 Е ° 
(8-4.15) 


人 ”前 四 列 与 人” 对 应 的 元 素 形 式 相同 ， 只 须 将 下 角 标 m 改 
n-li АННА ЖЕТ, ет, 2057, e D 由 表 8-4-1 给 
H, В 


Е-(- 1) "-І рас? /Ү „т оға: “ 


用 Laplace 分 解 定理 将 频 散 函数 分 解 。 最 后 可 将 频 散 ік Ж 
(8-4.11) 分 解 为 一 系列 子 矩 阵 的 乘积 形式 


Fr(@, с) =Т Е Е 2)p13)... 


КЕ ("-2 Е n-1 q n; ми 为 奇数 ， 


(8-4.16). 


(8-4.16) 的 符号 矩阵 形式 是 (1 x 6) (бхб)----- (6х6) (6х1), 各 
ТУВЕ: 


(8-4,17) 


寺 式 中 ， 对 于 大 陆 模型 q = 0, 对 于 海洋 模型 g = рас ІР /ғаө 
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и т} I fm) (ж) бт) іт) (т) 
x Еу) — 23124 3423 Езаіа -Ездіз F3412 
| — Боза  Е2424а —Е2423 -F414 F2413 —Е2412 
pim’ =) F2334 一 本 2324 F2323 F2314 —Е2313 F2312 
| Fis34 Баага Е1423 Fi414 —Е1413 Fiag 
es Fi324 -Ғізгз —Ё1314 Fi313 — Е1312 


、 Fiz34 -Еі»а Fi2z23 Fiz14 -Еі:13 Fi212 


(8-4.19) 
0 о ^\ 
“Кап | r g: 
T "=| "Г" Tes 1 (8-4.20) 
1 Казу 
— ү Fan 
0 “0% | 0 в 


以 上 各 元 素 Е, n L 38-4-1, 

在 频 散 函数 的 矩阵 分 解 式 (8-4.16) 中 ，( 1 x 6 ) 和 矩阵 的 第 一 
个 元 素 总 是 第 六 个 元 素 的 负 值 。(6 x 6 ) 界 面子 矩阵 的 对 称 性 可 
表示 如 下 
cue 1), j =" 1), үу"), В"), jS'™ 1), —U m1) 
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$575 =$19 
9559 =719 
$979 2=19 
444-145 
7919—1195 
929—019 


9 19 6 
(в) (m)* (ш) 


ee ee 








s389 
2919-49 

мўза (9015-99 
= 0015991=:$ 
us /wqul $=73 
wJuISwni=59 
и (500—9 


“4809-- (м) 


03----5 із 


yz 有 一 YEF3 


343 一 5T3 
Eng 
z3 一 13 

ғз23==113 

$373=913 
5а--6з 


, Tan _ 8 
(433 (w)? = a) 3 





: 312-43 
1313-93 
Т шына, 
3=%3 
03 十 73 一 ?9 


03+ 1223 


I 一 T3 一 3 


+9 403 — № тә 


отче „Фа 





93— 0 ?3 一 #13— 0 ota | F€ 
(8342-1195: а)! (15572 (83%а--11963)/ (89013 4-1:9133/ 19%172-- (8943 4-11911а)/— #2 
693 - зтолтз (HSTY 19$ 2— 51953 19 13— $19713 (6913) 上 329 十 ST9TT3 一 52 
zT943 十 59TT3 一 (99512)! zT993 十 2963 一 19513-29 713—  (0195т2)( %%4з-191та .pt 
(9194а--65113)! “98T3 一 (01953-89638)! (1873 4-69 91334 "719573 (91%9із--621т3)/- €I 
сш) 0 (w) сш) 0 w) 3— 21 

y£ | уг £2 ы о 21 1% 

EAE ЖА 1--8 
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jk - jk 

0 . ° 。: 。 -0 (8-4,21) 
Ó ое в А | . -ф 

jl -jl 
“7 ( -y ~v 0 9 


上 式 中 ，(6 x 6 ) 逢 阵 中 第 2 及 第 5 列 的 第 1 和 第 6 个 元 素 为 零 ， 这 
意味 着 在 求 ( 1 x .6 ) 矩 阵 相 应 的 元 素 时 ， 只 作 4 次 而 不 是 6 次 乘 
法 。( 1 x 6 ) 乘 积 矩 阵 的 其 余 四 个 元 素 只 作 5 次 乘法 ,这 是 由 于 第 
一 个 元 素 和 第 六 个 元 素 等 值 反 号 。 因 此 在 求 (8-4.21) 35 ЖИ 
时 ， 只 要 作 两 个 4 次 乘法 和 三 个 5 次 乘法 ， 这 是 对 原来 六 个 6 次 
乘法 的 重要 改进 。 如 果 把 这 五 个 元 素 用 解析 式 写 出 来 ， 就 会 见 到 
它 还 可 以 用 简单 的 代数 因 式 分 解 进行 简化 。Kopoff 快速 计算 频 
散 函 数 的 关键 部 分 是 不 断 由 层 参 数 去 递 推 新 的 和 矩阵 元 素 ， 即 根据 
т жағылады паи. м m+ 12 偶数 时 有 


Um: 1)—= – р! (т 1) yim TB 1; кот 1 +=“ li im 10, 


ЖОККА АЗЫ 


- с" Ligt), 

W m" 1 一 - в") Кта) 817 1) Lim"l) > 
+2813 U m) 

Rim l = g м км il g 1р! т 1 


к ет U m, 


+T D Ri +б 128"), (8-4.22) 
其 中 
К "= Пу т вурн вм 


г Y ' 
+ бут 125 m, 


LD SẸ D Vim E OWO ET UOR т 
\ 
ЕТ от), 
当 m+l 为 奇数 时 有 
Пат PUM ат i Xml tres 1’Zm 10, 
(10. amel (т: 1) (т: 1) 
у ат Ха l у'"›-бүу W'™ 


в {т 1064”), | 
(mtl) „(#+1›җ!дҗ+]} (т. +1 тті 
у‘ = = et y'm +e = 107 ml) — 2g‘ lU m), 


( — „(т 1 6 + Z' m: ( 
R m+ 1 ) cir Ҳм Del? 1) 7 m:1) 2813+1) ym), 
> + ) k { , 
$‘ м 1) ef? 17 ( = ут) ВСВ {т 


-P PR +614 Sim), (8-4.23) 
其 中 
yim 1l) =E D yim (т Wn -Es R'm 
+ 1 Sm), о 


{ + f : y i у { -15 + } 
2!" 1740627 lw mi C's ll m) + CA l)p (m) 
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频 散 函数 是 由 以 下 实数 初 值 递 推 的 : 
019--У1(У1-3), 


у‘ 0) =0, | 

W' = (Yi - 1)2, (8-4,24) 

R'° = YÍ, Е - . 

24-2 对 于 大 陆 模型， 
vpotgPo/p1r sao 对 于 海洋 模型 。 


将 (8-4.24) 代 入 (8-4.22) 及 (8-4.23) 反 复 递 推 ， 直 到 频 散 函数 计 
算 到 (п-1 界面 为 止 。 Е 
CU‘ r-i, jivi rD’ /'”-!2, R n-1:, 1$‘ "-1›, 


~Ut- = T ‘1 2) ....,» 
ИИ 当 n-1 为 偶数 ， 
Кр sl) ш,-1 Ж. (8-4.25) 


最 后 的 频 散 函数 为 | _ 
| Ек(@, с) = (V "-1), У‘ *-!, R"), $ "122 
— (1- С2/а) 
| = (1- C2/at)%(1— C2/B1) | 
1 € A п 为 偶数 ， 
– (1— C2/B1)%4 
| с/в" 
Е! 1 
x - (1- C2/aB)% (1 — С?/в%)% 
N (1-Сс2/аУ 


е жа 为 奇数 ， 


(8-4.26) 


由 于 (8-4.22) 一 (8-4.24) 及 (8-4.26) 仅 包含 实数 ， 故 求 频 散 函数 ` 
时 完全 避免 了 复数 运算 ， 易 于 在 计算 机 上 实现 。 
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(=) 最 深 界 面 在 外 核 中 的 国体 -液体 模型 
НЕА ЕЕ НЯ ЖИ, 其 频 散 函数 具有 如 下 


形式 :| 
Fa (@, oT OVF DRO? 


人 (т но т 为 偶数 ， 


Ар(т-1 G m) m ПН! 2) т ЖЖ. 
_ n Ura п 为 偶数 ， 
BT nn 为 奇数 (8-4.27) 


Èh TO, ЕС. FO 的 意义 同 前 ，lig 表示 液体 
(liquid), WHERE G "或 者 G "ЕЖЕ 界面 )， 由 
FARAH: | 








fm: ері N . . т ` m 
осі С122 | 00-2 Q34: j Сзї1 
бізі Сіз? 00016242 -іб241 
G m= G141 биз. G” 2 -) біз2 16231 
G231 С?з? | | —-] “142 ] Сіл | 
| бы бла? | ' 7] біз? 7) бізі, 
G341 Сзі2/, “-ібі22 J С121/. 
(8-4,28) 
式 中 各 元 素 为 
Gi21= 0, СКР) = jyn(yn 一 1) ， 
GI31= -je P ir >» Са: = - (Y, 020% 
– YŠ 10 5 
Сіісе P бю» С = - jC(Yn ~ 1) 26507. 
| - 1718122, 
s465 ° 


С = 00006096. б-р 


- 71592, 
Сізде PEP, = (Ya 01. 
~ Y 9), 
Єзї = 0, СЇЗ = ~ jY (ya 1). 


) 
(8-4,29 
对 于 液体 界面 情况 ， 可 由 下 列 2x 2 Br f. 3 B BR: 和 
Н “жж. 
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Hij H) -H33 H’ 
н" = Ні" = 
H37 ОН} н - нт 
(8-4.30) 
其 中 
НТ =е0" бз", Нуз = - 161"), 
Нь") ут) (т). plm) | 
Е ыз јео" бі", H??? б". (8-4,31) 
ETEA M | | 
(n) “Ға — (n) 1 
[| |] zef | eaaa 
7 yx ! Ғав г, 
кН 程 是 ， 首 先 计 算 前 m1 个 界面 矩阵 的 元 
Ж ñ 
прос, реті), (9-1), кез», ј5(®-1), 
роу ТО POOR) .. 
Fm!) т- 1 为 个 数 ， 
SRD m-1 为 奇数 . 


对 于 第 pw 个 界面 ， ҚЖА FIER: 
ОИ, jp) = -ry 1), іу: (т- 1), W (= 1), | 





О 7 Ф (т) 
jv I 
v jn 
0 Е I 
RTH) $(-1), -0 (712 о -}ф 
” (-% о ` (m) 
Í ЕЕ 0 
6 № пя. 
x п jv 
‚ jt U 
A ф о / 


(8-4,33) 
(т) — vV(m 1)+ vW ("717 +КЮ ("1 — 05 ("1 °, 


qp (m) ФО 1 + ПИ (12+ Е5 "71°, 


‚(8-4.34) 
шот 为 奇数 时 有 
WW (т) = афу": EVIn + OWL рк") | 
— 75-1), 
qp (m; = ву" ІЗ Кур" ув (71) + 05 ("7 ), 
(8-4.35) 


构造 好 矩阵 [于 (" ，j®@'" 2 后 ， 频 散 函 数 就 可 以 表示 成 下 面 的 
符号 矩阵 形式 : = | 
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(6:1) РІ (а-і1) Е (а) 
НИ 
(8-4.36) 
利用 后 面 式 (8-5.12) 一 (8-5.14) 所 给 出 的 方法 ， 可 以 区 免 复 数 的 
运算 。 
(=) 最 深 界面 在 内 核 中 的 固体 ~ 液体 -固体 模型 


восе ] 


СЕ UGY H(s: 1) 、 
Fr(@, с) = Те ТН е” 


Ж 1ш НОО FO DED о р 
m 为 奇数 ДНО TO RO OFOD S p 为 奇数 
qE UE Т n 为 偶数 ， | 
CUE OT в 为 奇数 . (8-4,37) 


矩阵 IT” ГР 表示 为 液体 - ЕЕЕ М М, sol 表示 固体 
(solid )， 此 界面 子 窍 阵 为 


/ т^ ст {т} ту ст) ст) 
б, | Iiiz Liig 1114 1123 1124 了 134 
Г” 一 | 
I m ет \ т т т 
12172 Izis 1214 1223 1224 1234 , 
_ | 1-1 1238 115141113 JBT 
"= | 
| том. ` YÍ * \ г 
ЕЕЕ 1124 - 1103-1114 jriTs ~ iliT2 
(8-4.38) 
其 中 
了 m _ (т) Y _ (m) (м) 
1125-60 Ym Үт 1 一 1)53 ,121; 


= — jeg” Ү„. Y,,+1 –126,", 
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= - 5 
П 


(m) __ {т} __ 
Ira =0, 1213 = 0, 
fm __ í mn) (т __ 
Па FE (Y, -1 1214 = jeo (Ym-1 
Ж. 
-10:6;"”, 1261 (яс, 
(m) nfm? 2 (ті (m _ (т) 2 Ст 
1123-49” Уш+163 "5 1223 = јер" Yn 1617» 
(т! _ г} (m; _ í m ` 
liz i = jó", 1224 = —64 9 
(т) (т) . | | 
1134 шер” Y= (Ya 1 І234 = En (Yni 
(эп (т 
—1)6.”, | 一 12)61” 。 


计算 时 ， 仍 然 按 前 述 方式 先 算 前 р 1 个 界面 子 抢 阵 乘 积 
| CEP іфіе-ілу-Т6 15... 


ннен p -1 为 偶数 ， 


ІН ‘2-2. Н ODO D-1 为 奇数 ， (8-4.40) 
第 p 个 界面 矩阵 乘法 具有 下 面 的 形式 
CU P’, УР, УР, ВР, |5”, —U * 3 
1) ° °... — 0 
= (РТ, j@'? 1 (8-4.41) 
jY, `... ~ ју . 


在 (1 x 6 ) 矩 阵 中 第 一 个 元 素 与 最 后 一 个 元 隶 绝对 值 相等 符号 相 
反 。 整 个 运算 过 程 避免 了 复数 运算 。 | 
$ 8-5 层 状 介质 中 Love 波 的 频 散 计算 


上 两 节 都 是 讨论 多 层 介 质 中 Rayleigh 波 频 散 计算 问题 的 ， 
现在 转向 Love 波 的 计算 Love 波 的 情况 较 简单 ， 因 为 每 个 界 
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面具 有 切 向 位 移 与 切面 应 力 连 续 两 个 边界 条 件 。 о 

Love 波 质 点 运动 的 特征 为 垂直 于 由 波 ШЕ» ТҮ 
组 成 的 平面 。 层 状 结构 坐标 系统 与 图 8-3-1 相 同 。 因为 Love Жа 
不 能 在 理想 液体 中 传播 , 故 图 8-3- 1 适用 于 大 陆 和 海洋 两 种 情况 。 
对 于 海洋 地 区 ， 液 体 层 可 以 忽略 不 计 。 这 个 模型 实际 上 上 表示 有 
n -1 个 均匀 固体 层 覆盖 在 均匀 半空 间 之 上 。 如 果 最 深 的 界面 在 
地 晶 中 ， 则 半空 间 是 固体 的 ， 如 果 在 核 晶 边 界 ， 则 下 半空 间 为 液 
体 的 。 

оме 波 的 频 散 函数 可 以 由 Haskell 所 导出 的 公式 表示 。 下 
行 简单 的 推导 。 

Love 波 是 SH ЯВ, БЫН АУ. 则 满足 下 列 波 动 

方程 : - | 


я 522. (8-5,1) 


仿照 Rayleigh 波 的 推导 过 程 ， 并 采用 § 8-3 中 ЫЫ пу 
得 第 m 个 界面 的 位 移 及 应 力 分 量 递 推 公 式 为 





у, Va 
= 一 2 上 cosQ@n+ j(pp: nha! ҮздѕіпО», 
+ | (8-5.2) ` 
(Dy z )m = j Ps Ит Y pm Sin Q, + (ру: )a- i COSQ;, , 
H i; nf ВЖЕ 
cosQ,, jua ҮрізілО, 
fr [assing， со$О+ | (8-5,3) 
按照 Rayleigh 波 同样 定义 
А-а,-14,-2:7:4| . (8-5,4) 
于 是 
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КЕСЕ 


| („а о |=). + А››(р,:3о| 


(8-5.5) 
根据 面 波 存在 条 件 ， 设 最 深 界 面 为 固体 - 固体 分 界 ， 则 频 散 方程 
为 | 

0= Аз + В.Га, Алу. (8-5,6) 
Ж n ЗӘР 1], АНХ Ж, B] 33 
散 方 程 为 
0= A,1. (8-5.7) 
频 散 曲线 任 一 点 的 坐标 (о, c) E, HRA Fo, co) M 是 
HE. W Love 波 频 散 函 数 可 根据 上 二 式 定义 为 
TCO Ai tu,ra Ai 1 )/i ИМЕЮ, 
Fi(@, с) = { | 


Azi/i килы а. 
(8-5.8 ) 
这 还 可 以 写成 更 简洁 的 矩阵 方程 
.fAii | 
Е 5 - ， j - 
100, с) = Gs о] (8-5,9) 


AP s 取决 于 地 层 模型 ， 若 最 深 界 面 为 固体- Ж 体 分 界面 ， 则 
s=0; 若 最 深 界面 为 固体- 固 体 分 界面 ， 则 s= -un(1- c2/ 
82,2%, 

为 了 提高 计算 效率 ， 我 们 并 不 由 (8- -5.4) ФИ Ж. А{‹, А», 
的 值 ， 因 为 这 将 要 做 (2х2)(2х2) 的 矩阵 运算 。 我 们 把 它 改 为 
(1x2)(2Xx2) 和 矩阵 运算 ， 就 可 以 提高 速度 。 同 为 频 散 函数 正 
好 具有 这 种 形式 ， 


а 
Ғі(о, с) (s, = 328,182", | М (8-5,10) 
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ЖЕБЕШ АЖЕН, МЕСІ x 2 )(2 x 2) 运算。 为 了 
得 到 频数 的 最 红 形 式 ， 还 和 要 消除 复 放 运算 。 因 为 9-5.107 
每 一 个 年 阵 乘积 都 具有 如 下 符号 形 宛 : | 


CRD R =]. | (8-5.11> 


为 消除 复数 运算 可 以 重新 定义 频 散 函数 


b | | | 
Fi(@, с) = (s, — 17b, 1b, 2b, [ (8-5,12) 
217° f 


其 中 子 和 矩阵 bn 仅 包含 实数 ， 定 义 为 


(а), (an ),2/ј 

m = “ .13 

ИШИ (а )2 2 | ‘8 š ) 
矩阵 乘积 的 修正 形式 定义 为 | 
(b, Dh 1), - # j +K 为 奇数 ; 
(bi Ha 

| МС 1) (Ви) Dna] ЖҰ £ j+k 为 偶数 . 

(8-5.14) 


F РТА B PK HR 线 的 数值 计算 方法 。 因为 Love 波及 Rayleigh 
波 的 频 散 方程 都 具有 下 列 形 式 : 


Е(о, c)=0. 


Ш о (或 周期 T) 值 ， 用 第 六 章 给 出 的 线性 插值 法 或 抛物 线 插值 
， 法 求 频 散 方程 的 根 ， 即 得 到 对 应 的 相 速 度 c。 在 计算 相 速 度 。 (ñ 
нь 


A 中 微分 项 dc/d7 可 用 差分 项 Ас/ АТ 来 代替 。 
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58-6 用 面 波 资料 反 演 地 球 内 部 结构 


有 关 反 演 的 理论 和 算法 已 在 前 面 专门 讨论 过 。 利 用 面 波 
(Rayleigh 波及 Love 波 ) 反 演 地 充 及 地 懂 内 部 纺 构 问题 可 简单 概 
Ир» 

首先 根据 面 波 记录 测定 其 相 速度 或 群 速度 ， 由 此 得 到 某 一 地 
区 的 实测 面 波 频 散 曲线 。 然 后 对 地 沉 - 地 则 的 分 层 作出 假设 ， 并 
给 定 各 层 的 密度 p: ， 纵 波 速度 a;， 横 波 速 度 6; МИ, 的 初 
人 入。 利用 广义 道 或 最 优化 理论 提供 的 算法 ， 反 复 修改 各 层 参数 ， 
使 实测 频 散 曲线 与 理论 频 散 曲线 得 到 最 好 药 拟 合 。 

以 上 是 用 面 波 频 散曲 线 反 演 地 球 内 部 结构 的 一 般 原理 。 但 在 

县 体 计 算 时 ， 还 要 “根据 而 波 频 散 曲线 及 参数 的 特点 作 某 些 约定 和 
(一 ) 反 演变 量 的 限制 

一 般 说 来 ， 用 面 波 频 散 有 曲线 反 演 地 球 内 部 模型 要 求 计算 的 参 

量 是 很 多 的 。 对 Rayleigh 波 来 说 ， 每 层 有 四 个 待定 参数 (有 h,p， 

а,В); 对 Love 波 每 层 有 三 个 参数 (4,p,8)。 因 此， 对 于 nn BR 
型 分 别 有 in 或 3n 个 参数 。 当 地 下 分 层 较 多 时 ， 会 引 起 反 演 计 
” 算 中 的 某 些 困难 。 
理论 研究 表明 ， 并 不 需要 对 所 有 的 模型 参量 都 作为 独立 变量 
“进行 反 演 。 因 为 面 波 频 散 的 相 速 度 值 对 于 纵波 速度 a ， 横 波 速度 
В 及 密度 p 变化 的 敏 度 是 不 一 样 的 。 一 般 说 来 ，Love 波 相 速度 对 
密度 的 导数 Gc/6p 比较 小 ， 往 往 是 接近 于 零 的 值 ， 而 对 模 波 速度 
变化 较 敏 感 ， 即 6c/68 值 较 大 。 这 可 由 图 8-6-1 看 出 。 图 中 各 括 
号 内 的 数字 表示 求 偏 导数 的 深度 范围 (单位 为 公里 ) 。 

对 Rayleigh 波 而 言 ， 虽 然 在 某 些 周 期 范围 内 密度 是 一 个 重 
要 的 变量 ， 但 起 主要 作用 的 仍然 是 横 波 波 速 8 ， 纵 波 速度 对 
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Rayleigh 波 相 速 度 影 响 较 小 。 如 图 8-6-2 示 。 


әс. 





әс 
ә 
94) | жн 
G ⁄# c /Əz 
` 
%, -一 一 3c/ap 
r. -mpc др 
0,2 | < Я 
7, | (100 - 125) 


Z Ко 19) 
2а | —— 7777 == 





由 此 可 见 ， 纵 波 速度 a 与 密度 о 在 而 小 频 散 县 线 反 演 中 是 不 
太 重 要 的 。 这 样 ， 每 层 待 反 演 的 参数 实际 上 可 以 只 考虑 厚度 天 及 
横 波 速度 8 两 个 。 密 度 p 及 纵波 速度 a 均 作 为 非 独立 变量 ， 根 
ЖЛ Жш B 值 求 出。 换算 的 办 法 是 ， НБ атыса 
为 Poisson 介质 ( 波 速 比 取 为 1. 73)， 则 各 层 纵 波 速 度 a 均 可 由 
横 波 速度 8 换算 (ec=1.738) 。 = иша, 波 速 比 可 以 取 
到 1.90。 

各 层 的 密度 p 值 ， 可 由 求 出 的 & ТЕГІ! 根据 大 量 
的 统计 资料 ， 密 度 p 与 纵波 速 a 的 统计 关系 和 姑 下 表扬 未 ( 人 参看 图 
1-7-2): А 


Tr mT ri ri 








War pA Tt балы 


a ` 3.0 3.5 4.0 45 5,0 5,5 6.0 6,5 7,0 7,5 8,0 8,5 9,0 
i 








p оза 3.37 2.47 2,55 2.63 2,63 2,79 2,94 3.07 3.21 3.33 3,49 3.7 


— Ta ақы TC T= с агенті) 
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ВЕЖ, ШЕШИНЕ ВЕНЕ RE h 的 影响 要 比 受 
模 波 速度 8 的 影响 要 小 ， 即 2с/0һ H; 3c/38 要 小 。 在 反 演 时 ， 党 
常 采用 两 种 办 法 。 一 种 是 将 地 球 内 部 层次 分 细 ， 例 如 分 为 许多 2 
подне, нна, 只 反 注 各 层 的 模 波 速度 të. 
由 于 层次 分 得 细 ， 可 能 增多 待 反 演 的 变量 数目 。 

另 一 种 方法 是 对 各 层 厚度 ЛЕНОК В, 同时 进行 反 演 。 
由 于 二 个 变量 的 量 纲 不 一 样 ， 故 必须 对 变量 进行 加 权 。 权 系数 可 
”到 各 变量 标准 误差 的 倒数 ， 即 О 


ДВ; = АВ: /ов, 
Аи! = Ай,/0,, (8-6,1) 
或 者 采用 相对 权 系 数 
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AB! = Abi, 


Ай” = уу АЙ: (8-6,2) 


式 中 =op/o， 当 w=0 时 ， 退 化 为 只 修 定 横 波 速度 8;。 
(2) 约束 条 件 下 的 逐次 归 位 法 

根据 地 球 物 理 问题 实际 条 件 对 反 演 参数 进行 约束 ， 是 减 小 不 
唯一 性 ， 取 得 合理 结果 的 重要 办 法 。 在 对 面 波 频 散曲 线 进行 反 演 
中 ， 除 函数 约束 关系 外 ， 还 采用 区 间 约 束 或 国定 约束 ， 对 某 些 层 
人 参量 进行 限制 ， 规 定 其 可 变 范 转 。 

在 反 演 的 迭代 过 程 中 ， 每 一 次 选 代 都 要 对 约束 域 进行 检查 
邯 用 逐次 归 位 法 使 参数 回 到 约束 范围 。 


设 地 党 总 厚度 为 
| N | 
Н. = Zh. (8-6.3) 
BARRIERA 
| H, <H,<H,, | (8-6,4) 
Н. H, = Ho — 8, H, = Ho + 6. 


式 中 Ho 为 平均 厚度 ，6 是 允许 变化 范围 。 
在 反 演 过 程 中 ，(8-6， D R 的 约 东 条 件 受到 破坏 时 ， 09475 
各 层 的 厚度 取 为 


а= МСН, = Ну), (8-6,5) 


м =т/ Но, 1=1= 2. 
同样 地 ， 地 壳 横 波 平均 速度 为 


B= EhB En. | | (8-6,6) 
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аа ааа о Tf 


其 约束 条 件 为 


В», | (8-6,7» 
H. В. -Во-%, Вг =В +. | | 
式 中 Bo 是 平均 速度 ，6 是 允许 变动 范围 。 

当 (8-6.7) 式 的 约束 条 件 受 到 破坏 时 ， 归 位 后 的 各 层 流速 应 


按 下 式 计算 : 
= Bi-w(8 —В;), 
- ВИ B, і1,2, 


采用 上 述 逐 次 归 位 法 ， 计 算 简 音 可行， 收敛 较 快 。 详 细 的 方法 原 
理 第 三 章 已 作 介绍 。 


(5) 数值 方法 的 讨论 
在 寻 查 目标 函数 极 小 值 时 ， 采 用 了 收敛 速度 较 快 的 阻尼 最 小 


二 乘法 。 为 了 选择 合适 的 阻尼 因子 ， 可 根据 对 称 窍 阵 A АХАЖ 
Jacobi XERE) АЖ 


Тг(А'А)= УОа%,. 
с dal 


来 确定 阻尼 因子 的 初 值 | 
у= ТЕ(А'А)/ти. (8-6.9> 
反 演 过 程 ТАЕНЕ К, 一 是 参数 x 修正 
量 的 相对 值 小 于 某 一 ғ. 19, 


ДЕД 
> X i 
ізі 
另 一 是 目标 函数 ( 残 差 平方 和 ) 小 于 某 一 sz 值 ， 





LEl’ | (8-6.10> 
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(8-6.8) ` 


aX )= У сү, -Е; (x ) sz- (8-6.11) 


N ya l М i=1 
=: ж ез 可 根据 实测 频 散曲 线 的 精度 或 模型 参数 的 容许 误差 而 事 
НН 信息 矩阵 АНЕ Ro 


88-7 Love 波 和 Rayleigh 波 频 散 
曲线 正 、 反 演 程 序 ` 


(一 ) Гоуе Я ША IE ЖЕ JF 


下 面 给 出 一 个 用 FORTRAN 语言 编 = h Love 波 频 散曲 线 
正 演 计 算 程序 。 使 用 时 仅 需 输入 地 下 各 层 介 质 参 数 ( 厚度 、 横 波 
速度 及 密度 )， 即 可 同时 算出 相 速 度 с 及 群 速 度 U 的 频 散 曲线 。 

(一 ) 主 要 标识 符 及 子 程 序 说 明 

THKNES(50) 一 一 各 屋 介 质 厚 度 d, 的 数组， 最 多 可 表示 50 

Жао 

BETA(50) 一 一 各 层 横 波 速度 В, 的 数组 。 

RHO(50) 一 一 各 层 窗 度 р, 的 数组 

T(30 ) 一 一 计算 频 散 曲线 时 所 取 周 期 的 数组 。 

VPH(30) 一 一 计算 相 速 度 с 的 数组 。 

VGR(30) 一 一 计算 群 速度 U 的 数组 。 

ОМЕСА-- ЯЖоғ-?л/Т, | 

DCDT 一 一 表示 0C/6T， 用 于 求 群 速度 。 

N 一 一 介质 总 的 分 层 数 。 | 

PREA 一 一 求 相 速度 c 时 的 初 值 。 
ROOT(H, E, RT) 一 一 用 线性 插值 法 求 频 散 方 恕 的 根 的 子 程 
| Jo KOR 562 : 
晶 一 一 搜索 根 自 变量 所 取 的 步 长 。 
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下 一 一 求 根 的 精度 了 要求。 

RT 一 一 所 求 的 根 。- 

FLOVE(C) 一 一 计算 Love 波 频 散 函数 (в, c) 的 子 程 
F, Ки, с 为 待 求 的 相 速度 。 这 一 子 程 


守 中 用 到 的 主要 符号 意义 为 : 
BSQ(M) = Bš, | 
THKNES(M) = d;,, 

RHQ(m) = Pns 


BETNSQ = 82, 

МММ0$2=М-2, 

ВЗОВНМ = Вр. = us, 

ВВМММ = - (1 ~ с? /В8 Он». 

(>) FORTRAN-77 诸 言 源 程序 : | 
THIS PROGRAM IS DESIGNED TO COMPUTE 

THE DISPERSION 

CURVES FOR LOVE WAVES IN MULTILAYERED 
FLAT- STRUCTU RE 


IMPLICIT DOUBLE PRECISION(A - Н, O-Z) 
DIMENSION THKNES(50), ВЕТА (50), ВНО(50), 
Т(30), VPH(30), VGR(30) 
СОММОМЈМР/М, РЕЕА/ТО/ТНКМЕВ, ВЕТА, RHO, 
ОМЕСА 
OPEN(1, FILE = PERIOD” 
READ(1, «Ә(Т(1), Ізі. 30) 
1000 PAUSE’INPUT N” 
- ВЕАР*, N | 
ОРЕМ(2, FILE ='ТВВ’) 
READ(2, *)(ТНКМЕ5(1),ВЕТА(1), RHO(I), I=1, 
М) 
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ооо 


300 


РВЕА = ВЕТА (1) 
ҮҮРІТЕС», 300) 
РОКМАТ(//8Х, "СОМРЦТАТІОМ ОЕ ТНЕ 


°- THEORETIC VALUE FOR LOVE WA VE 


400 


500 


100 


DISPERSION’//10X, "ТНІСКМЕ55”,10Х,”5НЕ 

ARWAVE VELOCITY’, 10X, ‘DEN 2SITY’/) 
WRITE(*, 4000(ТНКМЕ5(1), ВЕТАС1), RHO(1), 

I =1, N) | 
FORMAT(/11X, F7.3, 19X, F6,2, 16X, F6.2) 
WRITE(*, 500) | 
ЕОВМАТ(15Х,’РЕВТОО’,8Х, PHASE VELOCITY’ 

12X, 'GROUP VELOCITY’ /) 


DO 200 І-1, 30 


OMEGA -6,283185307/Т(1). 

CALL ROOT(0.05, 1Е-8, VPH(1)) 

OMEGA -6,283185307/(Т(1)-0,01) 

CALL ROOT(0.05, 1Е-8, УРНА) 

OMEGA =6,283185307/(T(1)+ 0,01) 

CALL ROOT(0.05，1 -8，VPHB) 

DCDT = (VPHB- VEHA)/0.02 
ҮСЕ(І)-УҮРН(19/(1-- ТОТУ/УРН(1) * DCDT) 
PREA -УРН(1)-0,1 

CONTINUE 

WRITE(*, 100)(Т(1), VPH(I), VGRCI), I=1, 30) 
ЕОВМАТСОХ, Е10.1, 9X, Б12,9, 14ХЕ12,9) 
СО ТО 1000 | 


‚ END 


THIS IS SUBPROGRAM FOR SEEK THE ROOTS 
OF DISPERSION EQUATION 


SUBROUTINE ROOT (Н, Е, ВТ) 
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102 


IMPLICIT DOUBLE PRECISION (A-H, О-7) 
COMMON/NP/N, PREA | 
W=0.0 

Х-РВЕА 

Ед- ЕГОУЕСХ) 

X=X+H 

Е1 = FLOVE(X) 
IF(F1/F0.GT.0.0)GO ТО 101 

ҒА =Е0 | | 
FB=F1 

А-Х-Н 

B=X 

С-В-(А-В)» ЕВ/(БА ~ ЕВ) 

І Е(УУҘ)5, 7, 5 

ҰУ-1,0 

СО TO 6 

IF(DABS(C1- C).LT.E)GO ТО 3 
Ci=C ` 

FC = FLOVE(C) 

ГЕСЕС» ЕА.СТ.0.0)СО ТО 2 
ЕВ-ЕС | . 
В =C 

GO ТО 1 

FA = ЕС 

А =C 

СО ТО 1 

ВТ=С 

СО ТО 102 

F0=F1 

ТЕ(Х- 10.0)4, 102, 102 

RETURN 

END 
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басосов 


THIS IS SUBPROGRAM FOR СОМРОТАТТОМ ОЕ 
THE LOVE WAVE | 
DISPERSION FUNCTION 


FUNCTION FLOVE(C) 

IMPLICIT DOUBLE PRECISION(A -H, О-7) 

DIMENSION THKNES (50), ВЕТА (50), RHO(50) 

COMMON/NP/N, РЕЕА/ТО/ТНКМЕ5, BETA, RHO, 
OMEGA | 

ВЕТМЅ0 = ВЕТА (№ * «2 

С5О-С» «2 | 

ТЕ(ВЕТМ$О.ЕО.0.0)СОТО 130 

RBNMN = ~- РОВТ(1.0- С50/ВЕТМ$О) + ВЕТМ5О * 
RHO(N) | 

СО ТО 140 

130 RBNMN =0.0 
140 ХК=ОМЕСА/С 

C11=RBNMN 

C12= -1.0 

N2=N-2 

ТЕ(№2.Е0.0) GO ТО 175 

DO 170 J =1, N2 

M=N-J | 

ВЕТМ50 = BETA (М) * * 2 

ARGBTM =1.0- С50/ВЕТМ5О 

IF(ARGBTM.GT.0.0) GO ТО 150 

IF(ARGBTM.EQ.0.0) СО ТО 170 

ЕВЕТАМ-р5ОКТ(-АКСВТМ) 

ОМ = ХК • КВЕТАМ + ТНКМЕЅ(М) 

RBMMM = RBETAM * BETMSQ * RHOCM) 

SINOM =DSIN(QM) 
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150 


160 


170 
175 


180 


190 


200 


В11= ИСО5(ОМ) 

B21= RBMMM * SINQOM 

СО ТО 160 

КВЕТАМ = - DSRT(ARGBTM) ` 
КВМММ = ВВЕТАМ + ВЕТМ50 + ВНО(М) 
ЕХРРОМ =0.5 • ОЕХР(ХК + ВВЕТАМ ТНКМЕ5(М)» 
ЕХРМОМ -0,25/ЕХРРОМ | 
SINOM =ЕХРРОМ -ЕХРМОМ 
В11=ЕХРРОМ +ЕХРМОМ 

В21 = - ВВМММ * SINQM 

ТЕМР-С11» В11- С12 + B21 

С12 = С11* $“ МОМ/ВВМММ + C12 + B11 
С11= ТЕМР 


CONTINUE 


BETMSQ = ВЕТА (1) • *2 

ARGBTM =1,0- С5О/ВЕТМ5О ` 

ТЕ(АВСВТМ.СТ.о0.0) СО ТО 180 

ТЕ(АВСВТМ.ЕО.0.0> СО ТО 200 

ВВЕТАМ =DSQRT(- АВСВТМ) 

ОМ = ХК * ВВЕТАМ «ТНКМЕ5(1) 

В11 = DCOS(QM) 

В21 = КВЕТАМ * ВЕТМ50 + ВНО(1) + DSIN(QM) 

СО ТО 190 | 

ВВЕТАМ = - DSQRT(ARGBTM) 

ЕХРРОМ = 0,5 + РЕХРСХК + ВВЕТАМ + ТНКМЕ5(1)) 

ЕХРМОМ =0.25/ЕХРРОМ 

В11 =ЕХРРОМ + ЕХРМОМ 

В21 = - ВВЕТАМ » ВЕТМ5О» RHO(1) + (ЕХРРОМ ` 
-ЕХРМОМ) 

ЕТОУЕ = С11 + B11- С12 * B21 

СО ТО 210 

FLOVE = С11 
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210 CONTINUE 
RETURN 
END 


(с) Rayleigh 波 频 散 曲线 正 演 程序 

本 程序 用 于 计算 底层 为 固体 的 多 层 介质 模型 Rayleigh 波 的 
相 速 度 c 及 群 速度 U 。 对 大 陆 模 型 及 海洋 型 两 类 频 散 髓 线 均 可 
计算 。 | 

(一 ) 主要 标识 符 及 子 程 序 说 明 

THKNES(50 ) 一 一 各 层 介质 厚度 dm 的 数组 、 

ALPHA(50) 一 一 各 层 介 质 纵 波 速度 а, 的 数组 。 

BETA(50) 一 一 各 层 介质 横 波 速度 Bn 的 数组 。 

RHO(50) 一 一 各 层 介质 密度 р, 的 数组 。 

_T(30) 一 一 计算 频 散 曲线 所 取 周 期 了 的 数组 。 
VPH(30) 一 一 计算 相 速 度 с 的 数组 。 
VGR(30) 一 一 计算 群 速度 U 的 数组 
THKSEA 一 一 -海洋 层 平 均 厚 度 do; ЖТНК5ВА-0, ШО 

算 大 陆 型 频 散 曲线 。 
RHO 一 一 海水 平均 密度 po， 取 值 1.03 。 
ALPSEA 一 一 海水 纵波 速度 ao。， 取 值 1 .5?。 
对 一 一 总 层 数 。 
PREA 一 一 求 相 速度 c 的 初 值 。 
DCDT 一 一 表示 Gc/3T， 求 群 速度 时 用 。 
OMEGA 一 一 圆 频 率 о = 2r/T。 
ROOT(H, E, RT) 一 一 求 频 散 方 程 的 根 的 子 程序 ， 意义 与 附 
| жш]. | 
FRAYL(c) 一 一 计算 Rayleigh НК Ж Fro, c) ËJ + 
程序 ， 其 中 虚 元 с 待 求 的 相 速 度 。 这 一 程序 
中 用 到 的 主要 符号 意义 为 : 
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a a O O б 


ALPMSQ(m) = a2, 
BETMSQ (т) = В2, 
ALPNSQ = aż, 
BETNSQ = 0%, 


EPSO(m) = ри, 1 / ре, 

EPSOO(m) = 2(82 – ЕР5О(тОВ2 1), 

EPSILO = (-1)"-1 02/282 р* 8. | 

其 它 符 号 可 参见 表 8-4-1 及 (8-4.22) 及 (8-4.23) 式 。 

(Z) FO RTRAN -77 语 言 源 程序 
THIS PROGRAM IS DESIGNED ТО COMPUTE 
THE DISPERSION | 


CURVES РОВ RAYLEIGH WAVE ІМ 
MULTILAYERED БІ.АТ-5ТЕССТОВЕ 


IMPLICIT DOUBLE PRECISION (A-H, О-2) 
DIMENSION THKNES(50), ALPHA (50), ВЕТА(50), 
RHO(50)，T(30)， | | 
VPH(30), VGR (30) | 
COMMON/NP/N, РЕЕА/ТА/ТНКМЕЅ, ALPHA, 
ВЕТА, ВНО, ОМЕСА, 
ТНК5ЕА, ВНОЗЕА, ALPSEA | 
OPEN(1, FILE ='PERIOD’) 
READG, *)(T(I), Ізі, 30) 
1000 PAUSE’INPUT М, THKSEA” 
READ», М, THKSEA = 
OPEN(2, FILE =’°TABR’) 
READ(2, *)(THKNES(I), ALPHA(I), ВЕТА(Т), 
RHO(I), I=1, N) | 
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TT зе с. 


RHOSEA =1.03 
ALPSEA -1,52 
І ЕСТНК5ЕА,Е0,0,0) СО ТО 300 
УУЕІТЕС», 150) 
150 FORMT(//8X,’COMPUTATION ОҒ THE THEORET 
IC VALUE FOR RAYLEIGH 
WAVE DISPESION IN OCENIC AREA’//10X, 
'THICKNSS’, 10X, 
SHEAR WAVE VELOCITY” ,10X, 'COMP RESSI 
ONAL WAVE VELOCITY”, 
10Х, 'DENSITY'/) 
WRITE(*, 250)THKSEA, ALPSEA, RHOSEA 
250 ЕОВМАТ(11Х, Е7,1, 52Х, F6.2, 20Х, Е6,2) 
GO ТО 400 
300 WRITE(*, 310) | 
310 БОВМАТ(//8Х, "СОМРГТАТІОМ ОЕ THE 
= ТНЕВОВЕТІС VALUE FOR RAYLEIGH 
WAVE DISPERSION’//10X, 'ТНЕТСКМЕ$ 5’, 
10X, ‘SHEAR WAVE VELOCITY’, | 
10X, 'СОМРВЕЗЗ ТОМАТ WAVE VELOCITY”, 
10X, '“DENSITY'/) | 
WRITE(* 350)(ТНКМЕ$ (1), ВЕТА(1), ALPHA) 
(1), ЕНОЧІ), 1=1, N) Е 


350 ЕОВМАТ(11Х, Е7.1, 19X, F6.2,27X,F6.2,20X, F6.2) 
400 WRITE(*, 500). 
500 FORMAT(15X,’PERIOD’,8X,’PHASE VELOCIT 
Y”, 12Х, | 
“GROUP VELOCITY’, /) 
IF(THKSEA,EQ.0.0) СО ТО 20 
PREA =1.52 | 
СО ТО 30 
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AAAA 


20 
30 


200 


100 


PREA =0.9 * ВЕТА (1) 

20200 І-1, 30 

OMEGA =6,283185307/Т(1) 

CALL ВООТ(0,05, 1Е-8, VPH(I)) . 

OMEGA =6,283185307/(Т‹1)- 0,01) . 

CALL ROOT (0.05, 1Е-8, УРНА) : ` 
OMEGA =6.283185307/(T( I) + 0,01) 

CALL ЕООТ(0,05, 1Е-8, ҮРНВ) = 

DCDT = (УРНВ-УРНА)/0.02. 

VGR(I) = урнср/а+тао/үрнот) + СОТ) 
PREA =УРН(1)-0.1 

CONTINUE р 
WRITE(* 100)(Т(1), VPH(I), VGR(I), Ігі, 30) 
БОВМАТ(10Х, Е10,1, 9Х, Ғ12,9, 14X, Е12.9) 
СО ТО 100 О 
END ` | 


THIS IS SUBPROGRAM FOR SEEK THE ROOTS 


ОЕ DISPERSION EQUATION 2 


SUBROUTINE ROOT(H, Е, КТ) 


IMPLICIT DOUBLE PRECISON (A-H, О- 2) 
' COMMON/NP/N,; PREA 


' AW =0.0 


X =PREA 
ЕО = ЕВА ҮІ(Х) 
X=X+H 
F1=FRAYL(X) 
IF(F1/F0.GT.0.0) GO ТО 101 
FA = F0 
ЕВ-ҒІ 
А-Х-Н 
487% 
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B=X 
С=В- (А-В) • БВ/(ЕА - FB) 

IF(W)5, 7, 5 

W=1.0 | | | | 
GO ТО 6 | 
ІЕ(рАВ6(С1-С).І/Т,Е) СО ТО 3 
Сі-С - 

FC =FRAYL(C) 

ТЕ(ЕС/ЕА.СТ.0.0) GO ТО 2 

FB=FC ` 

B=C 

GO ТО 1 

ҒА = ЕС 


A=C 


GO TO 1 

RT=C 

GO TO 102 

F0=F!1 

ІҒ(Х- 10,004, 102, 102 
КЕТСЕМ 

END 


THIS IS SUBPROGRAM FOR COMPUTATION OF 
THE RAYLEIGH WAVE DISPESION FUNCTION 


-FUNCTION FRAYL(C) 
IMPLICIT DONBLE РКЕСІ5БІОМ(А - H, К, L, 


O-Z)REAL KKNP, LKNP 


DIMNSION THKNES(50), ALPHA(50), ВЕТА(50, | 其 


ЕНО (50), EPSO(50), О g- 
EPSOO(50), ВЕТМ50(50), ALPMSQ(50) 
COMMON/NP/N,PREA/TA/THKNES,ALPHA ,BETA， 
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RHO, ОМЕСА, ТНКЅЕА, 
ВНОЗЕА, АГРЗЕА 

CSQ=C* +2 

ХК =ОМЕСА/С 

ЗЕА СОЕ а0,0 

ТЕ(ТНК$ЕА.ЕО.0.0) СО ТО 160 

RALPHO =DSORT(CSQ/ALPSEA * *+2-1.0) 

СЕААВС = ХК • RALPHO = ТНКЅЕА 

СЕА СОЕ = ВНОЅЕА » ТАМ(ЅЕААВС)/(ВАТРНО• , 
RHO(1)) | 

160 САММА1=2* ВЕТА (1) * * 2/CSQ 

САМІМ1= САММА 1-1,0 

UKNP = - САММА1 * САМІМІ 

ҰҚЫР-0,0 

\УКМР =САМ1М1* * 2 

ВКМР =САММА1* * 2 

SKNP = ЕА СОЕ 

АІ.РМЅО = АТРНА (№) • * 2 

BETNSQ = ВЕТА (№ • «2 

ВНОМ$О = RHO(N) • * 2 

ЕРЅІІО =(-1) • • (М№-1) * ВНО(1) * «2/(2% АТРМ5О 
* RHONSQ + ВЕТМ5О) 

N1=N-1 

170 DO 230 M =1, Мі 
BETMSQ(M) = ВЕТА (М) * * 2 
EPSO(M) = ВНО(М + D /RHO(M) 
EPSOO(M) =2 + (BETMSQ(M) -EPSO(M) • BETA (M 

“0.4.7” | 

ЕР$15 = -ЕР5О(М) 

ЕР$1 = ЕРЅОО(М)/С50 

ЕР52=ЕРЅ1- 1.0 

EPS3=EPS1- EPS15 
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190 


EPS4=EPS2- EPS15 

ТНККМ =THKNES(M) + XK 
ALPMSQ(M) =АГРНА(М) • • 2 
АВСАЕМ =1.0- CSQ/ALPMSQ(M) 
IF(ARGALM .GE.0.0) СО TO' 190 
ВАГРНМ =ОЗОВТ( - ARGALM) 
РМ =ТНККМ • ВАГРНМ 

SINPM =DSIN(PM) 
ZETA1=DCOS(PM) 
ZETA3=RALPHM + SINPM 
АВСВТМ-1,0- CSQ/BETMSQ(M) 
IF(ARGBTM.GE.0.0) СО TO 200 
ВВТАМ =DSQRT(- ARGBTM) 

QM = ТНККМ * RBETAM 

SINQM =DSIN(QM) 
ZETA2=DCOS(QM) 
ZETA5=RBETAM + SINQM 

GO TO 210 

RALPHM = - DSQRT(ARGALM) 
ЕХРРРМ =0.5* DEXP(THKKM * RALPHM) 
EXPMPM =0.25/EXPPPM 
СІМРМ-ЕХРРРМ-ЕХРМРМ 
?ЕТА1-ЕХРРРМ-ЕХРМРМ 


ZETA3=- RALPHM*SINPM 


200 


210 


GO TO 180 - 

RBETAM = - DSQRT(A RGBTM) 

EXPPQM =0.5* DEXP(THKKM * RBETAM) 
ЕХРМОМ -0,25/ЕХРРОМ 

SINQM =EXPPQM - EXPMQM 

ZETA2 =EXPPQM +ЕХРМОМ 

ZETA5= - RBETAM * SINQM 
ZETA4=SINPM/RALPHM 
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?ЕТА6 = $ 1МОМ/В ВЕТАМ 

?ЕТА? = ЕТА • 2ЕТА? 

ZETA8 =ZETA1* ZETA5 

ZETA9=ZETA1* ZETA6 ` 

UKN =2.0* UKNP 

VKN =VKNP 

ТЕ((2* (M/2)) .EQ,M) GOTO 220 

XKNP =ZETA4 + (ZETA? • VKNP + ZETA6 * WKNP) 
- ZETA? + RKNP +ZETA9* SKNP 

ZKNP =ZETA8 x VKNP -ZETA7* WKNP + 2ЕТАЗ 
* (ZETA5 + ВКМР+7ЕТА2 • SKNP) 

UKNP= - (EPS1 * EPS4+EPS2 + EPS3) + UKNP 
+EPS2 * EPS4 + XKNP +EPSI + EPS3* ZKNP 

УКМР =EPS15* (ZETA4* (ZETA + VKNP - 2ЕТА2 
x WKNP(- ZETA8 * ВКМР - ZETA7 * SKNP) 

SKNP =EPS15 * (- ZETA7 * VKN- ZETA9 + WKNP 
-ФЕТАЗ»(7ЕТА2» RKNP - ZETA6 » ЅКМР)) 

WKNP =EPS2* (ЕР52 • ХКМР- EPS1 * ОКМ) 
+EPS1 * EPS1 * ZKNP 

ВКМР =EPS4 + (EPS4 * ХКМР- ЕР53 + ОКМ) 
+ EPS3 + EPS3 + ZKNP 


GO TO 230 
KKNP =ZETA9* УКМР +ZETA7 * WKNP - ZETA 4 


* (ZETA6 * RKNP - ZETA2 * SKNP) 

LKNP =ZETA3* (ZETA2 + УКМР-2ЕТА5 + WKNP) 
+ ZETA? + RKNP +ZETA8 + SKNP 

UKNP = - (EPS1 * EPS4 + EPS2 + EPS3) * UKNP 
+EPS2 * EPS4 • KKNP + EPS1 * EPS3*LKNP 

УКМР =ЕР5$15* (ZETA 3» (ZETA6°VKNP +ZETA? 
WKNP)ZETA 9: RKNP - ZETA7.SKNP) 

SKNP =EPS15*(- ZETA7.VKN + ZE TA 8*WKNP 
+ ZETA 4° (ZETA2*RKNP + ZETA 5: SKNP)) 
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WKNP =EPS4°.(- EPS4:KKNP +EPS3:-UKN) 
-ЕР5ФЕР5ФІКМР 
ЕКМР-ЕР52%(-ЕРӘФККЫР + EPS1* ОКМ) 
-ЕР5$1.ЕР$1.ЕКМР 
230 CONTINUE | 
240 RALPHN= - DSQRT(1.0- CSQ/ALPNSQ) 
RBETAN = - DSQRT(1.0- CSQ/BETNSQ) 
RALRBT = RALPHN* RBETAN 
EPSILN= -EPSILO*CSQ.2/RALRBT 
IF((2.(N/2) .EQ.N))GOTO 250 
FRAYL=EPSILN +» (— VKNP * RBETAN+ WKNP 
— ВКМР + RALRBT- $КМР * RALPHN) 
GOTO 260 | 
250 FRAYL=EPSILN* (VKNP* ВАГРНМ + ВКМР ) 
_ УКМР + ВАЕВВТ + 5КМР * ВВЕТАМ) 
260 ВЕТОВМ 
END 


(=) Rayleigh 波 频 散 曲线 反 演 程序 

下 面 ， 我 们 给 出 一 个 用 Rayleigh 面 波 频 散曲 线 反 演 地 于 介 
质 分 层 结构 的 完整 程序 。 这 个 程序 要 求 输入 实际 观测 的 Rayleigh 
波 频 散 曲线 ， 并 输入 地 下 地 过 及 地 由 结构 的 初始 模型 ， 以 及 由 约 
束 条 件 所 限制 的 待 反 演 参数 的 信息 。 

这 个 程序 具有 通用 性 ， 即 既 可 计算 群 速度 反 演 问 题 ， 也 可 计 
算 相 速度 反 演 问题 。 此 外 ， 亦 可 用 于 计算 正 演 问 题 。 只 要 作 适 当 
的 变动 ， 还 可 以 计算 Love 波 频 散曲 线 的 正 演 及 反 演 问题 。 

(一 ) 主要 标识 符 及 子 程序 说 明 

1。 主 程序 ` | 

FP(20)、FR(20) 一 一 两 个 配合 使 用 的 数组 ， 表 示 兰 石 密度 

及 纵波 速度 的 统计 关系 .其 中 FP 表示 
192» 


纵波 速度 值 ,FR 表示 对 应 的 密度 值 。 
T(30) 一 一 实测 或 理论 频 散 上 曲线 的 周期 值 。 
QBDIS(30) 一 一 相 速 度 或 群 速度 观测 值 。 





ВЕТА (20) 





作 正 演 计 算 时 为 层 状 介质 为 各 层 的 模 波 速 

度 ， 作 反 演 计算 时 为 相应 的 初 值 。 

ELX(40)，BT(40) 一 一 -这 是 两 个 配合 使 用 的 数组 。 作 反 演 计 
算 时 , ВТ ЖЫ ВІ» his B>, 
ho, `, Ві, hr 顺序 将 各 层 的 横 波 速 
度 及 厚度 存放 入 内 。LX 数组 为 对 应 的 
标志 数组 , 车 对 应 于 BT 数组 中 某 一 变 
量 的 值 为 0 ， 表示 此 变量 在 反 演 过 程 
中 变化 。 若 取 为 1 ， 则 对 应 变量 在 反 
演 过 程 中 不 变化 (国定 约束 ) 。 

ZQNE(40) 一 一 由 ВТ 数组 中 挑选 出 来 排列 的 8 E h 值 数组 。 

先 为 初始 值 ， 反 演 结束 后 为 计算 值 。 
ZONEO(40) 一 一 由 BT 数组 中 挑选 出 来 的 B 及 及 数 组 。 一 
” 直 保 留 不 变 ， 最 后 作 模 型 的 初 值 输出 。 

标志 作 相 速度 或 群 速度 计算 的 整 型 变量 。KPG = 0 

表示 相 速 度 的 正 演 或 反 演 计算 。KPG = 1 表示 群 束 

度 的 正 演 或 反 演 计算 。 

标志 : 作 正 演 或 反 演 计算 的 整 型 变量 。 KK = 0 为 正 演 ， 

KK=1 XEM. | 

ВЯ. 





КК 








N паничен. 
A--- 反 演 计 算 中 目标 函数 ® 的 精度 要 求 。 
BL, ВВЕЛИ EE В 的 限制 范围 ， BL 为 В № 
| 下 限 ，BU 为 5 的 上 限 。 即 BL< В < ВИ. 
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HL，HU 一 一 分 别 表示 地 下 分 层 介质 总 厚度 Hs 的 限制 范 
” 围 ，HL 为 下 限 ，HU 为 上 限 。 即 HL< H, < 
2. ТЕЖ 。DISRAY(X) | 
计算 Rayleigh 波 频 散曲 线 ( 相 速 度 或 群 速度 ) 的 子 程序 。 其 
中 王 表 示 层 参数 8; 及 天 ;。 这 一 子 程序 中 的 主要 参数 如 下 : 
ALPHA(20) 一 一 各 层 介 质 的 纵波 速度 a 值 ， 一 般 按 关系 式 
a=YB 计算 ， 由 横 波 速度 ЖЕ. 
- RHO(20) 一 一 各 层 介质 的 密度 РН, HAR 0p Шах 
系 曲 线 内 插 求 得 。 
VPH(30) 一 一 计算 的 相 速 度 理论 值 。 
VGR(30) 一 一 计算 的 群 速度 理论 值 。 
ОМЕСА--- ЖИ Ж о-2л/Т, 
PREA---: 用 线性 函数 迭代 求 根 的 初 值 。 
JP 一 一 控制 变量 ， 作 反 演 计算 时 车 Jp =0 仅 输出 中 间 计 算 
3。 子 程序 СОМЕІМЕ(Х) | 
反 演 过 程 中 约束 各 层 介质 参数 的 子 程序 。.X 为 各 层 横 波 速 
F В ЖЕНЕН;, | | 
HRR PA ЕНЕ ВЕРЫ A 4.45<85<4.75, 地 至 中 
ж JE BU BS РЕШШ 2.56, 4.9. ХАЛ: 
HSUM- 一 地 老总 厚度 Хы, А ЖОЖ Е?7 ЖЕСЕ o 


ВЕАМ-- 一 地 壳 中 横 波 速度 的 权 平均 Е В -( Эта, УД > 


xh;， 由 计算 者 自行 选择 。 
4。 子 程序 MAQT(X, PLMDO, KENN, S, ITFR) 
阻尼 最 小 二 乘法 子 程序 ， 用 于 求 目 标 函 数 ФИЯ АР 
X 开始 表示 层 参数 B, Mh 的 初 值 ， 计 算 结 束 时 为 修 定 后 的 层 参 
数值 。 | 
404. 


PLMDO 一 一 阻尼 因子 初 值 。 

KENN 一 一 反 演 迭 代 过 程 终止 的 特征 整 型 参 时 ， 有 下 列 四 种 
情况 : 

KENN = 0 ` 和 迭代 过 程 在 满足 精度 要 求 时 结束 ; 

KENN =1 和 迭代 过 程 已 达到 最 大 次 Ж (程序 中 规定 30 次 ) W 


结束 ， 


效 ; 


KENN= -1 标志 УМ А Ж SOC ААХ) RA НЕХ. 


КЕММ = - 2 标志 解 求 修正 量 АХ 的 线性 方程 组 失败 。 

SS 一- 反 演 结束 时 残 差 平方 和 。 

ITER 一 一 迭代 次 数 。 | 

其 中 各 参数 的 意义 是 : | 

AC(30, 40)— — Jacobi Ж ЯН. 

АА(40, 400-ЕШИЯЕЖИЯНЖЖЯРЕ. 
G(40) 一 一 工作 单元 ， 表 示 正 则 方程 组 的 右 端 项 。 
PX(40) 一 一 反 演 过 程 中 参数 的 修正 量 АХ, 

QLDX(40) -一 一 反 演 过 程 中 参数 前 一 次 迭代 值 。 
DEF(30)- 一 -实测 相 速 度 ( 或 群 速度 ) 与 理论 计算 值 之 差 。 
5。 子 程序 DERIVE(X, АС, М1) 

计算 Jacobi 矩阵 АС 的 子 程序 。X 为 层 参数 , МІ 为 Jacob 


和 矩阵 的 列 数 ( 即 待 反 演 的 参数 个 数 ) o 


6。 子 程序 LDLT(ISW) | | 
用 CHOLESKY 方法 解 系数 矩阵 为 正定 对 称 的 线性 方程 组 的 


程序 。ISW = 0 表示 方程 无 解 ，ISW =1 表示 方程 有 解 ， 


7. аяЛ QIP(N, X, У, U, F) 
一 元 三 点 插值 程序 。N 为 结 点 数 ，X 为 结 氮 自 变量 数组 ，Y 


为 结 点 函数 数组 ，U 为 欲 内 揪 的 日 变量 信 ，F 为 符 求 函数 值 。 


8， 子 程序 ROOTH, Е, ВТ) 
求 根子 程序 ， 意 义 同 附录 二 。 
| 495. 


9。 子 程序 FRAYL(C) | 
1 ЖЖ Rayleigh ВЖ Р, (о, с) 程序 。 
10。 子 程序 CALSRC(C) 
计算 协 方差 矩阵 及 分 辨 矩阵 的 程序 。 其 中 C(40,40) JF 始 为 
正则 方程 系数 矩阵 A' А, ЖЕНЕ. 
BB(40，40) 一 一 工作 单元 ，(A "A+ 9021)-…!; 
®(40, 40) УЗ; 
_DDX(40)- 一 各 反 演 符 求 参数 的 标准 偏 益 值 。 
11。 子 程序 GJI(N, А, ISW) | 
对 称 矩 阵 求 逆 和 的 子 程序 。 其 中 N ХИ SE Bz A PY ЮЙ; 
ISW =0 求 道 失败 ，ISW =1 求 道成 功 。 
(二 ) FORTRAN-77 语言 源 程 序 
| THIS PROGRAM IS DESIGNED FOR 
COMPUTATION OF THE INVERSE ` 


OR FORWARD PROBLEM OF RAYLEIGH WAVE 
DISPERION IN PHASE 


VELOCITY OR GROUP VELOCITY 


са сос о 


IMPLICIT DOUBLE PRECISION(A-H, О-2) 
DIMENSION ЕР(20), FR(20), Т(30), ОВр15(30), 
Е(30), THKNES(20), 
ВЕТА (20), ZONEO(40), ZONE (40), LX (40), BT(40) 
COMMON/K/KK, KPG/NM/N, M/FPR/FP, FR/OBD/ 
/OBDIS/TE/T, F/LB/LX, BT/TB/ 
THKNES,BETA/BH/BL,BU,HL, HU/E/EA/L/L, 
NL/SEA/THKSEA, RHEOSA, ALPSEA 
ОРЕМ(%, FILE = FPR”) 
READ(8, «ӘСЕРСІ), FR(I), Ізі, 20) . 
_ 1000 PAUSE ' INPUT КК,КРС, L,M,EA,BL,BU,HL,HU’ 
| READ. , КК, KPG, L, M, БА, BL, BU, HL, BU 
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1111 


100 


111 


888 


ОРЕК(1, FILE = THBE”) | 

ВЕАП(1, *)(ТНКМЕЗ(Г), ВЕТА( ТГ), І-і, L), 
ТНК5ЕА 

РО 100 І-і, L 

ВТ(2» 1-1) -ВЕТА(1) 

20МЕ(2» І-1)<ВЕТА(1) 

ZONEO(2* І-1)-ВЕТА(І) 

ВТ(2• 1) = ТНКМЕЅ(1)/10 

7ОМЕ(2 + 1) =ВТ(2 + I) 

ZONEO(2* 1) <ВТ(2» Г) 

CONTINUE 

ТЕ(КК,.МЕ.0) СО ТО 111 

CALL DISRAY (ZONEO) 

PAUSE 1111 

GO то пи 

OPEN(2, FILE=’OBD’) _ 

READ(2, *)(OBDIS(I), Ізі, М) 

NL =2=* L 

OPEN(3, FILE = *LX') 

READ(3, *)(1,Х(1), Ізі, NL) 

DO 7 I=1, NL 

IF(LX(1),NẸ.0) СО ТОТ? 

J=J+1 

ZONE(J) = ВТ(1) 

ZONEO(J) -ВТ(1) 

CONTINUE 

N=J 

ҮҮКІТЕС», 888)BL, BU, HL, HU 

FORMAT(//50X, ' INVERSION FOR RAYLEIGH 
WAVE DISPERSION’//20X, “ІТЕВАТІУЕ 
PROCESS AS FOLLOWS’ //20X,’BETA(L-U)’ 
2Е10.2, 10X, “THKNES(L- U)’, 2Е10,2) 
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, 


ооо 


20 


30 


50 


444 


333 


200 


555 


300 


666 
222 


\ВТТЕ(», 20)М, (Т(1), І-1, М) 

ЕОКМАТ(/10Х, 'M =”, 14/5, Х?Т<”, 30Ғ6,2) 

WRITE(« 30) (OBDIS(I), I =1, M) 

FORMATCOBDIS”, 3086,2) 

WRITE(*, 50)(ZONE(I), I=1, N) 

FORMAT( X =”, 30F6.2) 

CALL MAQT(ZONE, 1,0, КЕММ, 5, ІТЕК) 

WRITE(*, 444) 

FORMAT(//20X，'THIS IS COMPUTED 
РАВАМЕТЕВ $5’ /) 

WRITE(*, 333) КЕММ№, S, ITER 

БОВМАТ(/20Х, 'КЕММ=,, 12, 5Х, 75-”, 
Е9.7, 5X, 'ТТЕВ=’, 13/) 

WRITE(* 200) 

РОВМАТ(/14Х, “PERIOD”, 8X, "ТНЕОВЕТІС 
VALUE”, 8X, ‘OBSERVED VALUE /) 

\УВТТЕ«( +, 555)(Т(1), Е(1), ОВрІ5(1), Ізі, М) 

БОВМАТ(10Х, Е9.2, 10X, Е10.3, 10X, F10.3) 

WRITE(* 300) 

БОВМАТ(/15Х, “INVERSED VALUE’, 10Х, 
'PRELIMINARY VALUE’) 

WRITE(*, 666)(7ОМЕ(1), ZONEO(I), Ізі, N) 

FORMAT(/20X, F6.2, 20X, F6.2) 

PAUSE 1000 

GO TO 1000 

END 


THIS IS SUBPROGRAM FOR COMPUTAION OF 
DISPERSION CURVES OF RAYLEIGH WAVE 


SUBROUTINE DISRAY(X) 
IMPLICIT DOUBLE PRECISION(A - H, О-2) 
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15 


101 


20 
30 


40 


50 


. 60 


70 


DIMENSION Х(40),АТ,РНА(20),ВЕТА(20),ЕНОС20» 


THKNES (20), T(30), ЕР(20), FR(20), F(30), 
VPH(30)，VGR(30) 

СОММОМ/К/КК, КРС/ММ/М, М/ТВ/ТНКМЕЗ, 
ВЕТА/АВ/ 


ALPHA, ЕНО/ТЕ/Т, Ғ/ЕРЕ/ЕР, FR/L/L, NL 


/Р/РКЕА/Ј 3 /ЈР/ОМ/ОМЕСА /ЅЕА/ТНКЅЕА, 

ЕНО5ЕА, АГРЗЕА 
IF(KK.EQ.0) СО ТО 15 
CALL CONFIN(X) 
С = 1,73 
DO 101 І-і, L 
ALPHA(I) = С +» ВЕТА(1) 
CALL QIP(20, ЕР, ЕВ, ВЕТА (1), RHO(I)) 
RHOSEA = 1,03 
ALPSEA = 1,52 
ІЕ(ТНКЅЕА ,ЕО,0,0) GO ТО 20 
PREA = 1,52 
СО ТО 30 
PREA -0,9» ВЕТА (1) 
IF(KK » JP.EQ.0) СО ТО 600 
НМ-0,0 
І1-1-1 
DO 40 І-і, 11 
HM = HM + THKNES(I) 
WRITE(*, 50)HM, (THKNES(I), Ізі, L) 
FORMAT(/10X, "Н5УМ-”, Е7,2, 5X, 20Е7,2) 
WRITE(*, 60) (BETA(I), 1=1, L) 
FORMAT(/10X, "BETA =”, 5X, 20Е7,2) 
WRITE(*, 70)(АГРНАСТ), Ісі, L) 
FORMAT(/10X, “ALPHA =”, 5X, 20Е7,2) 
WRITE(*, 80)(RHO(I), Ізі, L) 


— 
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80 
$00 


620 


150 


250. 


300 


РОВМАТ(/10Х, "КНО-”, 5X, 20Е7,4) 

DO 620 1=1, М | 

OMEGA -6,283185307/Т(ТО 

BT1=BETA(L)-0.1 

SH -0,05 

ІЕ(РВЕА,СЕ,ВТ1)5Н-0,005 

CALL КООТ(5Н, 1Е-в, Е(І)) 

VPH(1) = F(1) 

IF(KPG.EQ.0) GO ТО 620 

OMEGA = 6,283185307/(Т(1) – 0,01) 

CALL ВООТ(С Н, 1Е – 6, УРНА) 

OMEGA = 6,283185307/(Т(1) +0,01) 

CALL ROOT(SH, 1E -- 6, УРНВ) 

DCDT = (VPHB -~ VPHA)/0.02 

VGR(I)=F(1)/(1+T(I /F(1) * ОСОТ) 

F(D =VGR(I) 

PREA =F(I)-0,1 

CONTINUE 

ТЕ(КК.МЕ.0) СО ТО 800 

ТЕ(ТНК$ЕА.ЕО.0) СО ТО 300 

WRITE(* 150) 

FORMAT(//8X, COMPUTAION OF THE ТНЕОКЕ- 

= TIC 
VALUE FOR RAYLEIGH WAVE DISPERSION 
INOCENIC АКЕА”//10Х, ’THICKNESS’, 10X, 
:SHEAR WAVE VELOCITY’ ,10X,’COMPRESSIO- 
N'AL | 
WAVE VELOCITY’, 10X, 'РЕМЗТТУ’/) 

\УВТТЕ(*, 250)THKSEA, ALPSEA, RHOSEA 

FORMAT(11X, F7.1, 52X, Еб.2, 20X, F6.2) 

GO TO 400 

WRITE(*, 320) 


500" 


O o o o о 


400 
500 


100 
800 


THEORETIC 


320 FORMAT(//8X, 'COMPUTATION OF THE 


VALUE FOR RAYL EIGH WAVE DISPERSIO 
М”//10Х, "ТНЕІСКМЕ55”, 10X, ‘SHEAR WAVE 


VELOCITY’, 
VELOCITY’, 


10X, 'COMPRESSIONAL WAVE 
10X, “DENSITY 1) 


WRITE(*, 350) (THKNES(I), BETA(I), ALPHA 
(1), RHO(I), I=1, L) 
FORMAT(11X, Е7.1, 19X, F6.2, 27X, Е6,2, 2X, 


Еб.2) 
WRITEC* >. 500) 


FORMAT(15X， PERIOD“ ,8X PHASE VELOCITY“, 
27 

12Х,”СКООР VELOCITY’,8X,’GROUP VELOCITY 

WRITE(*, 100) (Т(1), УРН(1), УСЕ(І), 1=1, 


М) /) 


БОКМАТ(10Х,Ғ10,1, 9X, F12,9, 14X, Е12,9) 


RETURN 


. END 


TRIS IS SUBPROGRAM FOR PARAMETERS 


CONSTRAINED 


IN PROCESS OF INVERSE СОМРОТАТОМ 


SUBROUTINE СОМЕІМ(Х) 
IMPLICIT DOUBLE PRECISION(A-H, О-7) 
DIMENSION X(40), ВЕТА (20), THKES(20), LX 


(40), ВТ(40) 


СОММОМ/ТВ/ТНКМЕ$, BETA/LB/LX, BT/L/L, NL 
/BH/BL, BU, HL, HU/N/N, M/33/3P 


J =0 
DO 7 I=1, NL 
IF(LX(I), МЕ, 


0) GO ТО? 


4501. 


J=J+1 
BT(I) =X(J) 

7 CONTINUE | 
WRITE(*, 17)(ВТ(1), I=1, NL) 

17 FORMAT(10X, 'BE(I), TH(1)”, 7X,. 20F8.4) 

18 DO 8 I=1, L 
ВЕТА (1) =ВТ(2+ 1-1) 

8 ТНКМЕЅ(1) = ВТ(2* 1) + 10.0 
ІР(ВЕТА (1) ІТ,4,4) ВЕТА (L) =4.4 
ІР(ВЕТА (1). СТ.4.75)Ә ВЕТА (L) =4.75 ` 
І1-Һ-1 | 

ро 9 1=1, 11 
IFO(BETA(I).LT.2.5) ВЕТА (1) =2.5 
Е(ВЕТА(1).СТ.4.9) ВЕТА (1) =4.9 
9 ТЕ(ВЕТА(Т).ГТ.ВЕТА(1))ВЕТА(Т) = ВЕТА (1) 
10 ВМАХ-0.0 
ВМІМ =1Е5 
DO 51 1=2, 11 
ІЕ(ВЕТА (1) ІТ.ВМАХ) GO ТО 50 
ВМАХ = ВЕТА (1) 
КВМАХ = 1 

50 ІБ(ВЕТА(1),бТ,ВМІМ) GO ТО 51 
BMIN =ВЕТА (1) 

‚ КВМІМ =1 

51 CONTINUE 

20 НМАХ-0.0 
НМІМ = 1Е5 
BEAN =0,0 
HSUM =0.0 
DO 54 1=1, Li 
IFCTHKNES(D.LT.HMAX) GO ТО 52 
НМАХ =THKNES(I) 
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53 
54 


60 


61 


62 


63 


64 


80 


111 


КНМАХ =1 

ТЕ(ТНКМЕ$ (1). СТ.НМ1М>) GO ТО 53 
HMIN =ТНКМЕЗ (1) 

КНМІМ =1 

BEAN = BEAN + ВЕТА (1) + ТНКМЕЅ(1) 


‚ НОМ =HSUM+ ТНКМЕ5(1) 


CONTINUE 
BEAN =BEAN/HSUM 
IF(HSUM.LT.HU) GO ТО 61 
ТНКМЕЅ(КНМАХ) = ТНКМЕЅ)КНМАХ) ~ 20 
СО ТО 20 
IF(HSUM.GT.HL) СО ТО 62 
ТНКМЕЅ(КНМІМ) = ТНКМЕЅ(КНМІМ№) + 2,0 
СО ТО 20 
IF(BEAN.LT.BU) СО ТО 63 
ВЕТА(КВМ АХ) = ВЕТА (КВМАХ) – 0.01 
СО ТО 10 

ІЕ(ВЕАМ,СТ,ВІ) GO ТО 64 
ВЕТА(КВМ IN) = ВЕТА(КВМІМ№) + 0,1 
СО ТО 10 
ОО 80 І-1, L 
ВТ(2«І-1) = ВЕТА (1) 
ВТ(2» D = ТНКМЕ$Ѕ (1) /10.0 
1-9 
рО 90 Т=1, NL 
IF(LX(DNE0) СО ТО 90 
1-1-1 
Х(Ј) = ВТ(І) 
CONTINUE 
RETURN 
END 
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THIS IS SUBROUTINE OF DAMPING LEAST 
SQUARES 

METHOD TO SEARCH THE MINIMUM OF OBJ- 
ECT 


FUNCTION IN INVERSE COMPUTATION 


SUBROUTINE MAQT(X, PLMDO, KENNS, ITER , 
IMPLICIT DOUBLE PRECISION (А-Н, О-2) 
DIMENSION X(40), T(30), Е(30), АС(30, 40), 
АА(40, 40), G(40), 
Юх (40), OLDX (40), DEF (30) 
СОММОМ/ММ/М, М/ТЕ/Т, Е/АСС/АС/А/АА/ОЕ/ 
DEF/GG/G 
/D/DX/E/EA/J)/)P/PL/PLMD/S/SS 
WRITE(* 5) | 
5 FORMAT(/20X, ‘DAMPING LEAST SQUARES 
METHOD’) 
ITER =0 
PLMD =PLMDO 
JP=2 
ISB=1 
KENN =0 
GO ТО 1000 
1111 РНІО-РНІ 
10 `ТТЕВ = ІТЕВ +1 
_ ЖЕІТЕС», 11) 
11 ЕОВМАТ(10Х,28(4 4.7) 
WRITE(。，12) ITER，PLMD 
12 БОКМАТ(/40Х, 'ITER =”, 13, 10X, 'PLMD =”, 
Е8.4) 
IF(ITER.LE.30) СО ТО 30 
КЕММ =1 | 
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GO ТО 10000 
30 CALL РЕВІУЕ(Х, АС, М) 
рО 60 т=1, М 
НЕ = 0.0 
DO 70 К=1, М | 
70 НЕ= НЕ+АС(К, 1) * DEF(K) 
G(I) = HF 
DX(I)=HF ` 
DO 80 K= I, N 
НЕ -0,0 
рО 901-1, М 
90 НЕ=НЕ+АС(1, 1) * ACO, К) 
АА(Т, К) =НЕ 
80 АА(Ҡ, 1) =НЕ 
60 АА(Т, 1) =АА(І, 1) +РЕМО 
CALL LDLT(ISW) 
IF(ISW.EQ.1) СО ТО 100 
KENN= -2 
GO TO 10000 
100 DO 120 І=1, N 
OLDX(I) = Х(1) 
120 Х(1) = Х(1) + "Хх (1) 
ISB=2 
GO TO 1000 
2222 WRITE(* 22) PHI, PHIO 
22 ЕОВМАТ(20Х, "РНІМЕУУ-”, F14.9, 5X, "РНІОІО 
=”, Е14,9) | 
ІЕ(РНІ,СЕ,РНІО) СО ТО 130 
C=1.0 
GO TO 140 
130 GDX =0.0 
DO 160 І-і, М 
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180 GDX =GDX+G(D + DX(D 

170 1=0 C=GDX/(PHI- РНТІО + 20:GDX) 

180 L=L+1 
рО 190 1=1, М 

190 Ха) =OLDX(D +CeDX(D 
ISB=3 

GO TO 1000 

3333 IF(PHI,LT,PHIO) GO ТО 140 
IF(L.LT.2) GO TO 210 
DO 220 1=1, М 

220 X(D =OLDX(D 
PLMD =1.5* PLMD 
GO TO 10 

210 С-О,5С 
GO TO 180 

140 НЕ-0,0 
HZ =0.0 
DO 230 І-1, N 
НЕ=НЕ+АВ5(С+ DX(D) 

230 Н2-Н2-АВС(Х(І) 
ТЕ(НЕ.ГТ.1Е-3*+ HZ) СО ТО 10000 
IF(PHI.LT.EA) СО ТО 10000 
РНІО-РНІ 
PLMD =0.5* PLMD 
GO ТО 10 

1000 CALL РІЅВАҮ(Х) 

CALL CALPHI(PHD 
WRITE(* 6000) PHI, (X(D, І-і, № 
6000 FORMAT(8X, "РНІ-”, F10.5, 2(/16Х, 'Х=,, 
13Е12,9)) | 
WRITE(C* 5000) (Е(1), І-1, М) 
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б 


5000 


10000 


700 


800 
900 


300 


FOR МАТ(3</10614-9)) 

СО ТО (1111, 2222, 3333), ISB 
S=PHI 

55-5 

CALL ОЕВТУЕ(Х, АС; М) 
DO 900 1-1, М 

DO 800 К=1, М 

HF =0.0 

DO 790 1-1, М 
НЕ=НЕ+АС(1, D * ACO, К) 
ААС, К) =HF 

АА(К, D = НЕ 

CONTINUE 

CALL CALSRC(AA) 
RETURN 

END 


THIS IS SUBPROGRAM TO SET UP THE PARTI- 


AL 
DIFFERENTIAL MATRAX 


SUBROUTINE DERIVE(X, AC, N1) 

IMPLICIT DOUBLE PRECISION «А-Н, О- 2) 

DIMENSION X(NI), AC(30,N1), T(30), F(30), TEDO 
(30) 


. COMMON /NM/N, М/ТЕ/Т, F/JJ/JP 


JP=0 

CALL DISRAY(X) 
DO 300 1=1, М 
TEDO(I) = F(D 

DO 100 I=1, N 
X(I) =X(D +1E-3 
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CALL DISRAY(X) 

ХП) =X(D -1E-3 

DO 100 J =1, М 

AC(J, D =(F(J) -TEDO(J)) * 1Е3 
100 СОМТМОЕ | 

ІР-і 

RETURN 

END 


THIS І5 SUBPROGRAM TO COMPUTE ТНЕ 
VALUE OF 
OBJECT FUNCTION 


SUBROUTINE CALPHI(PHI) 
IMPLICIT DOUBLE PRECISION(A - Н, О- Z) 
DIMENSION T(30), F(30), OBDIS(30), DEF (30) 
СОММОМ/ТЕ/Т, F/OBD/OBDIS/DE/DEF/NM/N, М 
РНІ-0,0 
рО 200 І-1, М 
DEF(I) =OBDIS(D - FD 
PHI= PHI+ РЕЕ(р) + DEF(D 
200 CONTINUE 
RETURN 
END 


THIS IS SUBPROGRAM ОҒ INTER POLATION 


SUBROUTINE QIP(N, X, Y, U, F) 

IMPLICIT DOUBLE PRECISION (A-H, О-2) 
DIMENSION X(N), Y(N) 

NM1=N-1 

DO 10 I=2, NM1 
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ооо 


10 


20 


25 
30 


20 


IF(U.LE.X(D) СО ТО 20 


CONTINUE 
I=NMI GO ТО 30 
ІЕ(І,МЕ,2 СО TO 25 


GO ТО 30 
IF(U-X(I-1).,.LT.X(I)- U)I=I-1 
X0=X(I-1) 

Х1-Х(І) 

X2= X(I+1) 

A1=(U-X1] * (U~ X2)/((X0- X1) ж (X0- X25) 
А2= (U - X2) + (U— X0)/((X1- X2) + (Х1- X0)) 
A2 = (U ~ X0) * (U ~ X1)/( (X2 —- X0) + (X2 - X1)) 
Е=А1*Ү(1—1)+А2*Ү(1)+ АЗ* Ү(І+1) 
RETURN 

END 


THIS IS ЗОВРВОСКАМ ТО SOLVE LIEAR SYST 


ЕМ 
BY CHOLESKY METHOD 


SUBROUTINE LDLT(ISW) 
IMPLICIT DOUBLE PRECISION (A-H, О-2) 
DIMENSION АА(40, 40), Р(40), G(40), DX(40) 
COMMON/NM/N, M/A/AA/GG/G/D/DX 

DO 5 I=1, N 

DO 5 J =1, 1 

W=AAG,. D 

ІЕ(І- 7010, 20, 10 

IF(J.EQ.1) СО ТО 30 


DO 25 L=2, J 


K=J-L+1 
Ү-ААС, K) 
Z=Y + P(K) 
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АА(Т, K) =Z 
25 W=W-Y-»*Z 
30 IF(W.NE.0.0) GO ТО 35 
ISW=0 
RETURN 
35 РФ =1.0/W 
GO ТО 5 
10 IF(J.EQ.D СО ТО 45 
рО 40 L=2, J 
K=J-L+1 
40 W=W- АА (І, К)» AA(J, K) 
45 АА(Т, J)= W 
5 CONTINUE 
DO 60 Т=1, N 
Y=G(I) 
IF(I,EQ.1i) GO ТО 60 
DO 65 L=2, I 
К-І-І-1 
65 У=У-АА«(Т, K)» DX(K) 
60 DX(I) =Y 
DO 100 L=1, N 
I=N-L+1 
Y=DX(I) + РС) 
ІЕ(І,ЕО,М) GO TO 100 
IA1=I+1 
DO 70 K =IA1, N 
70 У=У-АА(К, П * DX(K) 
100 DX(D =Y 
ISW=1 
RETURN 
END 
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THIS 15 SUBPROGRAM FOR ЅЕЕК THE ROOTS 
OF 
DISPERSION EQU ATIONS 


SUBROUTINE КООТ(Н, Е, КТ) 

IMPLICIT DOUBLE PRECISION(A - H, O- P) 
СОММОМ/Р/РКЕА 

\=0.0 

X = PREA 

FO0O=FRARL(X) 


 Х=Х+Н 


F1=FRAYL(X) 

IF(F1* F0.GT,0,0) СО ТО 101 
ҒА = ҒО 

ЕВ = Е1 

А = Х-Н 

В = Х 

С=В- (А-В) * ЕВ/(ҒА ~ ЕВ) 
ГЕ(УУ)5, 7, 5 

\ү = 1.0 

СО ТО6 
IF(DABS(C1-C).LT.E) СО ТОЗ 
Сі- С 

ЕС-ЕКАҮГ(С) 
IF(FC + ЕА,СТ,0,07 СО ТО 2 
ЕВ-ЕС 

В-С 

СО ТО1 

FA = ЕС 

А = С 

СО ТО 1 

КТ = С 
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ооо 


101 


102 


160 


СО ТО 102 

Ғф-ҒІ 

JF(X- 10,024, 102, 102 
RETURN 


END 


THIS IS SUBPROGRAM FOR COMPUTATION ОР 
THE RAYLEIGH WAVE DISPERSION FUNCTION 


FUNCTION FRAYL(C) 

ІМРІЛСІТ DOUBLE PRECION(A - H, O- 2) 

DOUBLE PRECISION KKNP, LKNP 

DIMENSION ТНКМЕ5 (20), ALPHA (20), ВЕТА (20), 
R HO (20), 
EPSO(20),EPSOO(20), BETMSQ(20), ALPMSQ(28) 

COMMON /L/L, NL/P/PREA/TB/THKNES, BETA / 
АВ/АГРНА, 

ВНО/ОМ/ОМЕВА/$ЕА/ТНЗЕА ‚В НОЗЕА, АГРЗЕА 

N = Y, 

С5О-Сж «2 

ХК-ОМЕСА/С 

ЗЕАСОЕ =0.0 

1 Е(ТНК5ЕА,Е0,0,07 GO ТО 160 

RALPHO=DSQRT(CSQ/ALPSEA + »2-1,0 

ЗЕААВС = ХК • КАТРНО + THKSEA 

SEACOF = В НОЗЕА + ТАМ (5ЕААВС)/(ВАГРНО + 

RHO(1)) 

GAMMA1=2= ВЕТА (1) * * 2/CSQ 

САМ1М1= САММА 1-1,0 

ОКМР =- САММА! ~ 1,0 

ОКМР = - САММА! + САМ1М1 

УКМР =0,0 


4512: 


170 


WKNP=GAMIM1» «2 

ККМР=САММА!* „2 

SKNP= ЅЕАСОЕ 

АІ РМЅ0 = АГРНА (М) * e 2 

ВЕТМ$О = ВЕТА (№) = * 2 

RHONSQ =RHO(N) • + 2 

ЕРЗ 11.0 = (– 1) * * (М- 1) * RHO(1) * < 2/(2 + АЕРМ 
50% RHONSQ + ВЕТМ50) 

№1=М-1 

ОО 230 М=1, Мі 

ВЕТМ$О0(М) = ВЕТА (М) * ВЕТА (М) 

EPSO(M) =RHO(M +) /RHO(M) | 

ЕРЅОО(М) -2» (ВЕТМ5О(М) - EPSO(M) + BETA (M 

+1) 

* ВЕТА(М+1)) 

ЕР515--ЕР5О(М) 


ЕР51-ЕР5ОО(М2/С50 
ЕР52-ЕР61-1,0 

EPS3=EPS1- ЕР515 

ЕР54-ЕР52- ЕР515 

DHKKM = ТНКМЕЅ(М) * ХК 

АІ РМЅО(М) = АРНА (М) * ALPHA (М) 
АВСАГМ = 1,0- CSQ/ALPMSQ(M) 
IF(ARGALM.GE.0.0) СО ТО 190 
ВАГРНМ = DSQRT(- АВСАТМ) 
РМ = ТНККМ + КАТ РНМ 

ЅІМРМ = DSIN(PM) 

ZETA1= DCOS(PM) 
ZETA3=RALPHM * SINPM 
ARGBTM =1.0- CSQ/BETMSQ(M) 
IF(ARGBTM.GE0.0) GO ТО 200 
RBETAM = DSQRT(- ARGBTM) 
ОМ-ТНККМ» RBETAM | 
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SINQM = DSIN(QM) 
ZETA2=DCOS(QM) 
ZETA5=RBETAM • SINQM 
GO TO 210 
190 RALPHM =- DSORT(ARGALM) 
ЕХРРРМ =0.5* DEXP(THKKM * RALPHM) 
ЕХРМРМ =0.25/ЕХРРРМ 
SINPM =ЕХРРРМ - ЕХРМРМ 
2ЕТА1 -ЕХРРРМ + ЕХРМРМ 
ZETA3= - ВАТ РНМ + SINPM 
СО ТО 180 
200 ВВЕТАМ = – РЅОВТ(АВСВТМ) 
ЕХРРОМ = 0.5 + БЕХР(ТНККМ» КВЕТАМ) 
ЕХРМОМ =0.25/ЕХРРОМ 
ЅІМОМ =ЕХРРОМ - ЕХРМОМ 
ZETA2=EXPPQM + ЕХРМОМ 
ZETA5= - RBETAM * SINOM 
210 ZETA4=SINPM/RALPHM 
ZETA6 = SINQM/RBETAM 
?ЕТА?-2ЕТА1»ж?ЕТА? 
 ЕТА8-?7ЕТА1»?ЕТА5 
 ЕТА9-2ЕТА1»ж?ЕТА6 
ОКМ -2,0» ОКМР 
VKN = VKNP 
IF((2* (M/2)).EQ.M) GO ТО 220 
XKNP =ZETA4* (2ЕТА2» VKNP + ДЕТАЄ • 
WKNP) | 
_7ЕТАТ • RKNP+ZETA9* SKNP 
ZKNP =ZETA8* УКМР- ZETA7* WKNP + ЕТАЗ 
* (ZETA5* RKNP+ZETA2* SKNP) 
UKNP = - (EPS1* EPS4+EPS2* EPS3)* ОКМР 
+ EPS2* EPS4* XKNP+ EPS1* EPS3* ZKNP 
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220 


230 
240 


УКМР = 了 PS15* (2ЕТА4» (ZETA5 + VKNP- ZETA 2 
_ * МКМР) - ZETA8* RKNP-ZETA7 • SKNP) 

ЗКМР=ЕР$15 * (~ZETA7* УКМ - 7ЕТА9 • WKNP 
-ZETA3* (2ЕТА2 + ЕКМР- 7ЕТАб е 5КМР)) 

WKNP = ЕР$2 + (EPS2* XKNP- EPS1* ОКМ) 
+ ЕРЅ1 * EPS1* ZKNP | 

RKNP=EPS4* (EPS4* ХКМР- EPS3* ОКМ) 
+ EPS3* ЕР53 • ZKNP 

GO TO 230 

KKNP=ZETA9* VKNP+ZETA7* WKNP- ZETA4 
ж (ZETA6* RKNP-ZETA2* 5КМР) 

LKNP =ZETA3* (ZETA2* VKNP- ZETA5* WKNP) 
+ZETA7* RKNP +ZETA8* SKNP 

UKNP = - (EPS1* EPS4+EPS2* EPS3)* UKNP 
+EPS2* EPS4* ККМР+ ЕР$1 * EPS3* LKNP 

УКМР=ЕР515* (ZETA3* (ZETA6* VKNP + ZETA2 
* WKNP) +ZETA9* RKNP -ZETA7* SKNP) 

SKNP =EPS15* (~ZETA7* УКМ +ZETA8* WKNP 
+ZETA4* (ZETA2* RKNP+ZETA5* SKNP)) 

WKNP=EPS4* (-ЕР54» KKNP+EPS3* ОКМ) 
-ЕР53» EPS3* LKNP 

RKNP=EPS2* (~ EPS2* KKNP+EPS1* UKN) 
-ЕР51»ЕР5бІ«ІКМР 

CONTINUE 

RALPHN = ~ DSQRT(1.0- CSQ/ALPNSQ) 

RBETAN = - DSQRT(1.0- CSQ/BETNSQ) 

RALRBT=RALPHN + RBETAN 

EPSILN = – EPSILO + CSQ * + 2/RALRBT 

ТЕ((2* (N/2)).EQ.N) GO ТО 250 

FRAYL=EPSILN* (-VKNP = RBETAN + WKNP 
- ВКМР* ВАТВВТ- SKNP* RALPHN) 

СО ТО 260 





сс O Ó 


250 FRAYL=EPSILN + (VKNP+* RALPHN + ВКМР 
—WKNP+* RALRBT+SKNP + ВВЕТАМ) 
260 RETURN | | 
END = 


THIS IS 5УВРКОСКАМ FOR СОМРОТАЧӨМ OF 


COVRIANCE MATRIX AND RESOLUTION MATR- 
IX 


SUBROUTINE CALSRC(C) 
ІМРІЛСІТ DOUBLE PRECISION(A - H, О-2) 
DIMENSION ВВ(40 40),С(40,40), R(40,40), DDX(40) 
COMMON/NM/N, M/PL/PLMD/S/SS 
WRITE(*, 200) (CC(I, J), 1-1, N), I=1, N) 
200 ЕОКМАТ(10(15Х, 10Е14.6)) 
рү = SQRT(SS/(M - №) 
WRITE(*, 250) БҮ 
250 ЕОВМАТ(10Х, Ғ14,9) 
РО 320 І-1, М 
DO 320 J =1, М 
ІЕ(1.ЕО.Ј) СО ТО 300 
BB(I, J)=C(I, J) 
GO TO 320 
300 BB(I，J) =C(I，J)+ PLMD 
320 CONTINUE 
CALL б11(М, ВВ, ISW) 
IF(ISW.EQ,1) GO ТО 330 
GO ТО 1000 
330 DO 400 1-1, N 
DO 400 1-1, М 
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R(I, J)=0.0 
DO 400 К=1, N 
R(I, J)=BB(I, K) + C(K, J)+R(I, J) 
400 CONTINUE 
WRITE. =, 430) СЕ, J), 1-1, М), I=1, N) 
430 FORMAT(10(/5X, 10F14.9)) 
440 С=0.0 
DO 450 1=1, М 
DO 450 1-1, N 
DO 450 К=1, М 
C(I, ДЕВА, K) + BB(K, 9) +СА, J) 
450 CONTINUE 
WRITE(* 460) (C(I, J), 7-1, М), 1=1, М) 
460 ЕОВМАТ(10(/5Х, 10Е14.6)) 
DO 480 1=1, М 
480 DDX(I)=DY* SQRT(C(I, Ј)) 
WRITE(*, 500 (DDX(I), I=1, М) 
500 FORMAT(2(/20X，10F14.6)) 
1000 RETURN 
END 


THIS IS SUBPROGRAM FOR COMPUTATION ON 
THE 
INVERSION OF SYMMETIC MATRIX 


SUBROUTINE GJ1(N, А, ISW) 

IMPLICIT DOUBLE PRECISION (A-H, О-7) 
DIMENSION A(40, 40), H(40) 

DO 100 L=1, N 

K=N-L+1 

Р=А (1, 1) 

IF(P.GT.0.0) СО ТО 10 
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10 


20 
30 
40 
50 


60 


100 


200 
500 


ISW=0 
RETURN 

DO 50 I=2, М 

Q=A(I, 1) 

IF(I.GT.K) GO TO 20 
Н(1)--О/Р 

СОТО 30 

H(1) -О/Р 

DO 40 7-2, I 
A(I-1), J-1) =A(I, J)+Q* H(J) 
CONTINUE 

A(N, N) =1/Р 

DO 60 I=2, N 

A(N, I-1)=H(D 
CONTINUE 

L=N-1 

DO 300 I=1, L 

K=I+1 

DO 200 J =K, N 

АС, J)=AG, D 
CONTINUE | 
ISW=1 

RETURN 

END ` 


附录 计算 实例 
(一 ) Love 波 频 获 曲线 正 演 结 果 


下 面 给 出 单 层 地 壳 模 型 计算 结果 的 打印 格式 。 
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COMPUTATION ОЕ THE THEORETIC VALUE FOR 
LOVE WAVE DISPERSION 


E E — x 一 -RE 


SHEAR УУАУЕ VELOCITY DENSITY 





THICKNESS 
3.50 3.50 2.70 
ОЕ: 4.50 3.30 
PERIOD PHASE VELOCITY GROUP VELOCITY 
5.0 3.524424628 3.478699140 
6,0 3.534461540 3,470868456 
7,0 3.545980492 3.452388082 
8.0 3.558892612 3.453472330 
9.0 3.573111580 3.444330912 
10.0 3.588552206 3.435169886 
11.0 3,605129230 3.426192042 
12.0 3,622756338 3.417596750 
13.0 3.641345376 3.409579174 
14.0 3.660805788 2.402329140 
15.0 3.681044256 3.39 602937 
16.0 3.701964586 3. 390853322 
17.0 3,723467810 3.385952702 
18.0 3.745452556 3,384504622 
19,0 3.767815636 3,383608670 
20,0 3,790452862 3,984385950 
22.0 3.836134254 3.391266300 
24.0 3.881685312 3.405521274 
26.0 3.926354996 3.427071210 
28.0 3.969491764 3.455396874 
30.0 4010573466 3.489607496 
32.0 4 049222742 3,528551042 
34,0 4,085206502 3.570948222 
37.0 4,133989426 3.638250080 
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40.0 
43.0 
47.0. 

_ 50.0 
60.0 
80.0 





4.176647430 
4.213606982 
4,255072314 
4,281156742 
4.344975782 
4,411930384 


3.706664516 
3.778302516 
3.856242026 
3.912804890 
4.064935000 
4,243485106 


(2) Rayleigh 波 频 散 曲线 正 演 结 果 
过 模型 Rayleigh 波 频 散 曲线 的 计算 数据 及 


1。 大 陆 型 单 层 
打印 格式 


COMPUTATON OF THE THEORETIC VALUE 
FOR RAYLEIGH WAVE DISPERSION 





TH ICKNESS SHEAR WAVE COMPRESSIONAL 


VELOCITY 
. 3.55 


38. 


4.65 


6.14 
8.20 





РЕКТОР 
5.0 
6.0 
7.0 
8.0 
9.0 
10.0 
11.0 
12.0 
13.0 
14.0 
15.0 
16.0 
17.0 
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PHASE VELOCITY 


3.263276538 
3.263436524 
3.263987176 
3.265315966 
3.267870804 
3.272093322 
3.278379778 
3.287065388 
3.298420932 
3.312653230 
3.329904678 


3.350249736 
3.373687742 


GROUP VELOCITY 


3.262959550 
3,261639130 
3,257925992 
3.250456712 
3,238278966 
3.220971756 
3,198579778 
3,171506322 
3.140427562 
3.10623 9000 
3, 070026620 


3.033 049050 
2,996726542 


WAVE УЕГОСЛТУ DENSITY 


2,74 
3.32 





— T С 


18,0 
19,0 
20,0 
22.0 
24.0 
26.0 
28.0 
39.0 


32.0 


34,0 
37,0 
40,0 
43.0 
47.0 
50.0 
60.0 
80,0 





3.400132676 
3.426401568 
3.461204502 
3, 530702332 
3.604285 056 
3,676880744 
3.744082800 
3.803223516 
3.853505370 
3.895428736 
3. 945115444 
3. 982594236 
4.011274732 
4. 04 0033460 
4.056636596 
4.094047668 
4.132983 960 


2, 962615988 
2.932370888 
2.907672042 
2.881122610 
2.892378422 
2.943165410 
3.026136322 
3,128210294 
3, 236120870 
3.340173750 
3.478223816 
3.590805682 
3.680111702 
3.770452180 
3.821948330 
3. 931510650 
4.025088822 


2. 海洋 型 单 层 地 壳 模 型 Rayleigh 波 频 散曲 线 计算 值 及 打印 
格式 | 

COMPUTATIQN OF THE THEORETIC VALUE FOR 
RAYLEIGH WAVE DISPERSION IN OCEANIC AREA 





THICKNESS SHEAR WAVE COMPRESSIONAL DENSITY 
VELOCITY WAVE VELOCITY 
6.0 | | 1.52 1.03 
6.0 3.98 6,96 2.75 
* а * (ЕУ) 4.68 8.10 3.09 





PERIOD PHASE VELOCITY GROUP VELQCITY 
7.0 1.665065234 -. 1.370104788 
10.0 1.892038910 1, 204591834 
11.0 2.016165512 1.134915906 
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12.0 2.181902976 1,059982386 
13,0 2.409301952 0,986568570 
14,0 2.726273556 0.940305268 
15.0 3.138857040 71.019058140 
16,0 3.530854190 1.440051150 
17.0 3.770657506 2.129142146 
18.0 3.898293444 2.717734700 
19.0 3.972063486 3.112796994 
20.0 4.019399686 3.368390800 
21.0 4. 052376106 ‚ 3.538447534 
22.0 4.076795752 3.656463736 
23.0 4.095726726 3.741809626 
24.0 4.110926994 3.805819316 
25.0 4.123471746 3.855351368 
26.0 4.134054376 3.894713910 
27.0 4,143141982 3.926712562 
28.0 4.15106 0874 3.953234834 
29.0 4.158046116 3.975588502 
30.0 4.164271552 3.994703300 
32.0 ` 4.17493 9052 4. 025747382 
36,0 4,191327026 4,069526196 
40,0 4.203513266 4. 099378468 
43.0 4.210857220 4.116417196 
45.0 4.215120166 4.126021314 
50.0 4.2241 05566 4.145665656 
60.0 4.237250796 4.173219544 
80,0 4.253383574 4.205736280 





(=) R Æ Z 
利用 1971 年 8 月 23 日 发 生 在 千岛 群岛 附近 一 次 6.2 级 地 震 
(45.6°М, 151.0°Е). 该 地 震 通过 蒙古 高 原 ,并 由 甘肃 省 高 台地 
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台 记录 到 。 本 实例 用 该 台面 波 测定 前 Rayleigh 波 群 速度 作 数 
值 反 演 。 选 择 四 层 模 型 进行 计算 。 约 束 条 件 取 为 : 地 壳 总 厚度 五 
-在 4 一 50 公 里 范围 内 变化 ， 地 壳 内 横 波 速度 的 平均 值 Ys 限 制 为 
3 .一 3.7 公 里 / 秘 。 

实测 频 散 值 与 理论 计算 值 如 下 表 所 示 : 




























































































О... U Н EA 4: 
(km/s) (km/s) (km/s) (km/s) 
12.0 2.820 2.811 19.7 2.990 2.935 
11.1 2.830 2.831 22.3 | 3.030 3 040 
И _— _ x 
12.2 2.840 2,849 24,4 | 3.080 3.094 
| __ 一 -一 一 ___ 
15.1 x 5 860 2.865 26.9 x 3.140 3,168 
14.2 2.880 2 885 28.4 3.210 3.215 
_ | _. _ | | _. — — 
15.1 2.910 2.901 30.1 | 3.290 3.269 
1 
16.0 x 2.930 2.917 32 .0 3 .350 3.329 
T D И _|_ _ 
17.1 2 .940 2 .937 34.1 | 3.420 3.392 
_— 2222 o _ 一 _ _ 
Ї 2 .960 2,958 | 39.4 | 3.500 3.943 
_ ИННИ | 
19.0 2.930 2.071 | 





反 演 结果 如 图 8 - 附 3 -1 示 。 由 上 述 结果 可 见 。 蒙 古 高 原 地 
过 速度 分 层 清晰 ， 可 以 用 沉积 岩 、 花 岗 岩 和 玄武 岩 典 型 大 陆地 这 
模型 表示 。 其 康 腊 界面 的 深度 约 为 22km。 英 霍 界面 深度 约 km, | 
数值 反 演 结果 与 该 区 构造 特征 是 一 致 的 。 

初始 模型 及 反 演 结果 如 下 示 : 
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| əл ж 值 | K ж ж 
вж | x — — TT 
厚度 (km) | B (Ckm/s) 厚度 (km) В (km/s) 
1 60 | 2.90 | 5.8 2.90 
2 15.0 | 3.60 | 14,6 3,52 
3 | 25.0 x 3.90 Рр 24.8 2 99 
4 | оо 4 60 | со 4,51 








U(km/Š) 


ы 
k 





Тїз) 


з, 3.4 §.8 4.2 4.6 






-~~ NEAN 
— E R Е 





Bı ©.7228| 0.1242| 0.0338 0,0833 











г 


В» 10.1242 | 0,9367-0,019--0,0644 





и «шай дый 


з 10.0338 | 一 0.0191| 0.9818|-0.0498 





В, [0.0833 /— 0,0649 —0.0498] 0.7493 


图 8- 附 3-1 
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第 九 章 ”理论 地 震 图 的 计算 


利用 地 震波 研究 地 球 内 部 结构 ， 是 广泛 开展 的 一 项 工作 。 过 
去 人 们 利用 天 然 地 震 和 人 工 爆破 ， 借助 于 走时 和 视 速 度 对 地 壳 - 
上 地 枫 做 过 一 些 解 释 ， 但 结果 很 粗糙 。 对 震 相 的 振幅 只 是 进行 了 
试探 性 的 研究 。 为 了 进一步 利用 地 震 资料 ， 深 入 开展 对 地 球 内 部 

结构 的 研究 ， 一 些 地 震 学 家 又 提出 了 理论 地 震 图 方法 。 理论 地 

涯 图 是 根据 对 地 球 内 部 介质 分 布 及 震源 的 荣 些 候 设 ， НЖЖ 
而 成 的 理论 波形 图 ， 又 称 为 合成 地 震 图 。 它 的 主要 用 途 是 利用 地 
震波 动力 学 特征 ， 对 观测 记录 进行 对 比 解释 。 理 论 地 震 图 可 流 有 
效 地 帮助 解释 地 震波 的 振幅 变化 和 波形 特征 。 | 

当前 计算 理论 地 震 图 的 方法 一 般 分 成 两 大 类 : 一 类 是 在 时 间 
域 里 进行 ; 另 一 类 是 在 频率 域内 进行 。 在 时 间 域 内 主要 是 利用 数 
字 方 法 ， 例 如 差分 法 和 有 限 单 元 法 。 由 于 在 时 间 域 内 进行 计算 难 
度 较 大 ， 目 前 这 类 方法 开展 得 并 不 广泛 。 在 频率 域内 主要 是 求 带 
有 适当 辐射 及 边界 条 件 的 解 ， 其 次 是 计算 反 变 换 ( Fourier Ж 
换 或 Leplace 反 变 换 ) 。 这 类 方法 主要 有 : (1) 射线 理论 法 ， 其 
中 包括 精确 射线 理论 (Müller, 1968)、 广 义 射线 理论 (Giltbert， 
1972，Wiggins，1974)、 全 波 理论 (Comier，1977)、 射 线 展开 
理论 CKennet，1974，19753 等 (2) 反 射 率 法 [Fuchs 1968); 
(3) 渐 近 近 似 计 算 (Chapman，1978) 。 

目前 理论 地 震 图 的 研究 已 由 均匀 介质 进入 到 非 均 勾 介质 的 范 
围 。 特 别 是 对 于 横向 非 均匀 介质 的 研究 已 开始 突破 并 取得 新 的 进 
展 。 | | 
本 章 将 主要 介绍 计算 理论 地 震 图 的 反射 率 法 。 这 种 方法 在 目 
前 研究 地 壳 - 上 地 钢 结 构 时 得 到 了 广泛 的 应 用 。 它 的 特点 精度 高 ， 


能 提供 精细 的 模型 。 特 别 有 利 于 用 人 工 爆 破 资 料 对 地 壳 构 造 进行 
研究 。 对 于 计算 理论 地 震 图 的 另 一 和 广东 -三 义 射线 理论 法 ， 
只 介绍 жи. 


59-1 用 反射 率 法 计算 理论 地 震 图 的 基本 原理 


用 反射 率 法 计算 理论 地 震 图 是 一 种 频谱 方法 ， 也 就 是 先 要 在 
频率 域内 求解 波动 方程 。 根 据 适 当 的 辐射 及 边界 条 件 得 到 频率 域 
内 的 地 动 位 移 ， 然 后 再 做 反 变 换 (Fourier 反 变换 或 Laplace MÆ 
换 ) 得 到 时 间 域 内 的 地 动 位 移 。 下 面 我 们 详细 推导 其 计算 公式 。 


(一 ) 基本 关系 式 
地 球 内 部 是 不 均匀 物质 组 成 的 。 为 方便 起 见 ， 我 们 假定 地 壳 
是 由 分 层 均 匀 ， 各 向 同性 的 完全 弹性 平面 层 状 介 质 组 成 。 选 取 如 
图 9-1-1 所 示 的 柱 对 称誉 标 系 ， 爆 炸 点 位 于 原点 ， 接 收 点 5 在 地 
Ж, НИН йу) r НЕ, а, В; 分 别 表示 第 i 层 的 纵波 速度 和 横 
波 速度 ， ЕП 与 介质 弹 件 常数 的 关系 为 


z, - ү +2, , 


В: = ТН а 
О; 

5 (ғ 0,0) 
Zo r 
21 41 а 6. e (1) 
7› 4: «; 8. Ë: (2) 

4) 

7, 4 а В P, ( 
2, ғ а, а,-і В Pnt 2. =H 


7 
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这 里 下 角 标 i 表示 层 的 序号 ，4; 为 第 i 层 的 Lame ЖЖ, в; 
AP i BRKE, p 为 第 i 层 的 密度 。 
以 

d; = Zi~— Zi-1 

表示 第 і АН, На, 为 第 i 个 界面 的 埋藏 深度 。 充 不 涉 
及 到 特定 层 的 时 候 ， 我 们 将 略 去 表示 层 的 角 标 符号 。 

在 接收 点 的 水 平 位 移 q 和 垂直 位 移 w 由 纵波 位 р 和 横 波 位 
得到: 


op oy | 121 
q = Br Əz ° 9 1.1) 
дф оў %- _ 
. W= 5z + - 31” (9-1,2) 
这 里 ф(г, z, OMC, z, 站 分别 清 是 方程 
22--1 94% _ 
Уә 5р2 ° (9-1.3) 
с? Ó 1 9% 
2 一 -一 - 一 -一 . 一 
v 2} Ял әрі" | (9-1,4) 
利用 Fourier 变换 式 | | . 
ф(ғ,2,ө) =f ө(ғ,2,19е ietdt ` 
| ] ә _ | | (9-1,5) 
шо L Je Í 
Ф(ғ,2,10 LI orzo da 
%(ғ,2,) =f %(у,2,/2е ietdt | ` 
1 (= — 252 (9-1,6) 
О | 
2л..-- ) 
我 们 可 以 得 到 9 和 所 满足 的 Fourier 变换 方程 | 
Vig =-К?ф, | (9-1,7) 
527. 


(9-1.8) 
> | 
这 里 ka = ©-, k=, 
а В 
其 中 6 表示 圆 频 率 。 
煤 炸 点 源 产生 的 纵波 位 ， 可 以 写成 下 式 : 
Фі(ғ,2,0---Е а- Ё), (9-1,9) 
Е ai 


这 里 R 表示 射线 离开 震源 的 距离 。 
ЕАН Fourier 变换 式 为 : 


Ф; (7,2,0) = Е (о) | J (kryer (I КОК, (9-1.10) 
0 ЈУ; 


这 里 F (о) 表示 只 依赖 于 时 间 的 震源 函数 的 Fourier 变换 ， 
к= 2. ЖР, с 为 相 速度 ，v1 = ki 一 k? 为 E ВИЖ, 


Jo(kr) 为 第 一 类 零 阶 Bessel Ж, 
假定 第 i БН y r WSQ h£ ДЕ 


Q i (r.Z,@) = F (о) [лье 2721-1) J Қырын 
十 F (о) | pe Г’ 22:1 аме 
! JYI 


| (9-1,11) 
%,(ғ,2,о) = F(a)| Cie? fi J (kr) dk 


+ F(o)| pie if 2722-00, (kr) dk. 
1 


(9-1.12) 
45 (8-1 .11) (9-1 .12) А 
гү — k? c= a; 
y; = НИ 
` 一 AR -К. cLa: $ 
4528" 





一 一 一 一 


, sa | со; 
У; = . 


符号 Ais Bis Ci, Di 表示 积分 常数 ， 它们 都 是 K 的 函数 ， 并 
依赖 天 介质 人 参数 oi Bi, Pi 和 di;J1(kr) 为 第 一 类 一 阶 Bessel 
函数 。 在 (9-1.11) 和 (9-1"12) 式 中 ， 第 一 项 表示 沿 着 z 轴 负 向 传 
КІР, BARNAS z 轴 正 向 传播 的 波 。 
取 | | 

Фү = Aiei i T, 


p; =Bie i i 2721-1), | 
. (8-1-13) 
У: = Се!” £ ` 25-1), 





У: =Р:е- iltzia), j 

把 (9-1.13) 式 代入 (9-1。41) 和 (9-1.12) 式 ， 则 有 : 
p :(r,z,@) =F (о) | cor ФӘСОЛ (kr) Sdk, (9-1%14) 

- | ` 1 


Ф,(ғ,2,о)- F (@) IRESE 更; )J (kr) а, (9-1415) 
ғ; 1 


(二 ) 边界 条 件 
求解 波动 方程 (9-1.3) 和 (9-1.4) 必 须 首 先知 道 问题 的 边界 条 
件 。 在 界面 埋 深 为 2; 的 第 i 个 界面 上 ， 位移 9; 和 4; ,, w; 和 
Wi. MH Z Et (0.,): Ж (0..):.1, (G.,,): A O2) AÈ 
”处 连续 ， 这 些 条 件 对 于 Fourier 变换 量 局 样 成 立 ， 于 是 有 


4;- 4,,,, | 

МІЗ Мг» 22 (9-1:16) 
(0..): = (0 ,,):; 15 | 

(9,,) = (0.,): 1. 
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在 上 式 中 5 Ozz 和 Oz, 分 别 表示 正 应 力 Ozz 522 z r 的 Four- 
ier 变换 ， 其 表达 式 是 ` 


(0,.): = A V? P+ (58 Ф,,97%;, 19%) 


ðrðz r 92 
(8-1:17, 
( zr) š = i 25. 9:- 9 р; + 914: Ф, +199: 9+), 
2 И dz 8: дг? ror ғ? 
(9-1,18) 


在 自由 表面 上 正 应 力 和 切 应 力 为 零 ， 相 应 的 Fourier 变换 表达 
式 为 
(or:)0=0， ` 
(0.,)9-<0. } 


(=) 反射 系数 
用 反射 率 法 计算 理论 地 震 图 的 核心 是 求 界面 反射 系数 ( 即 反 
射 率 ) 。 本 节 我 们 将 详细 叙述 反射 系数 的 导出 过 程 ， 同 时 给 出 可 
О 
。 反 射 系数 的 基本 表达 式 


нот .2) 式 两 边 取 Fourier ана (此 处 带 
ЕЯ) 


(9-1»19) 


= Op; 09; \ 
Or Gz ” | ы 
__ ` (9-1»20) 
Wi= дф; ғ0%9 ъф, | 
Gz Or r ¿ 


把 (9-1.14) 和 (9-1.15) 式 代入 (9-1 .20) 式 得 到 
а, = Ро) |. (-K) (BI+®, Оле) 59% 


_ ғо ушт - еі (ке) КК 
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= Fe) 0:1, ауа . (9-1-21) 
ғ. 1 


其 中 
О: = јЕФ; – ју шт КІКФІЗзіу/; , (9-1-22) 
用 同样 的 方法 可 以 求 得 
wi = о) ЕТЕРІН: , 09-123) 
0 ЈУ 
(zs) i = о) КӨРЕСІН: 9 | (9-1-24) 
9 771 
(0.,), = F(o) КЕЛІ naen, (9-1-25) 
- 1 
其 中 
М: = ју: Фу + ЖИ: jy i Ф! + ЖШ), (9-1.26) 
(Р,./ і-ші ФІ-?2и:ку) Шт tuillidb; + 2р: ку :, 


| (9-1.27) 
(Р,,); = 2р: Ку: Ф; — и:1: Шт +2uikvi р" 
| (9-1.28) 
这 里 Ll: = 262 一 k$,。 
Љ№С9-1.21) 2: ( 9 -1.28) Қ ЖАМ UE ЖИ EER RE 


非常 方便 的 。 下 面 定 义 一 个 位 矢量 Ф. 和 一 个 位 移 - 应 力 矢 量 
S | 


Ф:-(Ф:, Ф;, Фі, Че)”, | (9-1.29) 
Si =(О:, Wi, (P.,)i, (Р,,):)7. (9-1. 30) 
НТД. 
.53[* 


(9 -1.29) 与 (9 -1.30) 式 之 间 有 如下 关系 
5.=Т,Ф,. 220000222 (9-1-31) 
上 式 中 的 矩阵 了; 为 系数 矩阵 ， 由 层 参数 决定 , 它 可 以 直接 从 [9 
-1,222, (9-1.26), [9 -1.27] 和 (9-1.28) 式 的 联合 得 到 ， 其 表 
达 式 如 下 : 


+ jk - ју; + jk +}: 
кору. кі Р . 

Г; = JV; jk ЈУ; + jk (9-1.32) 
еі; -дшку/ thil; + К; 


—2и kv и: 十 24iKY -ui;l; . 
从 (9 -1.30 АЖ Ф:, 


Ф; = Г:1%;, (9-1%33) 
其 中 Ti AER T, ВОИ, HERRE : 





— 2 kv yI Tju Ир, -Viv ~ КУ! 
T-1 = Bb: -ішіу; = ужи; — КУ; “уу; 
; Оц :@?У у? -і2шіку;у емайл viv! +kv/ 
кіші; —i2uikvil +; Жуу) 
(9-1>34) 
Т; 的 正确 性 可 以 通过 下 式 来 验证 : 
1000 
pralo 100 
0010 
0 0 0 1). 


(9-1,31) 式 与 (9-1.33) 式 对 于 第 i 层 内 的 每 一 深度 都 是 正确 
的 ， 并 且 在 i 屋顶 部 的 Ф: 与 在 i 层 底部 的 中 ;之 间 有 如 下 关系 : 

Ф(2:)0-ЕЖ;Ф:С2:.1). (9-1%35) 
ER 


532” 


Е; = (9-1-36) 
егізі а; 
| 


s 0 өзі»: di) | 


对 任何 距离 + 都 必须 满足 n- 1 个 界面 上 的 应 力 及 位 移 的 连 
续 条 件 ， 根 据 (9 -1-16) 式 我 们 有 


8:(2:0-4%;,1С(2:). (9-1.37) 


在 无 穷 远 处 前 辐射 条 件 由 (9-1.11) 和 (9-1.12) 式 中 指数 的 符 
号 选择 来 满足 。 在 下 面 半 空间 没有 入 射 能 量 。 所 以 有 


Ф; = 0, 
} (9-1•38) 
Wi=0. 7 
在 第 一 层 中 只 有 P 波 入 射 到 反射 层 ， 所 以 有 
| Ші-0, (9-1-39) 
比较 (9-1.10) 与 (9-1.11) 式 ， 我 们 得 到 | 
D1(z)=e iz, (9-1-40) 
当 2-2) 时 ， 有 
Ф, (zi) = (Aie "idi, Сіеі” 141, е 17141, 027, 
| (9-1+41) 
上 式 中 的 d1 = 21: - 20 = di. 
当 Z= 24-1 时 , ЖЗ 
Ф„(2„-1)=(00, 0, Ba, Б.Г. (9-1.42) 
А; 
A, = Rep e diri, (9-1-43) 
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С: = Rss e 410140917),  (9-1:44) 
ы 
В„=Т'рРр е7і4171, (9-1%45) 


р, =Трз er-idtv1， (9-1+46) 


这 里 Ra» ЖТ» ЖЖ P 波 到 PP 波 的 反射 系数 和 透射 系数 ， 
Rzs Т, 分 别 表示 P 波 到 S 波 的 反射 系数 和 透射 系数 。 这 样 
矢量 @1 和 可 以 写成 
Diz1) ehidi(Rpp, Res, 1, 0)", (9-14-47) 
Ф (2, 1)=e 14100, 0, рр, Tes)”, (9-1°48) 
由 (9-1.31) 式 知 — 
S (zi) s ТФ, (2, ), 


S,(zi)= S (zi) = Г, Ф; (21), (9-1-49) 
而 

52(2,)= T, Ф> (21). (9-1»50) 
所 以 

Ф,(2,)-Г%5,с21), 

Ф;(2;)<Е;)Ф;(21)-Е,Т”;Т, Ф, (2, >, 

8,(:,)-7,Е,7-1Т, b, (z). (9-1*51) 
< | 

G, =T,E, T7}, (9-1*52) 
| | | 

$›(2;)=©,Т,Ф\(т,). (9-1*53) 


依 此 类 推 可 以 得 到 下 列 递 推 公式 
8:(24)-б,6,.).-б6.6,.Т6,(21). (9-1%54) 
其 中 ©: 为 关于 另 一 条 对 角 线 对 称 的 4 x 4 ЖЕЕ, ЕЛКА 
ШТ: 
534: 


| (Gi)11 = (Gu = —у;с0$Р; + (ү; +1)cosQ:, 
(Gi)12 = (С: )за = j((Yi + Ога, sinP: +Y;rgisinĝQ:J, 
(Gi)i3= (Gi)s4i = j(0i *c*@) "(cosQ: ~ соѕР:), 
(Сі021- (Gi)43 = —jCYirisinPY+(Yi +1)r p sin@i]， 
(Gi)14= (piscs@) llralsinPi +rgisinĝ:), 
(6:09 = (G;)s5s = (y; +1)cosP ; — Y;cosQ; , 
(Gi)33= — pie) 7 (ға; ѕіпР: —railsinQ;) 


(Q;)3 i = (G; )i2x = — ]0:*с*шө*ү‹:(у‹ + 1)(cosP ; — cosQ:), 


(Gi)32 = —piscCe@[ Y: + 1252 зіпР; +у?2 ев сілО:1, 
(Gi)41= бсо Су ғ. АР: + (у +1)? ер. віп011. 
{9-1.553 
在 上 式 中 


Р; =К*Га;а:, 


О; =ke°rg;di А 


кіз 一 28% /с*, 
та. = {вос . соға: 
А-ҘГ1-(с/а:2218/3 с<а:, 
А сүз O 417 | 
fp = {ево 127% cB: 
Xi — jC1 -— (c/B i )2J1>3 с<а;. 


Ж п-1 个 界面 上 有 
8,(2,-1) = 5,_1 (Zn-1) = б, “б, -- 6, “Т, Ф\(2\|), 
(9-1,56) 


Ф (2-1 ) 一 T+! %,(2,-1 ) = ТС, G, _, G, T, 中 | (21) . 
(9-1»57) 
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De 


4 | Б 
М-Ғг6,.,6..-6, 1), (8-15-58) 


于 是 (9-1.57) 式 变 成 
Palza- МФ, (21), (9-1*59) 


很 显然 M 仍 为 4x 4 矩阵 .把 (9-1.47) 和 (9-1.48) 式 代入 (9-1.59) 
式 ， 我 们 得 到 


егізі41(0, 0, Tpp, Трѕ)7 =е 1: М(Врр, Вр<,1,007, 
(9-1%60) 
消去 指数 项 ， 则 有 
(0, 0, Трр, Tps)? = М(рьр, RPS, 1, 0)”. (9-1*61) 
М-Н 


м = |: | 


-1%459 


НМ, A2 x о, (9-1 6020Ж АРА(9-1,619 ЕЕ 





得 到 
9 R рр 1 
9, RPs 0 多 
Т рр ‚ В РР 1 
_ =M,, +1, 
Тр} | RPS 9 ж 
Ер | 
R PP 1 
_ = — Mr Му» (9-1:62) 
Кр 0 ° 
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T pr | 11 7 
=(-М,,М ҮМ ,+М,,) (9-1.64) 
Тр 9), 





设 Mi 1 的 行列 式 为 detM, ;， 伴 随 矩 阵 为 MI ; ， 于 是 
М1 =M, ı/detM;ı 。 《9-1"65) 


以 m;; 表示 矩阵 M 的 元 素 ， 即 可 得 到 M, ， 的 矩阵 形式 ， 


| М, =| Maz м | (9-1.66) 
— W: 1 Miis 


де, , =m iioo — ту тг. (9-1.67) 


把 (9-1.66) 和 (9-1.67) 式 代入 (9-1.63) 式 得 到 


RPP 1 Мзе”із 一 HU217234 
一 一 — М. (9-1-68) 
м det ІҢ 118 — Маз Из | 


R PS 
把 上 式 写 开 则 有 
Rep = (mismas — masma a ) /detM,,, (9-1-69) 
Rps= -(тітіз-тізті1)/4е0ƏМ 1. (9-1-70) 
把 (9-1.69) 和 (9-1.70) 式 代入 (9-1.64) 式 中 得 到 
Tpp = = msiRpp + таз Ёр + Таз» | (9-1.71) 
Тәзет,) Rep + ma s RPs +тТза. | (9-1.72) 


利用 (9-1-69), (9-1-70),(9-1.71) 和 (9-1"72) 式 即 可 计算 反射 
系数 Rpp 和 Ros 以 及 透射 系数 Too 和 Tes 。 但 这 样 计 算 存在 严 
重 的 缺点 ， 因 为 直接 利用 EE 的 元 素 计算 反射 系数 会 出 现 有 
效 数 字 的 损失 ， 因 此 (9-1.69) 和 (9-1.70) 式 不 能 直接 运用 ， 必 须 
加 以 改进 。 下 面 将 讨论 改进 方法 。 
2。 改 进 后 的 反射 系数 表达 式 
.537° 





为 了 避免 上 述 问题 ， 这 一 节 讨 论 改 进 措施 。 改 进 将 按照 下 面 
的 运算 规则 进行 ， | | Е 
„|. 
'kl О 
ЗЕЕ, i j 表示 矩阵 对 的 第 j 行 ; k，1 表示 和 矩阵 的 第 
к. 19). Ж (9-1.370%, RIITTA Ш ЖЕ МЫ НО 
М, ЖЕ Ti! 构造 出 9 ER T., HH EBE Т, 构造 出 о НЕТ, 


由 矩阵 G, 构造 出 6 矩阵 G, 。 为 了 书写 方便 ， 我 们 把 全,, 71 及 
G， 的 下 角 标 改写 成 上 角 标 并 用 小 括号 括 起 。 按 照 (9-1.73) RT 
БЕН ЕТ ”的 部 分 元 素 表 达 式 ， 


IN 


112 
Тіт = Ту! |. = (Tx!) ií (741) ~ (Тя (Ta! Эз 


=Т т; M; Mira (9-1.73) 


а | 
= Esp (ку), 


20? 
Ж“. "12 
T \» - тя] = iv. 
Ж...) 4 
一 в 
РР ЕТ], -) Зое (т?р, 





ж 

Tip = га! 51/2, 

N 12 1 | | 

ЛЕР КЕНТІ 1 
16 п № 20,0 (У„У к), (9-1+75) 


AEO 的 元 素 表 达 式 ， 


е” г; | 12 — | . . : 
сір-в 4 = Сс =G: Ш = —2y (у: +1) + (2); (у: 


10-11 совР:»сосО:- ССҮ; +1)?0:Ү; 
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个 . 12 ж 
Gi: = || ‚=н =G, || = (pi*c*0)%l(yi;cosP 
41 - 
+ Х;со$0О;), 
ж... 12 ә” 12 е {у 14 N ; 
АЕ -бір-«|Б-аф-е(| = G8 


723 | 
= С; ІН =j(piscsóo) (27; +1) (1- соѕР:соѕ0:) 
(У; В ІҮ; У: Х,2:20, 
个 112 N . 7113 
Gis) =G, | ‚ -G =e fh = — (pi *cs@) (U: соѕО: 
2 . 


+ZicosP;), 





е | 
Gii = 5! ||, = - (p; *c*@) 2(2(1— созР; *с050;) 
+U:Y: +T X;Z;), 
АМ 134 
G: = G ЕЕ | 
112 24 
= - (pi*cs@) СҮ) “2: + соѕР: + (Y; +1)2+D 
X cosQ: 2, 
“.,, 13 4), 724 
Gu =G ||, G: =G. |2 = с0$Р; *с0$О:, 
се Шаба =o, ||, = с: (i) =G, |= Gi 
23 Siji = 924 “0; 23 і 24 45. 


=: |} = ite, +10 ;cosQ:; +7; ZicosP; J, 


— i, 713 
Соу =G; = UZ, 
22 





5; 14 ^^ | 723 Nii) 734 ~, 
Gz =G; | =G}; ' = G; | = G ss =G: | =G в. 
112 312 14 
=G, | = ipiscvo)fy， (Y: +1) (27, +1) (1 - 
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- совР:“сов"О:) “СХҮ; +1)3U: У; + YX: eZ: D), 
“ғ. 114 ^^. ‚2 АРГ (Ci) 
вр =G ЕНЕ =@’=С;: | = Cr 54 


"24 
= Gi ІШ -с-)С(Ү; + ПУ: с05Р;:+7:*Х; «совО:2, 


Со; 14 әл . `23 
Сі: 6:60 6, | тео: па 


- соѕ5Р;соѕО:) + (Y; +12U ; Y + УХ: 7. , 


“`... 734 
= Gli =G: | = (piroro) СУ; 
2 213 


+ 1)2 У; соѕР; + ҮЗ X: совО:2, 


Gli’ = – (р; сф) 2 (212 СҮ; +1)? ~ соѕР:соѕО:) 


+ (ИИ Y +Y XZ), 


( °-] 75 
其 中 
С: = У; віпР; А У; = Ya віп0: y 
Х;: = Ү.,5іпР:;, Zi = ҮрізсіпОі. (9-176) 
м. 
ЖЕТІ AOOO ISIS: 
^,. 112 
TIP =T: || = к? УУ, 
| 412 
分 | ) 13 
Та = T |, = -іріуі»ш?, 
“а. 4074 23 
тет =т= -japik (1 +2. vD 
| | 112 


(1) 4 Шу, [21 ; 
Туу =Т р =T; ЕТ, БЫЛЫС 








A 134 - 
个 | 712 ж. f 312 . : 
т ет | = -T= -T | -12_ y. y’ 
14 1 | , 13 ІШ k 191» 
个 113 N | 13 
ТЫ = т: |, =-Т21 = -Ti | = jp V(O, 
” | 114 ж” 23 | Ж | 514 
T š1 =T: | = Ti -ri --тір--т) 
4:23 | 23 :- < T {114 
= јр, ВКС, -2У1У1) 
个 34 ж” 734 
TH =T] = тб = -Tı | = 2. 04( 12 
64 1 АА 63 1 | 01 *В1 СИ 
— 4Қ2М1УІ)», 
F |} 
Г 12 = Ti || = ЖУ, 
个 713 Ра 24 
т» =T: | -тыр-т)| -0, 
13 13 
сіз 114 . 1 
Тз = Tı || = јак», 
Ai 123 ‚ 
Ti =T || =j, 
ж.а; 84 2 
тт: |, = 428 vik, 
Ai 、 712 
T 15 =T, || = 265$, 
Sii "14 | 
Til = Ti |i, ui yf, 
ж.а 23 А 2 / 
Т! т, = 740, Bi К? vi, 
A s 24 | 
Т3 =T; іе Bivi (2k2- lH). (9-1°77) 
А 


ЖЕМ а 以 由 M 得 到 。 但 由 于 6 矩阵 有 一 个 特殊 而 重要 的 性 
Ж, ERRAN 6 矩阵 等 于 每 个 4 抢 阵 的 乘积 ， 因 而 徐 矩 阵 又 
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кете), бө Tu) ӘРІГЕ. 
М-Ғоо.бе-і.. баз. а), | (9-1.78) 


计算 反射 系数 Rep M Res АНН РЕМ Е Ж. yk 
黑 (9-1.73) 式 的 原则 由 (9-1.69) 和 (9-1.70) 式 得 到 


в _ 13Таз — 13 Mza [12 ды 个 
PP = таз т. ата т. = mia/mii, 


(9-1,79) 
Rps - _ Т1 123 — ТізІМ31 -(-=|| JZ ahi) 
Wi i Woo — тіз оі 13 12 
> ж” | 
= 一 ті:/т11. (9-1,80) 


在 上 面 的 两 个 表达 式 中 , тіз» mi 和 mit 表示 ВМ 的 元 
素 。 由 此 我 们 可 以 看 出 只 要 计算 出 论 矩 阵 的 某 些 元 素 就 可 算出 
反射 系数 的 值 。 实 际 上 我 们 只 需要 做 下 面 形式 的 矩阵 乘法 。 用 符 
号 矩阵 表示 为 : 


| (1х 6),(6x 6)n-1 (6X 6) ; (6x 6),(6х3);, 
(9-1•81) 
这 里 (1х6), НЕ ТСО 的 第 一 行 ，(6x 6): 表示 3 EE 

G .0，(6x 3); 表 示 矩 阵 公 (0) 的 第 一 ， 二 ， 三 列 。 
М-Н DDR H EBE G О 是 关于 另 一 条 对 角 线 对 称 
的 矩阵 ， 并 且 它 的 第 三 ， 四 行 或 第 三 ， 四 列 元 素 相同 。 根 据 (9- 


175) 式 的 性 质 和 下 (9 = 个人 RTI = 个 (1) 这 一 特点 ， 我 们 可 
以 把 (1x6)，(6x6) 和 (6x 3 ) 的 形式 分 别 写成 (1 x 5), 
(5x5) 及 (5x 3) 的 形式 。 这 样 以 来 (9-1.81) 式 就 变 成 下 面 
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(1%5),(5Х5)„-1-*- (5х5); *.- (5х5). (5х3). 


_ (9-1-82) 
上 式 的 计算 量 远 远 少 于 (9-1.81) 式 的 计算 量 。 这 样 就 缩短 了 计算 
时 间 ， 提 高 了 计算 效率 。 和 矩阵 可 以 写成 下 面 形 式 : 


¿N ` a. 


Ср ©,» 2G 13 G; бу 


«М, ғ AN ғ ум 
Gob, G22 2G23 С): 6)! | 
б = Сз, Gs, 26зз-1635 G36 (9-1.83) 
ғ мм = s ^ч 
Gs; С» 2G53 С 55 С-56 
| 入 ж ж N N 
(Се Ge: 26 Ges 66). 
FERMARE Rr: 的 计算 表达 式 。 在 具体 导出 之 前 先 引 用 
一 个 定理 : 
如 果 P，A|，A,,…, A, 是 具有 两 个 或 更 多 符号 排列 的 矩阵 
H | | 
Р=А,-А.. А,» 
ЛІ . 
i; 115c КЕ Г [аъ 
路 - | ЕЗ! м (9-1-84) 





在 上 式 中 p, а’, а%, се, а" ЖШ ЕР, А), Аз» ~, 
А, 的 元 素 。 (9-1-84) 式 中 字母 符号 的 迭 加 对 是 只 有 不 同 字 符 的 
不 同 对 。 我 们 可 以 选取 bc 22 12, 13, 14, 23, 24, 34%, BH b 
二 c， 绝 对 不 能 疗 时 包括 12 和 21 两 者 。 该 定理 的 证 明 见 Dukin 的 
文章 (Dukin，1965)。 利 用 上 述 定理 则 可 得 到 


112 | 12 lab “si WE 
т 11 пит ||, = Т; °С, | "G? | “Т, | 
112 2 “са uu 12. 
мы 


ж N 
=T Gue TH? (9-1°85) ` 
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其 中 


2 “ба- (Сал е (бизн: (Gs). (G зы . 
把 (9-1.85) 式 展开 并 写成 矩阵 形式 则 有 


(9-1.86) 


Е бт 为 (9-1.83) 式 中 G неа. ЖОНС 的 对 称 性 我 们 
得 到 


А | 
+T et. | (9-1.87) 


在 上 式 中 ti(i=1，2，-…，5) 表示 (9-1.86) 式 中 后 两 个 矩阵 相 
乘 的 乘积 元 素 。 根 据 同 样 的 道理 我 们 有 | 


> Aia. Ai “ “сі; 
таз-Тірі-Т;2і-Т) Та еба 
КИ 
тив. | | (9-1-88) 


ҘЕ (9-1-87)41(9-1-88) RARA (9-1 +79) А ШІН 





利用 上 式 计 算 反 射 系数 就 可 避免 有 效 数 字 的 损失 。 
*D44。 


(四 ) 带 有 自由 表面 影响 的 位 移 
我 们 的 目的 是 求 地 震波 到 达 地 表面 的 振动 位 移 ， 以 便 与 实际 
观测 资料 相 比 较 ， 因 此 必须 考虑 自由 表面 的 影响 。 ПИХ БЈР 
波 到 达 地 表 的 位 移 ， 
反射 带 的 反射 P 波 位 可 在 (9-1.11) 式 中 令 i=1， 取 其 第 一 
项 并 代入 А, 的 表达 式 ， 于 是 得 到 


Е 位 ` . ir 0:-а1 > КК 
Ф,- СЛЕТ R>: e ТУ . 
(9-1,90) 
这 个 反射 P 波 入 射 到 自由 表面 后 又 产生 两 种 反射 波 ， 其 位 函数 
ЖЕ: 
г как 
г! jv, 
(9-1,91) 


Y, = F(o)| nar Ёрге 1571 177” Как, 


(9-1, 92) 
把 (9-1.980)，(9-1.91) 和 (9-1.92) 式 代入 (9-1.20) 式 可 得 到 
вт. Z, o) = во) [ie :se 
жалды 


) 


+ }Кгьр*е ' 1 


. -jzd v jen 1X kdk 
+ уг, се 11 “в, ы (ағу, 
1 
(9-1,93) 
e= -一 -一 e . ( 9 ; 
убт», Z, 0) ЗОИ 7241) 
Ут, > 


— У! Гррё | 


.545»% 


+ Кг. се. 1, - са ы аа Ж, 
| 1 


| ЕОНИ (9-1, 94) 
在 自由 表面 上 z=0， 于 是 (9-1.93) 和 (9-1.94) 式 变 成 : 0 


_ — tf -> 4 | 
a(r, о, о) = Ға) ЖА пото DJ (kr) 
- 9 r d 


хе ! рак, (9-1,95) 
1 > 


| | 1 


хе 7 1e Rprkdk. (9-1,96) 
令 Q= 2-2, , | i : 
(9-1.97) 
= Ак2уіУ4 十 а? . | 
于 是 . 
rpp = (4k?vi v’ — 02) /Е, | (9-1. 98) 
rps = ~ 4Ку! 0/Е, (9-1.99) 


我 们 用 BE。 和 BE。 分 别 表示 水 平 位 移 和 垂直 位 移 的 自由 表面 影响 
函数 ， 


i ， 
E, = О + ку» + Ағы) = jAkviy [ki /F, (9-1,100) 


Ew = 1—г›»+ роу = — 2681 0/F. (9-1,101) 
1 -- 


如 果 我 们 所 考虑 的 模型 在 反射 层 的 上 方 还 有 一 组 覆盖 层 ， 如 
图 9-1-2 所 示 。 图 中 的 m 为 爆破 源 ，S 为 接收 点 ，m 为 覆盖 层 的 
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层 数 ， 其 余 的 参数 与 图 9-1-1 相 同 ,在 覆盖 层 中 只 考虑 透射 情形 ， 
相应 的 9 Ж w 变 成 下 面 的 形式 ， 


ао, о, @) = го) || R.E. тыш Gr) 


Хехр(-2) Ediv ак, 
= 1 t 








(9-1.102) 
9-1-2 带 有 覆盖 层 的 介质 模型 
wlr, о, @) = жа ЕьрТ,4Т,,/,(кГҘЕ,, 
ХехрС-2) P @:уз)как (9-1.103) 


і= 1 


这 里 Tis 是 从 震源 向 下 传播 到 反射 层 的 各 界面 透射 系数 的 滋 积 ， 
Тр. 是 从 反射 层 疝 上 传播 到 第 - “ 层 的 各 界面 透射 系 数 的 乘积 ; 
exp ЖЖ е, 

由 于 天 =o/e， 即 波 数 k 即 是 相 速 度 c 的 函数 又 是 国 频率 的 
函数 ， 因 此 在 做 数字 积分 时 使 用 k 将 是 不 方便 的 ,下 面 我 们 引入 一 
ТУК 有 关 的 新 变量 使 其 与 。 相对 独立 ， 命 
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k= ÊsinY=k. sinY , (9-1.104) 
Ст 


在 上 式 中 a, 为 第 m ВНЗ. ИАА A R 制 为 实 
数 ， 那 么 它 可 以 解释 为 射线 在 反射 层 顶 部 的 入 射 角 ， 引 入 新 变量 
а, ЖЖ T, a, Tos K E, 和 Ew 就 只 依 赖 于 7? 而 与 6 无 关 ， 积 
分 (9-1.102) 和 (9-1.103) 式 变 成 : 





ас, О» д) = | 2 | 
71 


а, 


sinYcosY Rp»: (о, Y)G(Y) 


XJ,  (k¿rsinY)exp(— j2k,, У! dini )dY. 


i=l 
(9-1.105) 


_ — Гу | . 
wlr, о, @) = Ека „|'*зїпҮсозҮ 7, (k. .rsinY) 





х Крр(@,Ү)*Н(Ү)ехр‹ - j2k a, dimi)dy. 


i=l 


(9-1.106) 
ЩЖ G (Y) Ж H(Y) 的 表达 式 分 别 是 ， 
со о уг: c, но) һоро, 
š =2 і = 2 


g(Y) = 4j (z) nísinY т, (У) = (4-) А, 


2 | 
A= (2) 一 2sin2y ， B= А? +41, 1! 51127, 


2 


Т:(Ү)-40;-10:7:-17: Sr s 
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/ 
С-ля%(р;віһ?У-р;-1) ~ n; -1 (р: зат? Y +p:;) ° 
D=sin2Y(p;sin2Y+pi—-pi-i)2+ nini (pisin? Y -Pi-1)" 
+piipDimini-i EN- Грітлітіті-івіп(У471-4 


х (pisin*Y+p;)+p; ір, 0, 


i= (=) - sin2y | , 
1: = (e) sin Ур 
p: = 2|: (f=) - ,人 у 1. 09-1107) 


WRA z=0 处 前 位 移 不 受 自 由 表面 的 影响 ， 即 用 半空 间 代 替 第 
-- 层 ， 此 时 可 取 gev) = 18181, СҮ) =1, Жт-1, PÆ 9-1-1 
1 


所 示 的 模型 情况 ， 则 GY) = g(Y), НҮ) = К(Ү). 
由 (9-1.104) 式 我 们 得 到 : цК ОВР, У, =0, єк = оо 


时 ， Y, = 了 -jco， 这 就 是 (9-1.105) 和 (9-1.106) 式 中 的 积分 
限 ， 积 分 路 径 在 Y= 处 成 为 一 直角 。 已 经 证 明 把 积分 变量 限制 


为 实数 且 取 7,0, Ү < 二 对 于 研究 体 波 是 足够 的 。 

把 (9-1.105) 式 和 (9- .1 .106) 式 化 成 数字 积分 ,利用 计算 机 可 得 
频率 域内 的 位 移 值 9 和 Ww。 再 对 4 和 wi Fourier 反 变换 即 可 得 
到 时 间 域 内 的 地 动 位 移 q 和 w 。 把 离散 的 位 移 值 4 和 w 绘 {ЛЕ 
对 间 - шыма ыы 


4549» 


89-2 用 反射 率 法 计算 理论 地 震 
图 的 数字 处 理 方法 


(一 ) 反射 系数 的 计算 
用 反射 率 法 计算 理论 地 震 图 最 关键 的 部 分 是 计算 界 而 反射 系 
数 。 由 反射 系数 尺 ,;, 的 表达 式 知 ， 它 即 是 图 频率 o 的 函数 又 是 
角度 Y 的 函数 。 换 言 之 ， 我 们 要 在 频率 范围 (ok оз) 和 角度 范 
(71, Y2) 内 计算 反射 系数 。 以 AY Ж 未 角度 增 量 ， 那 么 可 以 
从 下 式 得 到 角度 样 点 数 ; 


Y, — Y; 
„= бҮр ， -2.1 
М. АУ (9-2.1) 


以 Ао 表示 频率 增 量 ， 可 从 下 式 得 到 频率 样 点 数 : 


No= ФА, (9-2-2) 
由 上 面 两 式 可 知 R，(o，Y) 前 计算 总 数 是 Ny x No， 这 是 一 个 
很 大 的 数 ， 需 要 占据 大 量 的 计算 机 内 存 ， 一 般 的 计算 机 都 很 难 满 
足 这 一 条 件 。 
反射 率 法 的 一 个 特点 是 ， 反 射 系数 的 值 对 任意 接收 点 距 都 是 
一 样 的 ， 因 此 只 需要 计算 一 次 ， 只 体 的 计算 可 以 采用 不 同 的 方 
法 。 ; 
第 一 种 方法 是 先 计算 反射 系数 ， 然 后 积分 。 为 了 避免 反射 系 
数 占据 大 量 的 内 存 ， 可 使 用 外 部 设备 。 把 求 得 的 反射 系数 值 记 入 
外 部 设备 ， 使 用 时 再 从 外 部 设备 调 入 。 第 二 种 方法 是 改变 积分 顺 
序 。 先 给 定 频率 值 ， 对 Y 角 计 算 反 射 系 数 后 立即 把 它们 用 到 不 同 
的 接收 距 ， 这 样 就 各 开 了 存 贮 所 有 有 反射 系数 ， 积 分 结果 需要 增加 
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一 个 位 移 数组 ， 但 这 个 数组 并 不 很 大 。 后 一 种 方法 不 仅 可 以 省 去 
外 存 ， 还 可 以 缩短 计算 时 间 。 


(с) 在 计算 过 程 中 对 参数 的 控制 

用 反射 率 法 计算 理论 地 震 图 精度 较 高 ， 但 计算 时 间 也 较 长 。 
因此 我 们 希望 控制 某 些 参数 以 便 减 少 计算 时 间 ， 同 时 又 能 保持 记 
录 响 应 的 主要 特征 的 精度 。 | | 

控制 方法 可 分 成 两 类 : 

4, 控 制 频率 ， 持 续 时 间 ， 入 射 角 。 

B .控制 反射 带 的 定义 。 

А 类 控制 的 关键 参数 是 : 

DAt: 理论 地 震 图 和 数字 信号 源 的 时 间 增 量 。 

от. 记录 响应 的 持续 时 间 。 

ФО, f2): 频率 窗 。 

Q@(ci，c: ): ЖЖЖИ. 

OAY: 入 射 角 的 增 量 。 

B 类 控制 参数 包括 :” 

覆盖 层 和 反射 带 的 定义 。 

(НИЕНІ. 

国 地 球 改 平 近似 。 

这 里 我 们 将 主要 讨论 人 类 控制 ， 对 了 类 控制 只 做 简单 人 
述 。 

1。 时 间 增 量 | 

a。 为 了 避免 混淆 ， 时 间 增 量 At 要 选 得 足够 小 ， 以 确保 在 
Nyquist 频率 处 信和 号 源 的 振幅 谱 趋 于 零 。At 的 取 值 一 般 可 为 
0.01 或 0.02 s 等 。 

b. 通常 我 们 使 用 一 个 很 小 的 At， 使 Nyquist 频率 大 大 超 
过 震源 的 频率 范围 。 

2. 记录 响应 的 持续 时 间 
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‚ 记录 响应 的 持续 时 间 要 选 得 合适 ， 过 长 会 使 计算 时 间 宛 长 ， 
过 短 则 不 能 包括 全 部 所 需要 的 震 相 。 持 续 时 间 一 般 选 取 观 测 记录 
的 最 长 响应 时 间 。 擅 谓 响应 时 间 是 指 在 某 一 距离 范围 内 观测 记录 
的 P 波 震 相 的 实际 持续 时 间 ， 这 个 时 间 依 赖 于 震源 到 接收 点 的 
距离 。 在 走时 曲线 的 交叉 点 附近 响应 时 间 很 短 。 而 ЧР, ТР, Ж 
кн атыны 

. ЭЖ 

Nyquist 频率 是 通过 时 间 增 景 At 的 选择 确定 的 

1 


у > А . (9-2.3) 
频率 增 量 依赖 于 响应 时 间 ， 即 
_ 1 22. 


利用 (9-2.3) 和 (9-2.4) 式 可 以 us. Nyquist 频率 系数 Njv， 


№іху = fx y / AJ = + 2 = FN. 


A 
上 式 中 的 Ni 表示 响应 时 间 样 点 数 。 

需要 说 明 的 一 点 是 反射 系数 只 需要 计算 S| Nyquist М Ж, 
在 Nyquist 频率 以 后 的 那些 值 为 先前 值 的 共 罗 复数 。 | 

在 问题 1 中 已 经 指出 ，At 通常 取得 很 小 ， 因 此 Nyquist 频 
RRK. Nyquist 频 竣 比 信 号 源 频 率 的 上 限 要 大 得 多 ， 但 实际 计 
算 反 射 系数 时 ， 只 需 算 到 信号 源 的 频率 上 限 。 如 果 我 们 у, Ж 
示 信 号 源 的 频率 下 限 ， 以 fs 表示 信和 号 源 的 频率 上 人 限 ， 则 频 ЖШ 
的 频带 宽 为 f -了 1， 频 率 样 点 数 是 


м, = #2 lee - f). (9-2.5) 


上 式 琢 明 频 率 样 点 数 不 依 赖 时 间 梯 点 数 ， 仅 与 实际 的 持续 时 间 有 
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Те, 


关 。 换 言 之 ， 试 图 通过 增 大 4t 来 减少 时 间 样 点 数 是 不 能 节约 计 
Ау. Н о = 2x1， 所 以 (9-2。5) 式 的 N; 与 (9-2。2) ЖМ 
N。 是 一 样 的 。 


4。 相 速度 窗 
在 $9-1 节 中 关于 波 数 k 的 积分 被 变换 成 关于 反射 带 项 部 入 


射 角 的 积分 。 每 个 入 射 角 都 相应 于 一 个 相 速 度 с, 
cC=wn/siny。 

Қана. 3 示 与 反射 带 顶 部 相 接 的 覆盖 层 中 的 纵波 速度 。 对 于 体 
波 ，Y 的 积分 范围 是 (0，r/2)， 即 相 和 速度 C ХЕ (co, а) ХА 
变化 。 虽然 从 理论 上 讲 所 有 的 相 速度 都 对 某 一 距离 上 的 响应 有 所 
贡献 ， 但 根据 走时 则 线 ， 很 明显 在 有 意义 的 时 间 - шылы 
速度 可 被 限制 。 如 图 9-2-1 所 示 。 

1 =r/V 

да. анто К 


(9-2,6) 





图 9-2-1 任意 模型 的 折合 走时 图 
当 射 线 在 反射 带 顶 部 接近 垂直 入 射 时 相 速 度 cl 最 大 ， 当 接 
近 于 水 平 入 射 时 相 速 度 c 最 小 。 几 乎 等 于 反射 带 上 部 覆盖 层 中 
Мор 波 速度 av。， 相 应 的 入 射 角 是 


-1 - (9-2.6) 
С1.2 





Yı.: = sin 


最 小 相 速度 с, 的 选择 要 大 于 覆盖 层 中 的 最 大 P 波 速度 。 当 
让 大 的 接收 距 范 围 研 究 反 射 带 顶 部 的 超 临 界 反 射 时 ，cs 要 取得 


尽 可 能 接近 覆盖 层 中 的 最 大 P ЖЖ, 


P 波 速度 加 0.02 公 里 / 秒 。 
5。 角 度 窗 


一 般 可 取 履 盖 层 中 的 最 大 


НЕВЕ (сі, C2 ) JH БУНТ EA БЕЙ (Yis Үз), 在 数字 积 
DF, ARENE AY 要 尽 可 能 选 得 小 些 。 否 则 会 在 理论 地 震 图 上 


4,0 12.0 ЖЕ Кп\/з) 
-一 一 [一 = 








120 160 290 
EE H (km) 


9-2-2 角度 增 量 的 影响 
65. 类 控制 方法 


出 现 明 显 的 于 扰 ， 降 低 信 
躁 比 ， 甚 至 会 掩盖 真正 的 
反射 波 信号 ， 如 图 9-2-2 
所 示 。 

当 给 定 某 一 频率 时， 
AY 决定 了 计算 反射 系数 
因此 AY 取得 小 ， 将 意味 
着 计算 时 间 的 增长 。AY 
的 使 用 范围 一 般 可 在 
0,052 —0.5° 。 = 

对 于 频率 窗 А, 
窗 ， 我 们 可 以 把 它们 绘制 
在 同一 张 图 上 ， 称 为 频率 
-A aA, i 9-2-3 所 


Жы 


覆盖 层 和 反射 带 层 是 连 在 一 起 的 ， 反 射 带 的 第 一 个 反射 界面 
上 部 的 那 一 层 属于 覆盖 层 。 我 们 可 以 通过 序号 的 改变 使 得 覆盖 幅 
下 部 与 反射 层 相 接触 的 一 层 或 几 层 属于 反射 带 ， 也 同样 可 使 反射 


eD54。 
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图 9-2-3 频率 -角度 窗 


带 上 部 的 一 层 或 几 层 属于 覆盖 层 。 在 给 定 的 模型 中 ， 如 果 我 们 只 
想 研究 反射 带 的 第 一 个 界面 的 性 质 ， 那 么 对 这 个 界面 下 部 的 各 界 
面 可 以 不 予 考 虑 。 如 果 要 研究 的 是 下 面 菜 个 (或 几 个 ) 界 面 ， 可 以 
把 这 个 界面 以 上 的 层 全 部 看 成 覆盖 层 。 这 样 在 计算 中 ， 由 于 求 反 
射 系数 的 Haskell 矩阵 相 乘 次 数 减少 ， 故 可 缩短 计算 时 间 。 另 
-方面 由 于 界面 单一 ， 使 得 记录 响应 持续 时 间 减 少 ， 因 此 也 可 编 
沽 计算 时 间 。 

当 介 质 层 与 层 之 间 不 是 速度 差异 明显 的 界面 ， 而 是 一 个 过 渡 
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层 时 ， 我 们 可 以 用 一 些 速度 差异 较 小 , РЕ НЕ 很 W 的 均匀 层 来 代 
Ж. 当地 球 曲 率 不 可 忽略 时 ， ыы ыды жж 
ЕМЕЙ 00 


= ж жая | 
对 于 震源 函数 我 们 选用 爆炸 点 源 ， 其 表达 式 如 下 : 


іп - cost + 1 (cosmôt -1)), 0<t<T; 
P(t)= ( Ô m 
0, 


і<<0%%і>Т, 
| (9-2.8) 
ЖКЖ, T 为 震源 的 持续 时 间 ， 
m= (+2) /№, 
8- Мл/Т, 
N=1, 2, 3... 
其 中 N 表示 震源 函数 的 极点 个 数 。(9-2.8) 式 的 一 阶 导 数 是 
віпбі- ісіптбі, 0<і<т; 
Е’) ( т | 
0, Т<0 sË ЕТ. 
| (9-2,9) 


F(t) ЖЕ’ (+) 的 图 形 如 图 9-2-4 所 示 。 

| (四 ) ЖВезѕеі и Ж ДШ 
对 于 大 的 帆 角 我 们 使 用 Bessel ИЖЕ. 
J (kr) = |= cos(kr – 7) 








1 
A {exp kr -7D texpl- j (kr- т] 
(9-2.10) 
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Ж|9-2-4 体 源 函数 和 它 的 导数 曲线 


J (Кг) = |- coster — D 





Е ехрб (Кғ- a -expl-j(kr- Ty, 


"Z T 
(9-2,11) 
在 上 面 两 式 中 ， 
К--КатһевіһҮ, 
| Кат =@/@т. | 
Y 为 射线 在 反射 带 顶 部 的 入 射 角 ，@m 为 反射 带 项 部 覆盖 层 中 的 P 
波 速度 。 


(9-2.10) 和 (9-2.11) 式 中 的 第 二 项 相当 于 在 r 正方 向 传播 的 
波 ( 即 离 源 波 ) ， 而 第 一 项 相当 于 在 r 负 方 向 传播 的 波 ( 即 向 源 
波 ) 。 在 远 距离 范围 内 只 有 外 行 波 有 物理 意 义 ， 而 向 着 震源 传播 
的 波 可 以 忽略 。 这 里 需要 注意 的 是 kr 不 可 取得 过 小 , 否则 
Bessel 函数 的 渐 近 式 失去 意义 。 实 践 证 明 当 kr 二 15 时 ，(9- 
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2.10) 和 (9-2.11) 式 所 表示 的 渐 近 式 是 有 效 的 。 


(五 ) 积分 方法 
数字 积分 用 Simpson 法 或 者 用 梯形 法 去 做 。 梯 形 法 产生 的 
ДЕЙН Simpson 法 小 , 这 一 反 已 为 一 些 研 究 者 所 证 明 (Вакил, 
1970), | | 


99-3 用 广义 射线 理论 计算 理论 地 震 图 
的 一 般 原理 


前 面 我 们 介绍 了 计算 理论 地 震 图 的 反射 率 法 ， 本 节 将 介绍 计 
算 理 论 地 震 图 的 另 一 种 方法 一 一 广义 射线 理论 法 。 这 种 理论 与 反 
射 率 法 在 计算 方法 上 有 着 本 质 的 差别 ,但 在 理论 上 却 是 一 致 的 。 在 
这 一 节 我 们 将 介绍 扩展 后 的 Савпіай ( Cagniad, L., 1939) 方 
法 。 这 种 方法 使 用 由 许多 均匀 水 平 界面 构成 的 介质 模型 。 在 计算 方 
法 上 ， 它 使 用 复 射 线 参 数 平面 ， 并 在 其 上 得 到 Cagniad H 分 路 
径 。 对 于 速度 随 深度 变化 的 球 对 称 介质 , 已 经 证 明 (Andrianova 
等 ，1967) SH 波 能 从 平面 层 状 介质 直接 得 到 球 型 介质 的 精确 
解 。 而 对 于 P 波 和 SV 波 获 得 这 样 的 精确 解 似乎 是 不 可 能 的 
(Chapman，1973)， 因 而 只 能 使 用 地 球 改 平 变换 把 球 层 改变 成 
平面 屋 ， 把 随 深度 变化 的 梯度 层 变 成 亚 加 在 一 起 的 均匀 薄 层 。 这 
种 问题 对 于 反射 率 法 同样 存在 。 

假定 介质 模型 和 射线 路 名 如 图 9-3-1 所 示 。 其 中 : а!» Bis 
ог, d; 分 别 表示 第 ; 层 的 纵波 速度 ， 横 波 速度 , 介质 密度 和 层 的 
厚度 。 我 们 还 假定 位 于 +r = 0，z =0 处 的 点 源 为 单位 阶梯 函数 ， 
其 表达 式 是 . | 

рі(, 2, t)=H(t- В/а:)/К (9-31) 


НИ H 25 Heaviside ВЕ Ж, 7<019,Н(т)-0, Чт>0, 
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4 В, Pa а. (п) 
. дан и кн йя+ї 


图 9-3-і 


т>], Н(т) =1, Е-у/ r°+z° °, 表示 离开 震源 的 距 B, 
对 (9-3.1) 进 行 Laplace 变换 得 到 


- ( Í Е: k 
‚2 = J n ТУ o 

Ф, (г,2, $ А (кеде УКЕ. dk 

(9-3,2) 
式 中 取 k= -jsp. ТА: 
— 25. i” р, 
pi (г, Z, s) = 1ш Ко(өреде P ар, (9-33) 
л 0 тї 


在 这 里 j 表示 虚数 单位 ，K。o 为 修正 Bessel 函数 т: = (ет? 
—р?)*? N 
由 震源 发 出 的 射线 通过 图 9-3-1 所 示 的 介质 模型 并 在 Б n + 
界面 上 发 生 反 射 ， 我 们 在 地 表 距 离 震源 r 处 所 接收 到 的 p 波 位 函数 
Laplace 变换 是 : 
ФО, 2, $) = 2sTm| К, (зр) Та .RppsTuexp| zs Lan: | 


i=l 
x Pdp. (9-3,4) 
nı 
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式 中 


Ta=TaysTa2eÜ “Ті: 1 (9-3.5) 
其 中 Ta 表示 射线 向 下 传播 ， 穿 过 第 i 个 界面 的 透射 系数 。 
T, =T,- Tu 20 T, То Тиз, (9-3.6) 


T.: 表示 射线 向 上 传播 穿 过 第 ;个 界面 的 透射 系数 ，Rasr 表示 第 
п 个 界面 的 反射 系数 。1;= (0:2 - р)", ЖҰМ U Вет; >0 选 


ЖЕНА. Æ (9-3.4) 中 被 积 函数 包括 了 平面 波 的 反射 系数 和 透射 
系数 。 这 些 系数 在 通常 情况 下 很 容易 写 出 来 。 
为 了 简化 计算 ， 我 们 把 ko。 展开 成 渐 近 式 ， 


л М _ Ts 1 о у 
Ko (spr) -( 5 e wdi- L +0 ($рг) 22 J. : 
2spr . 8spr ; 


一 л | Ж арт 
Ко(5рг) (= е . 


把 上 式 代入 (9-3,4),， 于 是 有 : 


| 1⁄4 ч» | "о 
Ф(т, Z, $) = (25) ај! Ë (Ѕр)ехр {в 
ЛҮ i0 | 


n Ү Ур x 
+ ii | 9-37) 
Dain) Pa, ( 


i=1 


式 中 46(8,р) = TyRppT,。 在 (9-3.7) 中 我 们 取 


T*=pr+ LdiNis | (9-3-8) 


i= 1 


到 演 (9-3.7) 的 Cagniad 路 径 是 (9-3.8) 的 解 ，p = p(T)， 这 里 f+ 为 
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正 实数 。 (9-3.7) 的 反 演 表 达 式 是 


Prs 2, t) = 21 [| ое насри. | 
011 (ф-т) (t —T + 2pr)'⁄: ° 


(9-39) 
利用 单位 阶梯 函数 的 性 质 ， 即 参量 必须 为 正 实数 ，(9-3.9) 又 可 
写成 


| _ 2. р уа 28 (р)ат 
( s 2. 1 一 — fz ш) ә _ 
Par ) т ТА, атт) (t — r + 2pr)% ° 





(9-3•10) 
震源 函数 频率 较 高 ， 持续 时 间 较 短 时 ，+ -T+ 2pr 洁 2pr。 于 是 
(9-3.10) 可 写成 神 积 形式 


21 
pr, z, t) =“ — ЖжШ(1) 
m. t 


(р) 
其 中  W(t)=I [М2 ар. 24р) (9-3 +11 


在 实际 的 资料 处 理 过 程 中 ,我 们 往往 使 用 更 一 般 的 震源 函数 F(t) 
而 不 是 单位 阶梯 函数 на). 同时 还 要 考虑 接收 仪器 的 频率 响应 
s(t)。 这 样 ， 我 们 还 需要 对 FO), 500 等 进行 福 积 运算 。 至 于 
地 面 的 反射 影响 ， 可 以 按照 在 反射 率 法 中 叙述 的 方法 处 理 。 用 广 
义 射线 理论 法 计算 的 理论 地 震 图 如 图 9-3-2 所 示 。 

还 有 一 种 常用 的 计算 理论 地 震 图 的 方法 ， 人 们 称 其 为 全 波 理 
jk. 。 这 种 方法 可 以 直接 用 于 球 对 称 介质 模型 。 该 理论 假定 在 任意 
厚度 的 非 均匀 雇 中 P 波 和 SU 波 可 以 分 离 ， 从 而 使 用 近似 ,并 且 使 
用 一 致 断 近 序列 的 第 一 项 表示 辐射 本 征 函 数 。 关 于 这 种 方法 的 基 
本 原理 ， 本 章 不 再 叙述 ， 读 者 可 参看 由 Акі 和 Richards(1980) 
合 著 的 定量 地 震 学 的 第 九 章 。 
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2. 分 质 模型 
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“名. 理论 地 震 图 
图 9-3-2 | 


59-4 理论 地 震 图 与 观测 记录 的 比较 


在 这 一 节 我 们 把 用 反射 率 法 计算 的 理论 地 震 图 与 实际 的 观测 
记录 相 比 较 . 图 9-4-1 是 华北 某 痢 面 的 部 分 观测 记录 。 虽 然 我 们 
不 知道 这 些 记录 的 放大 倍数 ， 仪 器 特性 及 震源 辐射 的 脉冲 形状 ， 
但 我 们 可 以 通过 模拟 记录 图 的 某 些 最 突出 的 振幅 特性 ， 获 得 对 该 
剖面 的 走时 曲线 的 解释 ， 并 由 此 对 地 下 介质 分 布 进行 探讨 。 当 然 
我 们 在 这 里 给 出 的 图 形 比 较 仅 仅 作为 一 个 例子 ， 证 明 这 种 研究 的 
可 能 性 。 

图 9-4-2 是 用 反射 率 法 计算 的 理论 地 震 图 。 图 中 的 计算 模型 由 
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图 9-4-1 观测 记录 
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图 9-4-2 理论 模型 及 合成 记录 
а. НЕЕ; b ,时 间 - 距 离 曲 线 


分 层 均匀 各 向 同性 完全 弹性 的 层 状 介质 组 成 。 在 计算 理论 地 震 图 
时 ， 除 图 中 标明 的 人 参数 外 ,其 它 人 参数 的 选择 是 : T WW10.24s, At 
Ң(0.025, АҮЖ0,142 ,频带 宽 为 15Hz， 相 速度 窗 为 (4.22，30 )， 
角度 窗 为 (8.19" ,77.35° )。 图 中 的 干扰 主要 是 由 于 AY 选 择 得 偏 大 
引起 ， 如 果 把 A? 取 成 0.1 度 , 则 可 进一步 压制 干扰 , ЕНЕ. 
我 们 把 图 9- 4 -2 与 图 9- 4 -1 进行 比较 ， 发 现 相应 震 相 所 构成 
鸥 走时 上 曲线 有 着 很 好 的 一 臻 性， 但 在 动力 学 特征 上 却 有 着 明显 和 的 - 
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差异 。 所 谓 动力 学 特征 ， 我 们 指 的 是 同道 记录 的 各 震 相 的 振幅 
比 。( 因为 理论 地 震 图 与 观测 记录 的 震 相 振幅 之 间 不 能 直接 进行 
比较 )。 通 过 比较 我 们 发 现 相应 于 莫 雹 界面 的 理论 首 波 振幅 偏 
小 ， 而 相应 于 康 腾 界面 及 玄武 岩层 内 界面 的 理论 反射 波 振幅 却 偏 
大 。 这 些 都 可 能 是 由 于 我 们 使 用 了 带 有 明显 速度 差异 的 界面 所 引 
起 的 。 

从 图 9-4-2, 我们 还 可 以 看 到 这 样 一 种 现象 ， 反射 波 的 最 大 
振幅 出 现在 临界 反射 距离 之 后 的 某 一 距离 上 ， 这 一 点 已 在 理论 上 
有 上 所 证 明 (červeny, 1961). 


$9-5 理论 地 震 图 计算 程序 
下 面 我 们 给 出 反射 率 法 理论 地 震 图 的 计算 程序 。 首 先 对 程序 
中 主要 标识 符 及 程序 结构 说 明 如 下 。 
(一 ) 主要 标识 符 ISS (Р) 一 -一 控制 变量 数组 


M -一 履 盖 层 的 屋 数 ; 
Z(T)-- 一 界面 埋藏 深度 ; 








D(1) 一 一 层 的 厚度 ， 
A(I) 一 一 P 波 速度 ， 
B(1) 一 一 S 波 速度 ; 
RHO(1) 一 一 介质 密度 ; 
X1 一 一 初始 距离 ; 
хи; 

DX 一 一 距离 增 量 ， 
VRED 一 一 折合 速度 ， 
TMIN 最 小 折合 时 间 ; 
DGAM 一 一 角度 增 量 


IDFEN 一 一 用 于 角度 窗 的 整 型 量 ，IDEEN 半 DGAM 表示 角 
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度 左边 窗 的 长 度 ，ISS(24) ж IDFEN ЖОСАМ 
表示 角度 右边 窗 的 长 度 ; 
C1 一 一 最 大 视 速度 ， 
C2 一 一 最 小 视 速 度 ， 
FU 一 一 频率 下 有限; 
FWIL—— № FU 到 FWIL 为 左 频率 窗 ;， 
FO 一 一 频率 上 限 ， 
FWIR 一 一 从 FWIR 到 FO 为 右 频率 窗 ; 
DT 一 一 时 间 增 最 ; 
NPTS— ВА; 
NA 一 一 信号 源 前 面 的 零点 个 数 ; 
N 一 一 信号 源 点 的 极点 个 数 。 


(=) # Ж ХЕ 图 
1. FEF ВЕСОР$ 框图 
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2. ЗЕРЕН 


АН 





输入 ISS (30): {РЕН 
м: MERNEK 


< 4 #3 
s (к) 






输入 DUI )， ВСЕ). ВНО (1) 









输入 XI1,X2, DX 并 求 接收 点 NENT | | 输入 距离 表 XS ,1 ) ЖЕШС МЕМТ 





МАУЕЕРр, IMIN., ОСАМ. I DFEN 
C), С2, ЕЦ, ЕМІ. FMR,.FQ 











求 相应 T C 1, C2 的 角 УЖ 7: 
以 及 角度 样 点 数 NGAM 





调用 子 程序 SUREAC 计 算 透 射 条 数 的 乖 积 
及 自由 表面 影响 






计算 HY) ZIY сову 
各 G y): ZS My -cosy 





输入 信号 源 参数 DT，NPTS ,NA. N. T 


*507。 
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调 用 FEF SIGNA L 把 信 号 源 离散 化 





调用 于 程序 COOL , 
求 信号 源 的 离散 频谱 


调用 子 程序 RECOPS 求 反射 系数 | 














PRAEPI 求 积分 
| = 0 用 辛 朴 生 法 求 积分 
1554 | = 1 用 梯形 法 求 积分 












调用 子 程序 COOL 作 
FOURIER 反 变 换 求 位 移 W 


[лая | 


脱 机 绘图 


(三 ) 程序 结构 


程序 分 主 程序 和 子 程序 两 部 分 。 其 中 子 程序 部 分 包括 十 四 个 
子 程序 和 两 个 函数 段 。 下 面 给 出 这 些 程序 问 的 调用 关系 及 各 程序 
的 作用 。 

1。 子 程序 的 作用 

(1) 子 程序 PRAEPI 和 子 程序 INTGRA 的 总 体 作 用 是 做 数 
字 积 分 。 

(2) 子 程序 PHASE 计算 Bessel 函数 。 在 程序 中 分 两 种 情 
况 ， 当 ISS(1)=1 时 ， 用 三 角 函 数 计算 ， 否 则 用 指数 计算 。 

(3) 子 程序 SURFAC 计算 透射 系数 和 自由 表面 影响 函数 的 
乘积 。 

(4) 子 程序 RCR 求 首 波 临界 距离 。 

(5) 子 程序 RECOPS 求 反射 系数 Rez， 同 时 还 可 求 出 反射 
系数 Res, Rss 和 Rsp。 | 

(6) 子 程序 SIGNAL 把 信号 源 离散 化 。 

(7) 子 程序 COOL 可 做 正 反 Fourier 变换 。 

(8) 子 程序 ZLOG 求 指 数 。 

(9) 子 程序 MAXSN 求 最 大 己 波 速度 值 。 

(10) FUNCTION АМАХ 和 FUNCTION AMIN 分 别 求 最 
大 值 和 最 小 值 。 

2. 程序 调用 关系 

“(DCALIL RCR—CALL MAXSN 
с @CALL SURFAC 
图 CALL SIGNAL 
主 程序 @CALL ZLOG 
‚ @CALL COOL 
‚ ОСА, RECOPS | 
| DCALL PRAFPI->CALL [МТСВА->САГГ, PHASE 


图 引用 FUNCTION АМАХ 
名 引用 FUNCTION AMIN 
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(四 ) 控制 变量 的 意义 (只 说 明 程序 中 现 用 的 变量 ) 


I 155(Т) 


№ 
1 


= 1 


сл 
| 
оғ о о м = о 


г = 0 
141 
& = 1 


了 = 0 
18 1 


Я Е A ехр{ - 1(х-л/4)}/У2лкг 5 # 1° 
(Кг); J (Кг) 类 似 。 

Я соз(Кг -л/4)жу/ 2/zkr К 3 Jo(kr), Ji 
(kr) 类 似 。 

计算 垂直 位 移 和 水 平 位 移 。 

只 计算 垂直 位 移 。 

只 计算 水 平 位 移 。 

用 解析 表达 式 给 出 信号 源 。 | 
ШАҢМЕН, ХЕЛЕН. 

Ж БУЛ Е. 

读 入 层 参 数 : 层 的 厚度 ，P 波 和 3 波 速 度 ， 介 质 
密度 。 2, . 
读 入 层 参 数 : 界面 深度 ，P RASHER, 介质 
密度 。 | 

数据 记 带 准备 绘图 。、 

当 5 波 速 度 等 于 零 时 ,用 Vs = Vp/vw 3 计算 S 波 
速度 。 | 

用 Simpson 法 积分 。 — 

用 梯形 法 积分 。 

无 角度 窗 ç 


= 1, 2, с 角度 两 边 窗 。 


= 0 
194 
8-1, 2e 


无 频率 窗 。 
频率 两 窗 边 。 


(五) 程序 使 用 


程序 使 用 分 计算 和 绘图 两 部 分 。 在 计算 部 分 中 输入 的 参数 
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有 : i 
“(1) 控制 变量 ISS(D, ШЫН M. 

(2) 模型 参数 A(I),B(I),RHO(I) 以 及 D(IT (或 Z(I))。 

(3) 输入 接收 距 六 。 对 接收 距 的 输入 可 分 两 种 情况 ， 一 是 等 
间距 输入 , 即 输入 初始 距离 X11, 终点 距离 X2, 步 长 DX; 二 是 输入 
距离 表 ， 这 可 用 于 非 等 间距 。 具体 采用 嘱 种 输入 方式 ， 在 程序 中 
用 ISS(7) 控制 。 

(4) 输入 扩 合 速度 Vrgp 和 最 小 折合 时 间 TMIN, 

(5) 输入 求 了 角 及 角度 样 点 数 的 有 关 人 参数: ОСАМ, IDFE- 
N, C1, C2, FU, FWIL, FWIR, FO. 

(6) 输入 信号 源 参 数 DT，NPTS，NA，N，T。 绘 图 程序 


(Ш). 
(六 ) 计算 程序 
本 程序 是 用 И Ж FORTRAN-T 语言 编写 ， 对 于 使 用 扩 充 
FORTRAN 语言 的 计算 机 也 可 应 用 。 源 程序 内 容 如 下 : 


С THE MAIN PROGRAM 

COMMON S(512)，CPP(800)，CPS(800)，Z(100)， 
D(100)，A(100)， 
B(100)RHO(100)，X(30)，SINA(800) COSA(800)， 
Р12, DT, DAUER, 
FREQ, DGAM, Сі, C2, PPR, PPI, ТІ, ТО, 
15$(30), МРТ, МСі, NG2, NOL, 


NPTS,NENT,NGAM, DADA(800), DIDI(800), М 


COMPLEX S, CPP, CPS 
DIMENSION Х5(10), BALLA(512) 
DIMENSION WAVEL(512), W(30, 512) 
COMPLEX WAVEL, W 

COMPLEX CU, СУ, EINI 
EQUIVALENCE(CPP(1)，BALLA(1)) 


571% 





И 


OPEN(16, FILE=’DIZ’, STATUS = :UNKNOWN ， 
MRECL = 2000，BLOCK = 2000) | 
БІМІ-(0,,51,0) 
Р12-2,0е 3,1415926 
САВО = Р12/360. 
АМР=0 | 
ХҮКІТЕС(6, 9000) 
9000 FORMAT(1H1, 30X, ‘COMPUTATION OF 
THEORETICAL SEISMOGRAM’/46X, 
“BY THE’/38X, 'REFLECTIVITY METHOD’/) 
READ(5, 9010) (ISS(D, I=1,30), М 
9010 FORMAT(30I1, 13) 
WRITE(6,9020) (155(1), 1=1,30),М 
9020 ЕОВМАТ(1НО, 34X, "SWITCH 115Т”/10Х, 6(511, 
3X)/10X, 'МОМВЕК ОЕ LAYERS 
IN OVERBURDEN’, 5X, 13) 
1Е(155(9).ЕО.1) СО ТО 1230 
1-0 
1205 1=1+1 
ВЕАР(5, 9040) (І), А(1), В(1), RHO(I) 
9040 ЕОВМАТ(4Е1О.4) 
ІЕ(155(19).Е0.1) B(D =A(D/1.732 
IF(RHO(D.EQ.0.)RHO(D =0.25 + 0,3788 • АСТ) 
ТЕ(Ю(1) + АС) + В(1)) 1205, 1210, 1205 
1210 МО =1-1 
201) = D(15 
N1=NOL-1 
IF(N1,EQ.1) GO TO 1220 
DO 1215 1=2, М1 


‚ 1215 7(1)-7Х(1-10 551) 


1220 СО ТО 1250 
1230 І-0 
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ЕЕ 


о 


1232 


1240 


1246 
1248 


1250 


9060 


9070 


9080 


1255 
9090 
1260 


1=1+1 

READ(5, 9040)7(Т), АСТ), B(D, RHO(I) 
IF(ISS(13).EQ.1) В (1) = А(1)/1,732 
ІЕ‹ВНО‹І), ЕО,0,)АНО(1) = 0,25 + 0,3788 * АСТ) 
IF(Z(I)+ A(I)+B(I)) 1232, 1240, 1232 
МОГ, =1- 1 

Р(1) =2(1) 

N1=NOL-1 

IF(N1.EQ.1) GO TO 1248 

DO 1246 I=2, N1 

р(р) =Z(D -Z(I- 1) 

CONTINUE 

PARAMETER OUTPUT 


ҮҮЕІТЕ(6, 9060) 
FORMAT(1H0, 40X, 'PARAMETER LIST’//) 
WRITE(6, 9070) | 
ЕОВМАТ(1Н0, 20X, 'DEPTH THIDKNESS 
Р-УЕГОСІТҮ 5-УЕГОСІТҮ 
рЕМ51ТҮ”/23Х, 2НКМ, 12X, 2НКМ, 12Х,4НКМ 
/$, 11X, 4HKM/S, 9X, 7НС/СМ 
24 * 3//) 
DO 1260 I=1, N1 
ІЕ(І,СТ,М) СО TO 1255 
WRITE(6, 9080) 7(1), БС), A(D, B(D, RHO(D 
FORMAT (11X, 5F15.4) 
GO TO 1260 | 
WRITE(6, 9090) 2(1), D(D, А(1), Ва), ЕНО(1) 
FORMAT (11X, 5ҒІ5,4, 5X, ‘REFLECTED ZONE’) 
CONTINUE | 
Z(NOL) =9999.999 
ОМОР) = 9999.999 


а 


9100 


9120 


9130 


1710 


1800 


9140 


1806 


1808 
1810 


1900 


WRITE, 9100) А(МОГ), ВСМОГ), ЕНО (NOL) 


FORMAT (41Х, 3Е15.4, 5X, REFLECTED ZONE’) 


У1=А(1) 
CALL RCR(D, А, МОГ, ТІ, VMAX) 
1Е(155(7),ЕО.1) СОТО 1800 
READ(5, 9120) X1, X2, рх 
FORMAT(3F10.4) 
WRITE(6, 9130) ХІ, X2, DX 
РОКМАТ(////, 11Х, ‘EQUAL INTERVAL DISTA- 
NCE LEST'//21X, 'X1=”, F9,3, ` 
‘KM Хо-”, F9.3, "КМ DX =”, Е9.3, ҚМ”/ 

NENT=(X2- X1)/DX +1,0 
X(1) =X1 
DO 1710 I=2, NENT 

X(D =X(1-1) + DX 
GO TO 1900 

155(7) =1 LIST OF NOT EQUAL INTERVAL 
DISTANCE 
ж 
DO 1810 7-1, 50, 8 
JDC=J+7 
READ(5, 9140) (Х5(1), I=1, 8) 
FORMAT(8F10.3) 
DO 1808 I=J, JDC 


ІІК- 工 一 J+1 


IF(XS(IJK)) 1806, 1808, 1808 
МЕМТ-І-і 

СО ТО 1900 

Ха) =XS(IJK) 

CONTINUE 

* * * LIST OF.DISTANCE ІМРГТ» * * 
WRITE(6，9160) 
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С) 


9160 


9180 


9190 


1930 


1950 


1970 
9195 


9200. 


2005 
2008 
2010 


БОҺМАТ(ІН0, 10X, “LIST ОҒ DISTANCE’/) 

WRITE(6, 91800 (Х(І), І-1, NENT) 

КОВМАТ(1НО, 10X, 10510,3) 

READ(5, 9190) VRED, TMIN 

ЕОВМАТ(2Ғ10,3) 

ІЕ(УКЕР,ЕО,0.) СО ТО 1930 

СО ТО 1950 

VRED =УМАХ 

IF(TMIN .NE.0.)GO ТО 1970 

TMIN = Х(МЕМТ) »(1,/УМАХ-1,/УКЕБ)-ТІ 

WRITE(6, 9195) VRED, TMIN 

FORMTA¿////, 11X, ‘REDUCED VELOCITY 
VRED =’, F10.3, ‘KM/S’//, 11X, 
“THE LEAST REDUCED TIME TMIN =’,F10.3, 
"$ЕС”) 

FINDING GAMA NGLE 

, < * САМТ* < + САМЗ+* x «САМА» « «САМ?» * * 

«+, МСТ» ++ МОЗ» ж < NG4s»» NG2= а x 

READ(5, 9200)РСАМ, IDFEN, Сі, C2, ЕО, FWIL, 
FWIR, FO 

FORMAT(E8,5, 14, 6Е8,5) 

IF(IDFEN .EQ.1) ТОЕЕМ =2 

IF(FWIL,EQ.0)FWIL=FU 

IF(FWIR .EQ.0.)FWIR = FO 

А1= АЧМ) 

ТЕ(М.ЕО.1) СО ТО 2005 

А1-АМАХ(А, М) 

IF(C2.LE.A1) С2= А1+ 0,002 

IF(C1) 2010, 2010, 2020 

С1= 9999.999 

САМ1= АВЅІМ(А(М)/С1)/САВО 

СО ТО 2030 
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2020 GAM1=ARSIN(A(M)/C1)/GABO 
2030 NG1=1 
GAMCR = ARSIN(A(M)/VMAX)/GABO 
САМ2= ARSIN(A(M)/C2)/GABO 
DCRAM=DGAM 
DGCR =0. 
NCRAM=1 
ЕКСЕ = 0， 
IF(ISS(18).GT.0) WRITE(6,9208) I SS(18),IDFEN 
9208 ЕОВМАТС1Х, ’COS» +”, 12, “APPLY TO ANGLE 
WINDOW’, I5, ** DGAM DEGREE'//) 
IF(ISS(19).GT.0) WRITE(6, 8209) ISS(19),FU,FW- 
IL, FWIR, FO | 
8209 ЕОБМАТ(ИХ, 'СОЗ. в”, 12, *FREQUENCY 
WINDOW DOMAIN ЕО =”, Е5,2, ‘FWIL= 
’, Б5,2, 'FWIR =”, Е5,2, "ЕО-”, Е5.2, HZ’//) 
IF(GAM1-GAMCR) 3906, 3905, 8905 
3905 NG3=1 
` GAM3=GAM1 
NG4=1 
САМА = САМІ 
сото 2914 
3906. 1Е(САМСВ- САМ1-1.) 2906, 2906, 2908 
2906 САМІ-САМСЕ - DGCR 
Сі- АСМ)/ЅІМ(САМІ • САВО) 
2908 МСЗ= (САМСВЕ - САМ1)/рСАМ + 1,0 
N =NG3 | 
IF(N/2- (N+ 1)/2) 2912, 2910, 2910 
2910 NG3=NG3-1 | 
САМ1= САМ1+ DGAM 
2012 САМЗ= (ЕГОАТ(М 03) -1,) » РСАМ + САМІ 
NG4=NG3+NCRAM-1 
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2913 


2914 


2918 
2920 


9210 


САМ4=САМЗ+ (ЕТОАТ(МСВАМ) -1.) + DCRAM 
IF(GAM2- GAM4- 1.) 2913, 2913, 2914 

САМ4 =САМ2. | 
NG4=(GAM2- САМЗ)/ОСВАМ + ЕГОАТ(МС3) . 
№02 =ЕГОАТ(МС4) + (САМ2- САМИ) /рСАМ 
N=NG2- NG4+1 

IF(N/2- (N +1)/2) 2920, 2918, 2918 

NG2=NG2-1 

CONTINUE | 

САМ2 = САМА + (ЕГОАТ(МС2) - ЕГОАТ(МС4)) * DG- 
АМ С2 = A(M)/SIN(GAM2 + САВО) 

МСАМ =МС2 | 
WRITE(6, 9210) C2, САМ2,С1, САМІ, VMAX, GA- 
MCR, ОСАМ, САМІ, GAM3, САМИ, САМ2, 

DCRAM, GAM3, САМА, FU, ЕО 

ЕОВМАТ(//, 21X, ‘MINIMUL PHASE VELOCITY 
С2-”, Е!10.3,’КМ/5 СОВКЕ5РО 

NDING ANGLE СбСАМ2-”,Ғ10,3, DEGREE /21Х, 
“MAXIMAL PHASE VELOCITY Сі-”, 
Е10.3,'КМ/$ CORRESPONDING ANGLE 
САМ1<”, Б10.3, ‘DEGREE’//21X, ” ` 
MAXIMAL P- VELOCITY VMAX =” ,F10.3” KM/S 
CRITICAL ANGLE GAMCR =’, 
Е10.4, ’ DEGREE’ //21X, ‘ANGLE INCREMENT 
DGAM =’, F10,4,' DEGREE’ /22Х, | 
`АМСГЕ WINDOW САМ!=”, Е10,3, БЕОКЕЕ”/ 
35X,’ GAM3=, Е10.3,’РЕСВЕЕ’/ ` | 
26Х,” АМРЬ”/85Х,”САМ4-”, Е10,3, ’РЕСВЕЕ’/ 
35X, "ОАМ2-”, Е10,3, “БЕОКЕЕ”/ 
26X, 'DCRAM =”, Б10,3, DEGREE’ /26X,’GAM3 
=”, F10.3, ’РЕСВЕЕ’/ 
26X, "САМА =, Е10,3, “'DEGREE”/26X, 'FU=” 
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8211 


7211 
2048 
8212 


8213 


9211 


2921 


2052 
2054 


Е10.3/26Х, “ҒОО-”, Е10,3) 
WRITE(6, 8211) МС1, МОЗ, NG4, МӘ? ` 
ЕОВМАТ«1НО, 20X, ‘NUMBER ОЕ SAMPLE 
POINT’//35X, "NG1=”, 15, /35Х, "МОЗ-”, 
15/35Х, "Чб4-”, 15/35Х, 'NG2 =”, I5) ` 
1Е(МСАМ.ТТ.1000) СО ТО 2048 
WRITE(6, 7211) 
FORMAT(1H0, "МСАМ.СТ.1000') 
СОТО 6590 | 
ІЕ(155(14).Е0.0) WRITE(6, 8212) 
FORMAT(1H0, 20X, “'SIMPSON-INTEGRATION”//) 
IF(ISS(14),EQ.1) WRITE(6, 8213) | 


FORMAT(IH0, 20X, “TRAPZ-INTEGRATION”//) 


IE(INGAM LE.1000) GO TO 2921 


WRITE(6, 9211) NGAM 

FORMAT(1H0, 20X, "ЧСАМ-”, 110, '.GT.1000”) 
СО ТО 86590 

CONTINUE 

САМ =САМ1-РСАМ 

IF(NG3.EQ.1) САМ=сСАМ!-РСВАМ 
NWIND=IDEEN+1 

ІЕ(155(24),Е0,0) 1$5(24)=1 
р155-1,/ҒІ/ОАТ(155(24)) 

NFENS=NG2- IDEEN * ISS(24) 

IF(IDFEN .GT.0) DFEN = PI2/2,/FLOAT(IDFEN) 
DO 2065 L=1, NGAM 
IF(L.GT.NG3.AND.L.LE,NG4) GO TO 2052 
GAM=GAM +DGAM 

GO TO 2054 

GAM=GAM +DCRAM 

SGAM =SIN(GABO * САМ) 
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2063 


SQ=SGAM* SGAM ` 

SINA(L)= SGAM 

51-0, О 

А1= А(М) + АМ) ` ` 

РО 2063 7-1, M 

FF =2。 с 

Sł= S1+D(J)» SQRT(A1/(A(3) * А(Ј)) - 50) + ЕЕ 

СОЅА (І) = $1 

CALL SURFAC(A, В, RHO, М, ISS(17), SQ, GU, 
GV) 

FAC= SQRT(SGAM) * СОЅ(САВО * САМ) 

IF(IDFEN .EQ.0.0R.L,LT.NFENS. AND. L.GT, NWI 
ND) GO TO 2064 

IF(L.LE.NWIND) GO ТО 2163 

FIF=L-NFENS 

КАС=ЕАС + (СОЗ(РЕЕМ + DISS • Е!Е)/2.+0,5) * > 
155(18) 

СО ТО 2064 

FIF=L-1 

БЕАС-БАСж(0,5-СО5(ЮЕЕМ» FIF)/2.) е + 155(18) 

DADA(L)=FAC* GV | 

РТО ЦТ.) = ҒАС + САМ + GU 

CONTINUE 


MHI=M-1 
NLAYER =NOL- MHI 
DO 2069 L=1, NLAYER 
LHI=L+MHI 

A (L)=A(LHD 

в (L)=B(LHI) 
RHO(L)= RHO(LHI) 

р ¿(L)=D(LHD) 


2069 СОМТІМ СЕ 
1516 =155(6) +1 
DO 6400 JSIG= 1, ISIG 
READ(5, 9220) DT, МРТ$, МА, М, Т 
9220 ЕОКМАТ(Е!0.3, 315, Е10,3) 
УУКІТЕ(6, 9230)0Т, МРТ5, МА, М, Т 
9230 БОВМАТ(11Х, ‘SIGNAL РАВАМЕТЕН”//, 11X, 
Е15.3, 3110, Е15,3) | 
IF(NPTS,LE,1024) СО ТО 2221 
WRITE(6, 72299000 
7229 FORMAT(1H0, 'МРТЗ.СТ.1024'). 
СО ТО 6590 
2221 1Е<155(5),ЕО,1) СО ТО 2500. 
CALL SIGNAL(T, ОТ, М, У1, МРТ$, МА, S) 
СО ТО 2550 
2500 ЕМРАТА = - 9999. 
2550 ЕМРТ= NPTS 
DAUER =DT + FNPT 
DO 2560 І-1, NPTS 
2560 S(1)=S(I)/FNPT | 
* # + DO ЕЕ ТТО SIGNAL SOURCE» +» 
CALL ZLOG(NPTS, MGA) | 
CALL СООЪ(МСА, S, -1.0) 
ІМРТ-МРТ5/2 | 
IU=FU* DAUER +1.0 
IF(IU ,EQ.1) IU =2 
IO=FO* DAUER +1,0 
ILEFT =FWIL*DAUER+1.0 , 
IF(ILEFT.EQ,1) ILEFT=2 
IRIGHT= FWIR* DAUER +1.0 
NLEFT=ILEFT- IU 
NRIGHT= ІО - IRIGHT 


“580, 


2710 


3399 


3411 


IF(NLEFT.GT.0) DLEFT = PI2/2./FLOAT(NLEFT) 

IF(NRIGHT.GT.0) DRIGHT = PI2/2./FLOAT (NRI- 
GHT) ` 

DO 2710 І-1, INPT 

FIF=I-IRIGHT 

FAF=I-IU 

IF(I,GE.ILEFT.AND,I,LE.IRIGHT) WAVEL(D = S 
(D 

IF(I.LE.IU.OR.I.GE.IO) WAVEL(I = (0., 0.) 

IF(I.GT.IU.AND.I.LT.ILEFT) | 

WAVEL(I) = S(ID * (0.5- COS(DLEFT + FAF)/2.) * * 
ISS(19) 

IF(I.GT.IRIGHT.AND.I.LT.IO) 

WAVEL(I) = $(1) * (COS(DRIGHT * ЕГЕ)/2.+0.5) 
ж ж ISS(19) 

CONTINUE 


FINDING REFLECTION COEFFICIENTS 


WRITE(6,，3399) 


ЕОВМАТ(11Х, ‘FREQUENCY IN HZ’//)) 
ІМ = (ЕО + РО) +-РАПЦЕВ/2.+1.0. 

РО 3700 7-1, ІМРТ | 

FJ=J-1 ` 

JZ=NPTS-J+1 | 
IF(J.LT.IU.OR,J.GT.IO) GO ТО 5150 
FREQ=FJ/DAUER f 

WRITE(6, 3411) FREQ 

ЕОВМАТ(11Х, Е10.3) 


DO 3600 І-1, МСАМ 
U=SINA(I)/A (1) 
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O O O сб) 


1 ‘CALL RECOPS (МГАУЕК, А, в, RHO, D, U, FR- 


_ 3600 


6300 


5150 


5200 


5300 
3700 


ЕО, СРР(1), СР5(1), CU, СУ) 
PPR = REAL(CPP(D) 
PPI=AIMAG(CPP(I)) ` 
CPP(I) =СМРЕХ(РРВ, PPD ` 
СР5 (1) = СРР(1) О, 


CONTINUE 


DO 6300 KE=1, NENT 

T0 = X(KE)/VRED + TMIN 

CALL РКАЕРІ(МСІ, NG2, МОЗ, МСМ, KE, CU, 
CV, DGAM, DCRAM) 

W(KE, J)= CV 

W(KE, JZ)=CU 

CONTINUE 

GO ТО 5300 

DO 5200 KE=1, NENT 

W(KE, Ј) = (0,, 0.) 

W(KE, Ј7) = (0., 0.) 

CONTINUE 

CONTINUE | 

W(KE, 1)--У/(КЕ,МРТ5/2) VERTICAL СОМ 
РОМЕМТ | 

У\ (КЕ, МРТ$) - - W(KE, NPTS/2+1)HORIZONTAL- 


 СОМРОМЕМТ (INVERSE ORDER) 


DO 5400 KE=1, NENT 

S(1)=(W(KE, 1)+EINI + W(KE, NPTS))* WAVEL(1) 

DO 5650 КЕ-2, ІМРТ | 

KF1=NPTS-KF+1 

KF2=KF1+1 

S(KF2)= (CONJG(W(KE, KF))+EINI* CONJG(W 
(КЕ, KF1))) + CONJ G(WAVEL(KF)) 


2582: 
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5650 


6002 


6003 


6004 
6008 


6010 
6020 
6030 
6040 
6050 


6172 


S(KF)= (W(KE, KE)+EINI* (КЕ, KF1))* WAYEL 
қы | | 

ІМРі-ІМРТ-1 

S(INP1) = (0,, 0.) | 

*** FINDING INVERSE FFF в.» 

VERTICAL DISPLACEMENT OCCURSIN REAL 

FIELD 

HORIZONTAL DISPLACEMENT OCCURS IN IMA- 

GEFIELD 

CALL COOL (MGA, S, +1,0) 

ТЕ (ISS(4)- 1) 6002, 6003, 6004 

L1i=1 

L2=2 

GO TO 6008 

LI=1 

L2=1 

GO TO 6008 

L1=2 

L2=2 

DO 6299 КОМ = L1, 12 

СО ТО (6010, 6050), КОМ 

DO 6020 1-1, МРТ5 

BALLA(J)= REAL(S(J)) 

GO TO 6050 

DO 6040 7-1, МРТ5 

BALLA(J)= AIMAG(S(I)) | 

ВАГМАХ =АМАХ(ВАШ.А, МРТ) 

BAL= ABS(AMIN (BALLA, NPTS)) 

IF(BAL,GT,BALMAX) ВАГМАХ = BAL 

ТЕ(ВАГМАХ.СТ.АМР) AMP=BALMAX 

GO TO (6172, 6174), KOM 

WRITE(6, 9500) X(KE) 
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- 8500 


6174 
9502 


6176 
9510 


45 


6299 
5400 
6400 


6590 
9300 
6600 


FORMAT(///, 11X, ‘SEISMOGRAM(VERTICAL 
DISPLACEMENT)’, Ғ10,3, ‘KM’) 

GO ТО 6176. 

WRITE(6, 9502) Х(КЕ) | 

FORMAT(///, 11X, ‘SEISMOGRAM(HORIZONTAL 


DISPLACEMENT)’, F10.3, "КМ”) 
WRITE(6, 9510) NPTS, BALMAX 


FORMAT (5X, ”МРТ5-”, 110, 5X, 


“ВАГМАХ-”, F13.10) 


WRITE(6, 45) (ВАРА (КС), КС-1, NPTS) 


FORMAT(10F13,5) 
IF(ISS(12).EQ.0) 
WRITE(16) (BALLA(K), K=1, NPTS) 
CONTINUE 
CONTINUE 
CONTINUE 
CALL FIG(AMP) 
GO TO 6600 
WRITE(6, 9300) 
РОВМАТ(1Х, ‘STOP DUE TO DATA ERROR’//)) 
CONTINUE 
STOP 
END | 
CFOR, IN SUBI 
SUBI | 
SUBROUTINE РВАЕРКМС1, №62, №63, МСЧ, 
КЕ, DU, DV, DGAM, ОСВАМ) 
INTEGRATING ВУ NUMERICAL METHOD 
COMPLEX CU, CV, DU, DV 
DU = (0.0, 0.0) 
DV = (0.0, 0.0) 
IF(NG3.EQ,1) GO TO 10 


584» 


10 


15 


20 


10 


CALL 1МТСВА(КЕ, СЕ, СУ, МОЗ, №64, DCRAM) 
DU = DU + CU 

DV = DV + CV 

IF(NG3.EQ.NG4) GO ТО 15 

CALL INTGRA(KE, CU, CV, NG3, NG4, DCRAM 
DU = DU + CU | 

DV = DV + CV 

IF(NG4.EQ.NG2) GO TO 20 

CALL INTGRA (KE, CU, CV, NG4, NG2, DGAM) 
DU = DU+CU 


DV = DV+CV 
RETURN 

END 

CFOR, IN SU B2 
SU B2 


SUBROUTINE INTGRA (КЕ, CU, CV, №71, №22, 
EGAM) | | 
COMMON 5$(512), СРР(800), СР$(800), 7(100), 
2(100), А(100), 
В(100), ВНО(100), Х(30), ЅІМА (800), СОЗА 
(800), PI2, ОТ, DAUER, 
FREQ, DGAM, Сі, C2, PPR, PPI, ТІ, ТО, 
155(30), ІМРТ, NG1, NG2, NOL, 
МРТ5, NENT, NGAM, рАРА (800), DIDI(800), M 
COMPLEX $, СРР, CPS > | 


COMPLEX CU, СУ, Е 


INTEGRATION FROM ЅІМРЅОМ(155(14) =0) OR 
TRAPEZIUM(ISS(14) = 1) 

IF(ISS(14)) 10, 10, 20 

SIMPSON 

WEIGHT = 4, 

WTOT = 3. 

GO TO 30 


“То 


20 


100 


200 


TRAPEZIUM 

WEIGHT = 2, 

WTOT = 2. | 

РКА1 = PI2+* FREQ/A(1) 

IF (FREQ.LE.0.0) РКА! = 0, 

CALL PHASE (Е, КЕ, №1, РКА!) 

CV = CPP(NZ1) * E + РАРА (№21) 

CU =CPS(NZ1) + E» DIDINZD | 

CALL РНАЗЕ(Е, КЕ, №2, РКА!) 

СУ = СУ + СРР(№272) * E + РАРА (№2) 

CU =CU +CPS(NZ2)*E+DIDI(NZI) 
NG11=NZ1+1 

NG21= N22-1 

NG12 =NZ1+2 

NG22 = NZ2 — 2 

DO 100 I=NG11, №621, 2 

CALL РНАЗЕ(Е, KE, I, РКА!) 

СУ = СУ + СРР(Т) + Е-РАРА (1) • WEIGHT 
CU=CU+  CPS(D * Es DIDI(D * WEIGHT 
ро 200 I=NG12, NG22, 2 I 
CALL PHASE (Е, KE, I, PKA1) 
CV=CV+2, * СРР(1)«Е» DADA(D 

CU =CU +2, • СР5(І)«Е» DIDI(D 

ARGU = РКА1/(Р12 + Х(КЕ)) | 
IF(ISS(5),EQ.0) ARGU = РКА1• PKA1* ARGU 
IF(ISS(5).EQ.1) ARGU = ARGU/(A (1) * A(1)) 
АВ = ABSCARGU) | 


ВС = Pl2* ЕВЕО * TO 

IF(ISS(5).EQ. D BC= BC- PI2/4. 

Е = СМРІ,Х(0.0, ВС) 

FAC = EGAM=3.14156/180. » SQRT(AB)/WTOT 
СУ = БАС»СУ»СЕХР(Е) 


“586° 


100 


CU = - FAC * CU * СЕХР(Е) 

RETURN | 

END 

CFOR, IN SUB3 

SUB3 

SUBROUTINE PHASE(E, КЕ, М, PA1) 

COMPUTATION OF THE BESSEL FUNCTION 

COMMON S(512), СРР(800), CPS(800), Z(100), 
D(100), A(100), 
В(100), RH0(100), X(80), SINA(800), COSA (800), 
PI2, DT, DAUER, | 
FREQ, DGAM, Сі, C2, PPR, PPI, ТІ, Т0, ISS 
(30), INPT, NG1, NG2, NOL, 
NPTS,NENT,NGAM,DADA(800), DIDI (800), М. 

COMPLEX S, CPP, CPS 

COMPLEX E, EE 

1Е(1$55(1).ЕО.1) СОТО 100 

РН = -РА1* (Х(КЕ) * SINA(N) + СОЅА(М№)) + 0,7854 

ЕЕ = СМРІ,Х(0., РН) 

E = CEXP(EE) 

GO ТО 200 

РН = -РА1• СОЅА(М№) 

ЕЕ = СМРІ,Х(0,, РН) 

Е = 2,«СОЗ(РА1ж Х(КЕ) * SINA(N)- 0.7854) * 
СЕХР(ЕЕ) | 

RETURN 

END 

SUB4 

SUBROUTINE SURFAC(A, B, RHO, M, IS, SQ, 
GU, GV) 
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EFFECT ОЕ ТНЕ TRANSMISSION AND 


THE FREE SURFACE 


DIMENSION А(1), В(1), ВНО(1) 


Al = А(М) • A(M) 

U=1.0 

1IF(M .EQ.1) GO TO 250 

DO 2001 = 2, M 

J = I-1 

A2 = RHO (J) 

A3 = RHO(D 

С = А2« АЗ 

Ві = А1/(В(Ј) • B(J)) 

B2 = А1/(В(1)« В(1)) 

B3 = SQRT(B1- 50) 

B4 = 5ОВТ(В2-50) 

B5 = 5ОВТ(А1/ХА(70» А (Ј)) ~ SQ) 
Вв = 5ОЕВТ(А1/ХА(Т)» A(I))- SQ) 
Di = 2.* (A2/B1- АЗ/В2) 

02 = 101% SQ 

Е = р2-А? 

Е = D2+A3 

Н = Е+АЗ 

$ = (Е. В4-Е»* В3)/($0. H* H+B6* Bir E * Е+ 


С» B6» B3 
+ В5* (D1 + D2 + Вб» ВЗ + В4 + Взе F+ F+ C * B4)) 
$=4.0» С• В5 «Вб» 5 • S 
Ч = 0.5 
CONTINUE 
IF(IS.EQ.1) GO TO 300 
Ві = A1/(B(1)* B(1)) 
В2 5ОКТ(В1- SQ) 
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300 


400 


15 


20 
30 
9000 


B3 = 5ОНТ(А1/(А(1)» А(1)) – SQ) 


С = 2, * 50-ВІ1 

D = -В1/2, 

Ү = 4, “ОКС. С +4, * В2 + Вз * SQ) 
СУ = СҮ 

GU = -2.*B2+* У 

СО ТО 400 

СУ = 1, 

GU = 1./ЗОВТСА!Т/СА (1) * А (1)) – SQ) 
СУ = GV*U 

GU = GU<*U 

RETURN 

END 

CFOR, IN SUB5 

SU B5 


SUBROUTINE RCR(D, A, NOL, TI, VMAX) 

DIMENSION р(1), А(1) 

CALL МАХЅМ(МОІ, А, VMAX, МАХ) 

ТІ-0,0 

ХСК =0.0 

Мі-МАХ-і 

ТЕ(М1.ЕО.0) СО ТО 30 

РО 20 І-1, М1 

WINK = ARSIN(A(D/A(MAX)) 

FF =2, 

XCR= XCR+FF* D(I)* TAN(WINK 

TI=TI+FF* D(D/(COS(WINK) + А(1)) 

WRITE(6, 9000) ТІ, УМАХ, XCR 

БОКМАТ(/////, 11X, 'TRAVEL TIME ОҒ THE 
HEADWAVE’//, 26X, 
"Т-”Б10.3, “+ R/”F6.3, "ЅЕС'//, 11X, ‘CRITIC 
ALDISTANCE 


*D89。 


обо 


оо 


=”F10.3, “КМ///» 

КЕТСЕМ 

END 

FOR, IN SU B6 

SU B6 

SUBROUTINE RECOPS (N, А, B, RHO, D, U, 
FREQ, RPP, RPS, RSS, RSP) 


COMPUTATION OF P-SV REFLECTION 
COEFFICIENTS 


№=МОМВЕВ OF DIFFERENT MEDIA, STARTING 
ON TOP 

А(Т), В(1), ЕНО(1), (1-1, N)= P- VELOCITY, 
5-УЕІОСІТҮ AND DENSITY 

D(D, (1=2, М-1)-ІАҮЕЕ THICKNESS 

О=РНАЗЕ SLOWNESS, FREQ= FREQUENCY 

RPP, RPS, RSS, RSP= COMPLEX РР, Р5, 55, 
SP- REFLECTION COEFFICIENTS 

DIMENSION A(N), B(N), RHO(N), D(N) 

COMPLEX Ті, T2, T3, T4, Т5, RPP, RPS, RSS, 
RSP, DET, CN, CNS, T53, T63 
A, T11, T21, T31, T51, T61, T12, T15, T32, T45, 
T42, T35, T62, T65, T13, T23, T33 

РТ=3.14159265 

ОМЕС =2. * PI* FREQ 

C =1,/U 

RK = GMEG * U 

N1=N-1 

СОМ-С» OMEG 


 U2=U < U 


С2-С»С 


6590 • 


ВК2 = ВК + ВК 

ОМ2 = ОМЕС + ОМЕС 

SET MATRIX ELEMENTS ОЕ EQUATION (6) 

S=B(N) | 

P= A(N) 

RRO=RHO(N) 

62-5»65 

Р2=Р*Р 

АЕСР-1,-С2/Р2 

АКС5-1,-С2/52 | 

1Е(АВСР.СЕ.0.) СМ-СМРІ,Х(0,, ~ ВК + SQRT 
(АВСР)) 

ІҒСАКОР,1,Т,0,) СМ =СМРЕХ(ВК • SQRT 
(-АКОР), 0.) 

ІЕСАКС5,1,7,0.) СМЅ = СМРІХ(ЕК * SQRT 
(- ARGS), 0.) 

IF(ARGS.GE.0.) CNS=CMPLX(0., -RK e SQRT 
(ARGS)) 

RL =2.*RK2- ОМ2/52 

ЕРР-СМ«СЫ5 

Ті-СМРЦХ(-52% 52“ ЕВО/(ОМ2-- OM2), 0,3 
(СМРІХ (4, * ЕК2, 0.) + ВРР+ 
СМРІ,Х(КІ,» RL, 0.)) 

Т2 =СМРЕХ(0., 0.5) * СМ | 

ТЗ= СМРІХ(0,, – 52+ U/(2, * ОМЕС)) * (СМРІХ 
(ВІ, 0.)+ВРР+ВРР) 

Т4 =СМРЕХ(0., – 0,5) • CNS 

Т5 = СМРІХ( ~ 1,/(2, * RRO * ОМ2), 0.) + (R PP 
+ CMPLX(RK2, 0.)) 

ТЕ1-ВЕАІКТІ) 

ТІ1-АІМАС(ТІ 

TR2= REAL(T?) 
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ТІ2- AIMAG(T2) 
ТВЗ=2. * REALCT3) 
ТІЗ-2, AIMAG(T3) 
ТВ4 = REAL(T4) 
ТИ = AIMAG(T4) 
TR5= ВЕАЕ(Т5) 
TI5 = АМАС(Т5) 
IF(N.LT.3) СОТО 2000 
СЕТ MATRIX ELEMENTS (7) 
DO MATRIX MULTIPLICATION (5) FROM LEFT 
TO RIGHT | 
DO NORMALIZATION 
РО 1000 7-2, № 
I=N-J+1 
$ = В(1) 
$2=5* 5 
Р-А) 
P2= P < P 
THK = RK * D(1) 
АКСР =1,- С2/Р2 
IF(ARGP.GE.0.) СОТО 190 
ВА = SQRT(-ARGP) 
Р=ТНК • ВА 
SP = ЗИМ СР) 
CP =- COS(P) 
X=RA*SP 

180 ARGS=1.~C2/S2 
IF(ARGS.GE.0.) GOTO 200 
ВВ = SQRT- ARGS) 
О-ТНК»ЕВ 
SQ = SIN(Q) 
CQ = COS(Q) 


592% 


190 


200 


210 


7= 50 + ВВ 
СО ТО 20 
ВА = ~ ЗСОВТ(АВСР) 
ЕР =0,5 * ЕХРСТНК * ВА) 
IFCEP.EQ.0.) ЕР-і. 
ЕМ =0.25/ЕР 
SP = EP - EM 
CP=EP+EM 
X=-SP* ВА 
GO ТО 180 
RB= -SORT(ARGS) 
EP=0.5* ЕХРСТНК ® ЕВ) 
ІЕ(ЕР,Е0,0,) ЕР=1. 
ЕМ-0,25/ЕР 
5О-ЕР-ЕМ 
СО-ЕР-ЕМ 

= — SQ * ВВ 
W=SP/RA 
Y = SO/RB 
G1= -2, • 52. 02 
G2=G1+1. 
E1 = CP * CQ 
E2=1.-E1 
E3=W*Y 
E4=X*Z 
E5 =W * СО 
E6=Y СР 
R1=COM + RHO(I) 
В2=1./В1 
В3=В!* С! 


. В4=В!* G2 


Е1=Е2+ЕЗ. 
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F2=F1+ R2 

G16= ~R2+ (F2+ (E2+E4) * R2) 
G13= -R3 * G16 + F2 

F3=Gle Fi+E3 

F4 = КЗ * G13+F3 

G31= R3* Е4-ЕЗ» R4 
G11=E1-F4 

G33=F4+0.5 

G61 = —R3* G31- R4 e (E3* R4+ F3 + R3) 
G15= - R2 * (Е5 +7, * СР) 

G23= – R3* 615 + Е5 

С21= – R3 • G23- R4 * Е5 
G12 = R2 * (E6 + X * СО) 

G32= — ВЗ + С12 ~ E6 

С51= — КЗ * С32-В4»% Е5 


G22= El 

G25 = Z * W 

С52= X * Y 

TR11=TR1* G11+TR2+ G21— TI3 * G31 + TR4 е G51+ 
TR5* G61 

ТП1-ТП»С114Т12» G21+ TR3* G31 +T 4 е G51+ 
ТІ5» 661 

TR22=TR1 + С12» ТВ 2+ С22- ТІЗ» G32+ TR4 + 052+ 
TR5* G51 

ТІ22-ТІ1» G12+ TI2 * G22 + TR3* G32+ тн 4 G52 + 
ТЕ» G51 ` 

TR33= -ТИ + G13— TI2 + G23+ TR3 + О33-ТІ4» G32- 
Т15 + G31 

TI33 = TR1* G13+ TR2 e С23 + ТІЗ% О33-ТК4» G32 + 
TR5* G31 

TR44 = ТКІ е G15+ TR2* G25— ТІЗ œ G23+ TR4 • G22 
+TR5 + G21 
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ТІ44-ТІ1» G15+ TI2* G25 + TR3*#*:G23+ TI4* (22+ 
TI5* G21 И. 

TR5=TR1* G16+ ТВ2» С15-ТІЗ» G13+ TR4* G12+ 
TR5* G11 

TI5= ТІ» G16+ TI2* G15+ TR3* G13+ TI4* G12+ TI5 
* G11 | 

ТЕ1=ТВ11 

ТІ1= ТІ11 

TR2=TR22 

TI2=TI22 

ТЕЗ-2,» TR33 

TI3=2, * TI33 

TR4=TR44 

ТМ = TI44 

КМАХ =АВЗ(ТВ5) 

1Е(ВМАХ.ТТ.АВ$(Т15)) ВМАХ =TI5 

ІҒХЕМАХ,І/Т,АВ5(ТІ4)) RMAX =TI4 

IF(RMAX.LT.ABS(TI3)) RMAX =TI3 

IF(RMAX.LT.ABS(TI2)) RMAX =TI2 

IF(RMAX,LT.ABSCTID) RMAX=TIl 

IF(RMAX,LT.ABS(TR4)) RMAX=TR4 

IF=RMAX,LT.ABS(TR3) ЕМАХ-ТЕЗ 

IF(RMAX.LT.ABS(TR2)) RMAX=TR2 

1Е(ВМАХ.ЕТ.АВ$(ТВ!1)) RMAX =TR1 

IF(RMAX.EQ.0.) ЕМАХ-і, 

КМАХ = 1,/ЕМАХ 

ТВ!1=ТВ! * RMAX 

TR2=TR2* RMAX 

TR3=TR3* RMAX 

TR4=TR4* RMAX 

TR5=TR5* RMAX 

TI1 =ТИ * RMAX 


TI2=TI2* ЕМАХ 
ТІЗ-ТІЗ«ЕМАХ 
ТЫ =Т14 + ВМАХ 
TI5= TI5* ВМАХ 
1000 CONTINUE 
2000 CONTINUE | 
SET MATRIX ELEMENTS (9) 
Р=А(1) 
P2=P =P 
S=B(1) 
62-5%65 
RRO= RHO(D 
ARGS =1.-C2/S2 
ARGP=1.-C2/P2 | 
ТЕ(АВСР.СЕ.0.) СМ=СМРЕХ(0., - ЕК» SQRT 
(ARGP)) 
IF(ARGP.LT.0.) CN =CMPLX(RK + SQRT(- ARG- 
P), 0.) 
IF(ARGS.LT.0.) CNS=CMPLX(RK • SQRT(- ARG- 
S), 0.) | 
ТЕ(АКСО5,СЕ,0,СМ8-СМРІ,Х(0,,- ЕК ЗОВТ(АВ _ 
GS)) 
RM = ВКО • 52 
КІ = RK2+ ВК2- ОМ2/52 
_ВРРЕ=СМ  CNS 
RM2= RM * RM 
RL2=RL* RL 
Т11 =СМРЕХ (- ВК2, 0.) 
Т13 =Т11+ RPP 
Т11-ТІ1- RPP 
О Т21 = СМРЕЁХ (0., RRO* ОМ?) 
Т51= Т21 * CN 
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С) 


Т21 = -~ T21 * CNS 


Т31-СМРІ,Х(0., - ВМ *RK * RL) 
В$$ =СМРЕХ (0., 2, «ЕМ»ВК)ВРР 


ТЗЗ = Т31+ RSS 
Т31 = Т31- RSS 
T61= CMPLX(- ЕМ2 • RL2, 0.) 


К55 =СМРЕХ (4. * ВК2 + КМ2, 0.) + RP P 


Т63 = Т61+ RSS 
Т61-Т61- RSS 


Т23 =СМРЕХ (0., ВМ * (2. + ВК2- ВГ)) 


T53 = Т23 + СМ 

T23 = Т23СМ5 
Т12=СМРЕХ («ВК + ВК, 0.) 
Т15 = Т12* CNS 

Т12= Т12* СЫ 

Т32-СМРІ/Х(0,, 4, * ВМ + RK2) 
Т45 = Т32 * CNS 

Т32 = T32 • СМ 

Т42= СМРІХ (0,, 2, • КМ * КІ) 
T35 = Т42 * CNS 

Т42 = Т42 * СМ 


Т62 =СМРЕХ (И, ы RM2* RL * ЕК, 0.) 


T65 = Т62 * CNS 

Т62 = Т62• СМ 
Т1=СМРЕХ(ТВ1, ТІП) 
Т2-СМРІ,Х(ТЕ2, Т12) 
ТЗ= СМРІХ(ТЕЗ, ТІЗ) 
Т4 =СМРЕХ(ТВ4, ТІМ) 
Т5 =СМРЕХ(ТВ5, TI5) 


РО LAST PART ОЕ MATRIX MULTIPLICATIO- 


М (5) 


COMPUTE REFLECTION COEFFICIENTS (4) 
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— csr r ВиО 


100 


рЕТ-Ті»Т11%Т2»Т21-7Т3» Т31+ Т4 * Т51+ Т5»Т61 
ІБ(БЕТ,Е0.0.) DET =1, Е 
ОЕТ = СМРІХІ,, 0.)/DET 

RSS = Ti» Т13 + Т2 * Т23 + ТЗ * T33 + Т4 * Т53 + Т5 • T63 
К55 = - RSS * DET 

ЕРР--ТІ»Т13- Т2% Т21- ТЗ • Т33 + Т4 * Т51- Т5 • Т63 
RPP= RPP + DET 

Т3-Т3» CMPLX(0.,.5, 0.) 

ҚР5-ТІ» Т12+ ТЗ * T32+T3+T42+T5 * T62. 

ВР5= -RPS + DET 


‚ RSP=T1+T15+T3*T35+T3%T45+T5* T65 


RSP=RSP* DET 

RETURN | 二 

END 

СЕОК, IN SUB7 

SUB7 

SUBROUTINE SIGNAL(T, DT, N, V1, NPTS, 
МА, 5) 

COMPUTATION OF THE SIGNAL 

DIMENSION S0) 


COMPLEX S 

DO 100 І-1, МА 

500) = (0.0, 0.0 
№ = T/DT + 1, 
ЕМ = М 

ЕМ = (FN + 2,)/ЕМ 
ЕМО = 1,/(ЕМ»ЕМ) 
D = FN: 3,14159265/Т 
TT= ~ рт 

A=0.0 

DO 200 І-1, М5 
TT=TT+DT 
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200 


300 


400 


Т1=р+ TT 

T2=FM = ТІ 

T3=3.36 = T1 

С = (1.-СО5(ТЬ +FMQ * (COS(T2) -1,))/D 
(МА +1) =СМРЕХ (С, 0.0) | 
С= АВЅ(5ІМ (Т1) ~ SIN (T2 /FM) 


ТР(С.СТ.А) А = С 
CONTINUE 

А = VI/A 

DO 3001 = 1, № 

J = МА + I 

SJ) = A*S(J) 

J = МА + NS + 1 

А =3,14159265/FLOAT(NPTS -J +1) 
DO 400 I = J, NPTS 


S(I)=0,5+ (1, + СОЅ(ЕІ ОАТ(І-Ј+1 «А)) «5(М5) 
RETURN 


END 

CFOR, IN SUB 8 

SU B8 

SUBROUTINE COOL(N, X, SIGN) 
БО FFT 


DIMENSION M(25) 

DIMENSION XD 

COMPLEX X, HOLD, WK, Q, V, DI 
DI= (0.0, 1.0) 

ЕХ=2* +N 

РО 11=1, М 

МЇ) =2* * (N-I) 

ЮО 4 1-1, N 

МВІОСК = 2 ж * (L-1) 

ІВ. ОСК = LX/NBLOCK 
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LBHALF = ЕВГОСК/2 

К-0 

DO 4 IBLOCK =1, NBLOCK 
ЕК = FLOAT(K) 

FLX =FLOAT(LX) 
У=6.2831853 * SIGN * FK/FLX * DI 
WK =СЕХР(У) | 
ISTART = ГВГОСК * (ІВІ ОСК ~ 1) 
DO 21-1, LBHALF 

' J=ISTART+I 
JH=J+LBHALF 

О= ХОН) + WK 
ХОН) = XQ) -Q 

Хх = Хр +Q 

CONTINUE 

DO 3 I=2, N 

II=I 

IF(K,LT.M(D) GO TO 4 
K=K- MI(I) 

K=K+M(ID 

K=0 

рот J =1, LX 

IF (K.LT.J) GO TO 5 
HOLD=X(J) ` 

X(J)= X(K+1) 
X(K+1) = HOLD 

DO 6 I=1, N 

II =] 

IF (K.LT.M(D) GO TO 7 
K=K-M(D 

K=K+M(ID 

RETURN 
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END 


CFOR, IN SUB9 


C 


19 
20 


10 


10 


$0 В9 
SUBROUTINE ZLOG(N, М) 
DO 10 1=1, 1, 12 
ТЕ(М-2* *Г)10, 5, 10 
МЕТ 
СО ТО 20 
CONTINUE 
RETURN 
END 
CFOR，IN SUB 10 
SUB 10 
FUNCTION AMAX(A，N) 
DIMENSION А(1) 
АМАХ-АС) 
DO 01-2, М 
ІБ(СА(І)-АМАХ) 10, 10, 9 
АМАХ = A (]) | 
CONTINUE 
RETURN 
END 
CFOR, IN SUB11 
SUB11 
FUNCTION AMIN(A, N) 
DIMENSION A(1) 
AMIN = А(1) 
DO 10 I=2, N 
IF(A(I)- AMIN) 9, 10, 10 
AMIN= А(р) 
CONTINUE 
RETURN 
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END 
CFOR IN SUB 12 
C SUB 12 
SUBROUTINE MAXSN (ІХ, X, ХМАХ, INDEX) 
DIMENSION Х(1) 
ХМАХ=Х(1) 
DO 10 1=1, LX 
10 ХМАХ=АМАХ1(ХМАХ, X(D) 
DO 20 3=1, LX 
INDEX = J 
IF(X(J) - XMAX)20, 30, 20 
20 CONTINUE 
30 RETURN 
END , 
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O 第 十 章 任意 介质 中 的 射线 追踪 方法 


前 面 我 们 讨论 了 常 速水 平 层 、 常 速 倾斜 层 、 速 度 随 深度 线性 
变化 的 非 均 匀 层 走时 的 正 演 计 算 和 反 演 计算 。 但 实际 的 地 学 和 上 
МӘЛІ SESH, ЭЛИ ЕО ЖЕНА ЗЕН. МН 
计算 它们 的 走时 ( 正 演 问 题 )， 又 如 何 根 据 实际 观测 走时 推断 地 壳 
和 上 地 赐 界 面 的 起 伏 情况 及 介质 的 速度 分 布 ( 反 演 问 题 )， 就 是 本 
章 讨 论 的 中 心 问题 。 

射线 迫 踪 是 研究 任意 介质 分 布地 震波 传播 问题 的 有 效 方 法 。 
河 则 上 它 可 以 用 几何 作 图 的 方法 来 作 ， 但 由 于 费时 且 精 度 差 而 失 
去 其 实用 价值 。 因 此 ,实际 上 射线 追踪 一 般 是 计算 机 来 完成 的 。 本 
章 的 重点 是 讨论 计算 机 进行 射线 追踪 的 具体 计算 方法 和 计算 机 程 
序 ， 有 关 射 线 追 踪 的 原理 仅 作 简要 叙述 。 

近年 来 ， 对 射线 追踪 正 演 问题 国内 外 都 进行 了 大 量 的 研究 。 
Stein(1969) 发 表 了 在 人 恒定 的 垂直 速度 梯度 情况 下 ， 利 用 二 维 
速度 分 布 的 一 种 计算 机 程序 ， 速 度 不 同 的 地 区 用 一 个 多 边 形 隔 
JF. Wi11(1975) 引 入 了 一 种 归纳 法 ， 这 样 速度 梯度 能 够 有 随机 
方向 。Dantz(1978) 提出 了 一 种 程序 ， 其 二 维 模式 由 恒 速 度 线 确 
” 定 ， 具 有 和 鲁 速 度 和 恒 梯 度 的 地 区 以 及 由 倾斜 线 构 成 的 速度 分 布地 
区 ， 调 不 同 的 子 程序 进行 计算 。Gebrande (1975) Я ЖЖ 
数 ， 例 如 反正 切 、 双 近 速 度 等 值 线 ， 较 清晰 地 表示 了 复杂 地 质 构 
造 的 波 速 情况 ,如 忱 状 构 造 或 消减 带 一 类 比较 复杂 的 速度 模型 。 
Pseneik(1975) 等 许多 人 使 用 了 一 种 不 同 但 更 普通 的 方法 ， 他 们 
用 一 阶 常 微分 方程 描述 射线 路 径 ， 空 间 坐 标 x: 和 z 的 矩形 网 格 _ 
决定 出 局 部 速度 v(x ;，z ;)， 丰 相 邻 四 个 成 的 长 方形 中 使 用 了 特 
原 的 非 线性 播 值 函数 。Cerveny 等 人 使 用 了 样 条 函数 ， 走 时 和 射 
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线 踪迹 用 Runge-Kutta 法 计算 。 
国内 ， 国 家 地 震 局 地 球 所 、 成 都 地 质 学 院 、 国 家 地 震 局 郑州 
”物探 大 队 等 单位 对 上 述 方 法 都 作 了 一 定 程度 的 研究 和 改进 。 
射线 追踪 反 演 问题 的 论文 相对 说 来 发 表 要 少 些 。 成 都 地 质 学 
院 和 国家 地 震 局 郑州 物探 大 队 等 单位 用 阻尼 最 小 二 乘法 、 广 义 道 
等 方法 进行 了 射线 追踪 反 演 计算 ， 编 写 了 相应 的 计算 机 程序 。 


$10-1 射线 追踪 原理 简 述 


射线 追踪 就 是 把 在 介质 中 连续 传播 的 波 离 散 成 一 条 条 册 线 来 
研究 ， 从 震源 出 发 将 射线 分 成 车 于 段 ， 逐 段 求 出 射线 的 轨迹 和 走 
时 ， 依 次 累加 ， 最 后 得 出 地 下 介质 中 射线 分 布 和 地 面 上 的 时 距 曲 
线 。 

众所周知 ， 在 介质 速度 变化 不 太 大 ， 波 长 比较 短 的 情况 下 ， 
ИЖ 


еу (9) + w) = =п?. (10-1.1) 


AF n НВК, w 是 波 阵 面 ( 波 前 )。 
波 前 方程 (10-1.1) 是 一 阶 偏 微分 方程 ， 它 的 解 愉 荐 :空间 坐标 
的 函数 。 具 有 非常 简 单 的 形式 ， 


wlx у, 2) = ЖЖ. 


И Ж, DREKK АЛЕМ 
开 的 一 个 个 空间 曲面 。 每 一 时 刻 对 应 一 个 曲面 ， 这 个 曲面 就 是 该 
时 刻 的 波 阵 面 ， 波 阵 面 的 法 线 就 是 所 谓 的 射线 ， 射 线 的 方向 就 是 
波 的 传播 方向 。 波 强度 的 各 种 变化 可 以 用 射线 的 收缩 与 扩张 来 描 
述 ， 更 重要 的 是 到 达 的 时 间 可 以 由 沿 射线 路 径 的 积分 得 到 。 

从 波 前 方程 很 容易 看 出 波 阵 面 的 形状 与 介 质 的 REDHA 
关 。 在 均匀 介质 中 速度 是 常数 ， 相 同时 间 闻 隔 的 波 阵 面 之 间 对 应 
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变 ， 也 就 是 说 均匀 介质 中 的 射线 是 直线 。 在 非 均匀 介质 中 *。 速度 
分 布 是 空间 坐标 的 函数 ， 在 相同 时 间 间 隔 内 波 阵 面 前 进 的 距离 不 
一 样 ， 波 阵 面 的 曲率 发 生 了 变化 ， 波 阵 面 的 法 线 方向 也 跟着 发 生 
变化 ， 也 就 是 说 非 均 匀 介 质 中 的 射线 是 曲线 。 

如 果 已 知 速度 分 布 和 边界 条 件 ， 可 以 求 出 波 前 方程 的 解析 解 
或 数值 解 。 也 可 以 把 非 均 匀 介 质 中 弯曲 的 射线 ， 用 若干 个 图 强 来 
带 近 。 即 把 非 均 名 介质 分 成 若干 薄 层 ， 把 每 个 薄 层 的 速度 视 为 是 
线性 变化 的 。 众 所 周知 ,速度 线性 变化 的 介质 ,地 震 射线 的 轨迹 是 
圆 弧 。 因 此 很 容易 分 别 求 出 射线 在 各 个 薄 层 的 轨迹 和 走时 ， 依 次 
累加 ， 景 后 得 到 射线 在 非 均 匀 介 质 中 的 射线 分 布 和 走时 。 


$10-2 射线 追踪 正 演 计算 


本 节 结 合 后 面 的 射线 追踪 程序 ， 将 详细 地 叙述 射线 追踪 的 其 
体 计 算 方 法 和 步 又。 由 于 均匀 介质 和 非 均匀 介质 中 射线 轨迹 和 走 
时 计算 公式 不 一 样 ,为 了 便于 理解 ,我 们 将 分 别 叙 述 。 这 并 不 是 说 
程序 也 是 分 开 编 写 的 ,相反 ,为 了 使 程序 简洁 ， 节 省 内 存 ， 缩 短 编 
译 时 间 ， 凡 两 者 相同 部 份 均 合 二 为 一 。 射 线 追 踪 计 算 总 要 先 有 者 
面 和 速度 模型 ， 因 此 本 节 首 先 叙 述 这 个 问题 。 


(一 ) 界面 及 速度 模型 的 描述 

描写 界面 及 速度 模型 的 方法 很 多 ， 下 面 我 们 介绍 几 种 常用 的 
方法 。 | 

(1) 用 反正 切 多 项 式 描述 界面 。 反 正切 函数 z(x)= arctgx, 
当 |x| 增加 到 一 定 程度 后 ， 其 函数 值 变 化 很 小 ; 若干 个 反正 切 ІҢ 
数 相 加 ， 只 有 其 中 某 一 个 贡献 大 ， 而 其 它 的 贡献 都 很 小 ， 每 一 个 
反正 切 曲线 可 以 用 很 少 的 参数 确定 其 基本 形状 。 利 用 反正 切 曲线 
的 上 述 特性 ， 可 以 比较 方便 地 用 下 述 具 有 若干 个 反正 切 函 数 的 多 
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пиво - ағар жады рат otg* хам), 


(-1,2-,т). (10-2,1) 


RE, РА К 表示 界面 的 序号 ;下 标 i 表示 第 k 个 界 的 第 i 个 反 
正切 曲线 的 序号 ;，n 表示 第 K 层 反 正切 曲线 的 个 数 ，m 表示 界面 
的 个 数 ( 包 括 地 面 ); AZ,'i 表 示 反 正切 曲线 的 落差 Xos: ЖА 
正切 曲线 中 心 的 横 坐 标 ， b,: 表示 反正 切 曲 线 的 陡 度 ， 凤 过 反正 
切 曲 线 卫 AZ，i 处 作 反 正切 曲线 顶 线 的 平行 线 ， 中 点 到 该 平 行 线 


的 距离 。(10-2 .1) 式 各 参数 的 意义 参看 图 10-2-1 。 





图 10-2-1 用 БЛЕЗ БН ЖЕЛЕ 
如 果 第 K 个 界面 是 水 平 界面 ，(〈 则 式 (10-2-1) 为 
2.(х)-4;%. 


如 果 第 k 个 界面 是 倾斜 界面 ， 界 画 的 斜率 уа ШҚ (10= 
2.1) 为 | 


2ь(х) = ав Та: х. 
(2) # 给 出 界面 一 系列 离散 坐标 (x, О, ЖЕНЕ 
.505. 


曲线 或 抛物 线 把 这 些 点 连 起 来 ， 如 图 10-2-2 所 示 。 

上 述 描述 界面 的 方法 各 有 
其 优 缺 点 。 第 一 种 方法 所 用 о--------- У | 
зен, аеннан о 


界面 和 人 工 确定 其 参数 比较 困 .一 o 

难 。 第 二 种 方法 能 够 准确 直观 。 一 二 二 -一 

地 确定 其 参数 ， 比 较 精 确 地 描 。 | _... и 

述 界面 ， 但 参数 多 , тым, 020 СОЕ 

一 般 不 宜 用 来 反 演 。 图 10-2-2 用 祥 条 曲线 连接 离 
非 均 匀 介 质 的 速度 模型 一 散 点 表示 的 界面 和 等 速 线 


般 用 等 速 线 表 示 ， 上 述 描述 界面 的 方法 都 可 以 用 来 描述 等 速 线 。 
也 可 以 给 出 非 均匀 介质 的 顶 面 速度 УС, КЕЗЕН У, 1, Уаз 
W о ШЕШ ESAR, WANEER — A K 
一 般 是 不 相等 的 (参看 图 10-2-1) 。 均 匀 介 质 的 速度 模型 一 般 
tH ара. 一 


(с) 射线 追踪 计算 步骤 


射线 妃 踪 就 是 从 震源 出 发 ， 按 规定 的 步 长 逐步 前 进 ， 逐 段 计 
算 射 线 每 前 进一步 的 轨迹 和 走时 ， 依 次 累加 ， 直 到 射线 达到 或 超 
过 界面 。 如 果 射 线 超过 界面 ， 求 射线 与 界面 的 交点 。 射 线 在 界面 
要 发 生 反射 和 折射 ， 需 要 求 出 射线 与 界面 交点 处 的 界面 倾角 、 反 
ня. HNR, 临界 角 等 。 以 射线 与 界 的 交点 为 起 点 重复 上 述 步 
又 ， 直 到 射线 达到 目的 界面 。 求 出 目的 界面 反射 线 与 水 平 线 的 
ЖЫШ, ЖАН ХЕЛЕН ЕН ЕЕЕ E 于 
是 得 到 了 一 条 经 过 地 下 介质 到 达 地 面 的 射线 再 改变 震源 处 的 初始 
角 ， 重 复 上 述 步 又 ， 最 后 得 到 了 一 条 条 经 过 地 下 介质 到 达 地 面 的 
射线 。 将 各 条 射线 到 达 地 面 的 走时 和 炮 检 距 画 成 一 条 曲线 即 为 
所 要 求 的 时 距 曲 线 。 下 面 分 别 叙述 均匀 和 非 均匀 介质 中 射 ЖОВ 


607° 


踪 的 具体 计算 步 又 。 
1. 均匀 介质 中 的 射线 追踪 计算 步骤 
а) 计算 目的 层 下 界面 第 s RIRE IS BM A K M 


(以 下 称 初始 角 ) 。 为 了 使 各 条 射线 到 达 地 面 之 问 的 虐 离 大 致 相 
等 ， 按 下 式 计 算 初始 角 бс 


а 
бе 一 arctig OR 


WP ao 是 坐标 原点 到 目的 层 k 下 界面 的 直 垂 距离 ，s 是 第 s 
条 射线 ，Ax ЛА. 
(2) 从 震源 O 出 发 ， 沿 射线 方向 前 进 一 个 步 长 R， 到达 A 
Ж, WE A MERRE X4， 纵 坐标 Z4， 射 线 到 达 A ЛАШ E 
T4， 由 图 10-2-3 很 容易 得 到 : | 
Хл- К»«сова:» 
2а= R *5іпо:» 


Т а= R 





у, * 

Жау 是 第 一 层 的 速度 。 | 
NNs (3) 判断 4 所 是 否 到 达 或 
‚ГА | | 超过 第 一 层 下 界面 。 具 体 作法 
z-s 如 下 ， 求 出 横 坐 标 为 X4 时 第 
.. 一 层 下 界面 的 维 坐 标 Z(X 4) > 
^^ _ 44-22, и 
9 |24 小 于 或 等 于 某 个 小 量 
| е, (例如 0.01 公 里 ) , 表示 4 


| 点 到 达 第 一 层 下 界面 ; ШЖ 
图 10-2-3 均匀 介质 中 的 射线 追踪 AZ 4 之 2: 表示 А 点 超过 第 一 


层 下 界面 ， 如 果 4Z4<e: ЖЖ А 点 还 没有 到 达 第 一 层 下 界面 ， 
人 姓 时 从 A 点 出 发 ， 继 续 以 步 长 RR 前进， 到达 B 点 。 如 同 射线 从 
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ОКА 点 一 样 ， 计 算 BARREIRA, IRZ: Ah B 
点 的 走时 Ts， 


Хв=ХА+ В‘соба., 
2в= Zat В+ 51а. Е 


Ts =Ta + у. . 


判断 B 点 是 否 达 到 或 超过 第 一 层 下 界面 ， 如 果 仍 然 没有 ,重复 
上 述 计 算 ， 直 到 射线 达到 和 超过 界面 为 止 。 
(4) 如 果 射 线 超过 界面 ， 用 “二 分 法 ” 求 射线 与 界面 的 交点 


设 第 m 次 跨 步 ， 射 线 从 M 点 跨 过 界面 到 达 N 点 。 求 出 MN 的 中 
点 Fis ЖЕЕ, МА Хр, ААА Дра 


ДА — 5 —— 
--“ Х 





эү 
7 
а 
` о,- _ 一 一 一 一 大 
| | 
' | 
. Í 
! | м | 
| `. Í 
ze 一 一 Fi 








图 10-2-4 4 BIN 质 中 用 “二 分 法 ” 求 射线 与 界面 的 交点 
.二 分 点 超过 界面 ; b .二 分 点 未 达到 界面 ， 
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Xr, = Xu + + В.соза., 
Ёғ = “м 十 + В*зта.. 


式 中 Xx 和 Zw 分 别 是 M АН РА. 2 ІРЧ10-2-4 Ж 

计算 横 坐 标 为 :1 时 界面 的 纵 坐 标 Z(XF1)， 令 AZ1 =Zri- 
Z(Xr1)， 如 果 |1AZ1 | 小 于 等 于 事先 给 定 的 精度 se:， 则 认为 Fi 
是 射线 与 界面 前 交点 。 如 果 AZ, | 大 于 e; 则 不 能 认为 F, 是 射 
线 与 界面 的 交 氮 ,继续 进行 “二 分 ” 。 在 继续 进行 “二 分 ”之 前 ， 
先 要 判断 Fi 是 在 界面 的 上 方 或 者 是 在 界面 的 下 方 。 如 果 F ER 
面 和 的 下 方 ， 如 图 10-2-4 a 所 示 ， 则 新 的 “二 分 ”把 FF。 的 横 坐标 
有 Xt。， 纵 坐标 ZFs 分 别 为 


及 Fa 三 及 Fl 一 әз В сова. = Хр; 一 2 R cosas, 


“ғо ш ZF: - 2 R:sina,= Zr, ш 1 R'sina,, 


WE Fi 在 界面 的 上 方 ， 如 图 10-2-4 b 所 示 ， 则 


1 
Хғ; - Хр; + zz К“сова: = Хр} + ч сова» 


Ёр = Ёру + а 
о 5727 oy 济 断 新 的 “二 分 ”点 是 否 是 射 
| 线 与 界面 的 交点 ， 如 果 仍 然 不 
| О 是 ， 继 续 “ 二 分 ”， 直 到 求 出 
я 射线 与 界面 的 交点 为 止 。 

Эс N (5) 求 射线 与 界面 交点 处 
的 界面 倾角 В. 

如 图 10-2-5 所 示 ， 设 射线 与 界 
图 10-2-5 计算 界面 侦 角 B 而 的 交点 为 F，F 点 的 模 举 标 


1 . 
R° sina, = “гі "да. 








х, 
i 
| 
i, 
Y 

2 
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为 Хг, JA F ЖН 方向 前 进 AX 得 到 4 ЛИЯ АЯ ХА, Б 
ВАХ BA D АНА Хо, 

ХА Xr+ АХ, 

Хр-Хр- АХ, 


AX 一 般 取 界面 参数 b 最 小 者 的 十 分 之 一 。 分 别 计算 X4 和 Xp 
对 应 和 的 界面 纵 坐 标 Z(X4) ffl Z(Xp), ШЕ 上 成 的 界面 倾角 


ZXA) -ZAKD) 


В = агсір 2. АХ 


(6) 如 果 下 行 射线 到 达 的 界面 不 是 目的 界面 ， 计 算 下 行 入 射 
线 与 法 线 的 夹 角 
Aus 5 -(Е В). о | 
(s AN 
式 中 互 是 射线 与 横 轴 的 夹 角 。 计 算 下 行 折射 线 与 横 轴 的 夹 角 


А: =atrcsin(Vf +511 А! 1/У,). 


АНУ, 和 У 分别 是 界面 X 上 、 下 的 速度 。 шаны 


轴 的 夹 角 ES 
Ву» = (Az +8)». | 
计算 下 行 射线 的 临界 角 


Ар = агсѕіп (УГУ). 
ШЕЛ 小 于 Ар, В. 视 为 初始 角 进 行 下 行 射线 追踪 直到 目 
的 界面 为 止 。 
а) 射线 到 达 目 的 界面 后 ， 计 算 反 射线 与 水 平 线 的 夹 角 Bi 
Bı: E-B. | 


à 
тб = “611% 





.将 Bir 视 为 初始 角 进 行 反射 波 上 行 射线 追踪 。 如 РЯ RE 
到 界面 求 上 行 射 线 与 法 线 的 光 角 


Ай Bi. 
计算 上 行 折 射线 与 法 线 和 的 夹 角 
= Azı =arcsin(V *<тА!1!1/УО. 
计算 上 行 射 线 的 临界 角 
А, = агсзт( Ух /У,). 
计算 射线 与 水 平 线 的 夹 角 


Ор 

















图 10-2-6 射线 在 界面 各 种 角 的 关系 
a, FENA: b .上行 射线 
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B21 = > Аза +B. 


ША JS F AA, É B. Ж 
为 初始 角 进 行 上 行 射线 追踪 直 
到 地 面 为 止 。 以 上 各 种 角 人 参看 
图 10-2-6。 

(8) 减 小 震源 处 的 初始 
Ж, ЖЫ ЕД, НЯ 
条 小 角度 反射 波 射线 追踪 ， É | 
到 入 射线 在 目的 界面 的 入 射 角 “ 一 人 
等 于 或 略 大 于 临界 角 。 = о 

(9) 当 入 射 角 等 于 或 略 大 1097 
于 临界 角 时 ， 进 行 首 波 射线 追 
踪 ， 如 图 10-2-7 所 示 。 在 临界 
点 G 以 上 行 射线 与 横 轴 的 Ж 
和 角 В: 为 初始 角 ， 进 行 一 次 
上 行 射线 追踪 。 从 临界 点 G 
出 发 ， 沿 横 轴 方向 前 进 一 个 步 20045 
Е Ас (例如 2 公里 )， 射 线 沿 图 10-2-7 均匀 介质 中 折射 波 射线 追踪 
界面 滑行 到 GI Я. ИП Ж С: (上 图 走时 曲线 ， 下 图 射线 图 ) 


AAIR R Xor А М Zei INA Gi 点 的 走时 Ters 


| 














Xc, = Xç + AS, > 
Ze: = Z(Xci)， Í 
Тс, = Те 十 V Z(Xc)° +2(Хс1)?, 

у! 


式 中 Xe 是 G НАМ, Te 是 下 行 射线 到 达 临 界 点 G 的 走 
对 。 计 算 首 波 射线 在 G1 扩 的 起 射 角 | 
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Ас! = 5 -| Ар rarctg — EON], 
AG АНХ, ЖТА ЬН УЕН Ас, 视 为 初始 角 进 行 上 行 首 
波 射线 追踪 ， 方 法 与 小 角度 反射 波 上 行 射线 追踪 一 样 ， 设 从 G. 
出 发 的 上 行 首 波 射 线 与 地 面 的 交点 为 Ні, MAREX ОН, 的 首 


`. 一 - / 
Тн, = Тс, + Тн, А 


A Та: ЖА Gi 出 发 的 上 行 首 波 射线 的 走时 。 
T 继续 以 AS 步 前 进 ， 每 前 
| 进一步 ,重复 上 述 步骤 ,直到 计 
| 算 完事 先 规定 的 最 后 一 条 射线 
| 为 止 。 至 此 得 到 了 目的 层 界面 
x КЕНЕ ЕЕ ЖЕНЕ 
四 (9) 继续 减 小 震源 处 的 
ЗАЙ, НВ 
аав. ЖЕЛАЯ 
“А 射 波 射线 追踪 。-- 直 到 计算 完 
事先 规定 的 最 后 一 条 射线 为 
止 。 景 后 得 一 幅 完 整 反 射 波 身 
曲线 图 和 时 距 曲线 ， 如 图 10-2 
-8 所 示 。 
(10) 射 线 追踪 正 演 计算 
一 般 是 从 第 一 层 开 始 ， 依 次 往 
下 作 ， 直 到 作 完 规定 的 最 后 一 











图 10-2-8 反射 波 射 线 追 踪 ( 上 图 走 
时 曲线 ， 下 图 射线 图 ) 层 为 止 。 
2。 弯 曲 界 面 任意 非 均 匀 介 质 中 的 射线 追踪 计算 步骤 
任 巷 非 均匀 介质 中 的 射线 追踪 ， EEI SRD RA ETA 
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层 ， 把 每 个 细 层 的 速度 看 成 是 线性 变化 的 ， 而 各 个 细 层 的 速度 节 
度 不 一 定 相 等 , 细 层 的 分 法 不 是 沿 纵 坐标 轴 或 某 个 方向 等 ,分 而 是 
222 U ЖЛ ЗИН ЕЯ ЗЕГЕ - Яа БЕР 
K. Q, ШІН10-2- -10 所 示 。 求 出 每 向 前 跨 一 步 的 射线 坐标 和 走时 ， 
еее” 依次 累加 ， 最 后 得 到 剖面 
的 射线 分 布 和 时 距 曲 线 。 
下 面 叙述 其 主 要 计算 步 
Ж. 
(1) 计算 第 s 条 射线 
在 震源 处 的 初始 角 а. 7 





法 与 均匀 介质 相同 。 
| (2) 射线 每 向 前 跨 一 
“ы 10-2-9 ЧЕЛА АҒЫН ЕЗ 步 都 必须 计算 射线 跨 步 起 
及 的 速度 梯度 Gus 


e Шато) 

Жан Gx 和 Gz 分 别 是 跨 步 起 点 的 速度 横向 梯度 和 纵向 梯度 。 对 
于 给 出 非 均匀 层 顶 底面 速度 了 { 和 Ye 1! 这 种 速度 模型 ， Gx 和 
Gz 分 别 为 

| Сх = AVx/AX, 

G; = ДУ,/ АЛ. 

式 中 AVx 是 跨 步 起 点 沿 横 轴 方 向 跨 AX 的 速度 增 量 , AVz 是 非 
均匀 屋顶 底 界 面 的 速度 差 ，AZ 是 跨 步 起 点 顶 、 底 界面 的 距离 。 


计算 第 n 次 跨 步 起 点 的 速度 V， 。 对 于 给 出 非 均匀 居 顶 、 Ж. 
面 速度 VA、 у, 1 的 速度 模型 ， fa > ен. >) А. ~ 


у, = VZ+ Ду: AH. 





<)... 


式 中 AH 是 跨 步 起 点 到 项 界面 的 上 距离 。 
对 于 以 速度 横向 梯度 Gx 和 纵向 梯度 Gz 描述 的 速度 模型 


У, = У! +/(Gx*Sx)2 + (G; *S;)2 


式 中 Sxz 和 S$z 分 别 是 跨 步 起 点 距 震源 或 非 均匀 层 项 面 射 线 出 发 
点 的 水 平 距离 和 垂直 距离 。 
计算 第 n 次 跨 步 起 点 与 横 轴 的 夹 角 


q. = a = (и -1)Q. 


ор а. ЖЖ s Ж Ж 线 ER IAE A Hi Ж АХ АК ЖЕН Bt 3 
Яя, 是 角度 步 长 ， 如 果 进 行 下 行 射线 追踪 a, 后 M RES, 如 
ЖЖ ЕТІМ ӘНЕ а. 后 面 取 负 号 。 

计算 第 nn 次 跨 步 起 后 速度 梯度 方 亲 与 射线 方 向 x ің) у Ж 
Я ins 


tgA. 一 tEQ n ) 


i = атс Д 
tg 1 + tgÀ, ° tgq, 


式 中 4, 是 第 次 跨 步 起 点 处 速度 梯度 方向 与 横 轴 之 间 的 夹 角 。 
计算 第 n КЕ ЛАЙН Ж?Р 





计算 第 n 次 跨 步 端点 的 横 坐 标 XX .1 ， 纵 坐标 Zi NFF 
行 射线 
Ху+ї =Х, + (0. *ѕіпО) •соѕа, Tp. ° (] со О) * 51040; ` 
а 127. (р, *5іпО) :sinas ТР» *(1- соѕ50О) *созав. 
对 于 上 行 射 线 
Ха. = X, + (р. "5 ПО) *со5а, — р. * (1 — с0о5О) * Sina 。， 
24:.1-7.- (p *ѕіпО) •5іпа, -Ра"(і-со5О)“собва.». 
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计算 第 ”次 跨 步 后 射线 到 达 端 点 的 走时 _ 


T. у= 1 | in cosas үң l teostas + О) |, 
. 1 "2с, 1- cosa, 8 соѕ(а, + O) 





RU ЖЗ р АЕ ЕЛЕСІ 度 ， шетін 
Х,1. 2... Я17,,1; 


Х,..1= ХХ, + Р •с050 
базіс Zt Resinas 


AP R 的 意义 与 均 句 介 
质 中 的 射线 追踪 相同 ，V， 
Жид 跨 步 起 扩 的 速 
PE, Ук, 是 端点 的 速度 。 
EMERE Xa, Za MTa ` 
分 别 是 第 nn 次 跨 步 起 扩 的 
WER ERRER o 

每 跨 一 步 都 必须 判断 
射线 达到 和 超过 界面 没 
有 ， 如 果 没 有 继续 跨 步 ， 
直到 射线 达到 或 超过 界面 
ЖЕ. | 

(3) 如 果 射 线 超过 界 
面 ， 用 “二 分 法 ” 求 射线 
与 界面 的 交 氮 。 设 第 mm 次 
跨 步 ， 射 线 从 M 点 跨 过 O | 
界面 到 达 N 点 ， 如 图 10- 图 10-2-10” 非 均匀 介质 中 ， 用 “二 分 法 ? 


Иш 求 射线 与 界面 的 交点 
2-10 2 和 日 所 不。 将 角 нии: b. 二 分 点 未 达到 界面 
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0 等 二 分 ， 得 到 二 分 后 的 角度 步 长 0 ， 

| | 1= Q, | . 
МЕЖ оо, ИРИ, 前进 角度 步 长 
Q1， 射 线 到 达 Fi 。 按 上 述 方法 计算 Е, 点 在 追踪 坐标 系 中 的 横 
А Хр, ЗАК Zrl)。 判 断 Fl 点 到 ИИ, ЛЬ 
匀 介 质 中 的 射线 追踪 相同 。 如 果 仍 然 超 过 界面 ， 继 续 “二 分 ”， 
在 上 次 前 进 的 二 分 角度 步 长 91 中 减 去 这 一 次 二 分 角度 步 长 
二 9， 得 到 新 的 角度 步 长 ， 


Q. =Q. - 29 =- lo, 


如 图 10-2-10a 所 示 。 如 果 没 有 达到 界面 ， 则 在 上 次 前 进 的 一 今 角 
度 步 长 О, 中 加 上 这 一 次 的 二 分 角度 步 қ, zQ, 


1 3 
9:-01%:0- 49 


如 图 10-2-10 тж. АЯ ЖЕ, НИЕ, JK 到 界 
面 没 有 ， 如 果 没 有 ， 重 复 上 述 步骤 ， 继 续 二 分 ， 直 到 射线 达到 界 
面 为 止 。 

以 下 的 射线 追踪 步骤 与 均匀 介质 中 射线 追踪 步 又 (5 ) 一 (10) 
基本 一 样 。 主 要 区 别 是 在 进行 下 行 射 线 追 踪 时 ， 每 跨 一 角度 步 
长 都 必须 判断 下 行 射 线 与 横 轴 的 夹 角 是 否 小 于 1" 。 如 果 小 于 1"， 
进行 回 折 波 射线 追 妖 ， 追 踪 方法 与 上 行 反射 波 射 线 追 踪 К ЖОШ. 
同 ， 唯 一 的 差别 仅 在 于 回 折 点 上 行 射 线 与 横 轴 的 夹 角 总 是 视 为 0 
进行 上 行 射线 追踪 ， 一 直 计 算 到 事先 规定 的 射线 条 数 为 止 。 

当 计 算 完事 先 规定 药 最 后 一 条 射线 后 ， 我 们 就 得 到 了 目的 界 
面 的 反射 波 和 首 波 走时 曲线 ， 目 的 层 的 回 折 波 走时 曲线 以 及 它们 
”相应 的 射线 图 。 
按照 上 述 步 又 ， 编 写 出 射线 追踪 正 演 程序 ， 可 以 迅速 方便 地 
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b. 射线 分 布 图 


时 距 曲 线 图 ; 


а. 


` & ， 
É] 10-2-11 弯 厚 界面 的 时 距 曲 线 和 射线 分 布 图 
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计算 和 给 出 水 平 、 倾斜 和 各 种 弯曲 界面 的 反射 波 、 首 波 和 回 折 波 
的 走时 曲线 和 射线 分 布 图 ,下 面 举 几 个 计算 的 典型 例子 。 

图 10-2-11 表示 了 均匀 介质 中 弯曲 界面 的 时 距 曲 线 图 和 射线 
分 布 图 。 从 射线 图 上 可 以 看 到 地 震 射 线 在 地 下 介质 中 的 分 布 情 
况 ， 传 播 的 路 径 。 与 地 人 震 记 录 对 比 ， 可 以 发 现 地 震 射 线 在 地 表 分 
布 密集 的 地 方 振幅 较 大 ， 反 之 振幅 较 小 。 界 面 曲率 中 心 位 于 界面 : 
的 下 方 ， 反 射线 超前 ， 曲 率 中 心 位 于 界面 的 上 方 ， 反 射线 回转 ， 
界面 曲率 越 大 超前 或 回转 越 厉害 ， 反 射线 分 布 不 均匀 。 在 射线 发 
生 超 前 回 折 的 地 方 时 距 曲 线 也 相应 发 生 超 前 、 回 折 ， 出 现 多 值 。 

图 10-2-12 是 多 层 平缓 起 伏 界 面 的 反射 波 时 距 昌 线 和 射线 分 
布 图 。 从 图 中 可 以 看 出 ， 下 记 界 面 的 时 距 曲 线 和 射线 分 布 除 了 受 
反射 界面 的 影响 外 还 要 受 上 面 各 层 界面 起 伏 情况 和 速度 分 布 的 影 
I © 

图 10-2-13 Ж 是 非 均匀 介质 弯曲 界 画 反射 波 和 回 折 波 射 线 分 布 
图 和 时 距 曲 线 。 从 射线 图 中 可 以 看 出 非 均 匀 介 质 中 的 射线 是 得 
线 ， 曲 率 大 小 与 该 点 的 速度 梯度 成 正比 , 与 速度 成 反比 ,与 射线 方 
向 及 速度 梯度 方向 之 间 夹 角 的 正 艾 成 正比 。 反 射线 除了 受 介 质 和 的， 
速度 分 布 影响 之 外 ， 还 要 受 界面 形状 的 影响 。 

图 10-2-14 ХЕ Л ЖЕ ИШ ЯШАВ ОН ЕНЕ | 
曲线 图 。 首 波 射线 也 是 曲线 ,影响 射线 曲率 的 因素 与 有 反射 线 相 问 ， 
时 距 曲 线 的 形状 除了 与 介质 速度 分 布 有 关外 ， 还 与 界面 的 形状 太 

$ 10-3 ”射线 追踪 反 演 计算 

射线 追踪 反 演 计算 就 是 根据 地 面 测量 的 折射 或 反射 走时 ， 利 
用 射线 追踪 方法 去 计算 地 下 地 震 界面 及 速度 分 布 有 关 人 参数 。 由 于 
反 演 中 计算 理论 走时 不 是 用 解析 方法 ， 而 是 一 个 追踪 过 程 ， 因 此 
我 们 称 为 射线 追踪 反 演 。 

本 章 采 用 地 球 物 理 反 演 中 比较 有 效 的 阻尼 最 小 二 乘法 。 并 考 
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图 10-2-12 均匀 介质 中 平缓 起 伏 界 面 的 时 距 曲 线 和 射线 分 布 图 


алқа 


b ,射线 分 布 图 
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匀 介 质 中 反射 波 和 回 折 波 时 距 曲 线 和 射线 分 布 图 


5) 


图 10-2-13 ЕЈ 


b .射线 分 布 图 


2a. 时 距 曲 线 图 ; 
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ВНИИ ЕЕ, 对 不 同 的 反 演 参数 
分 别 给 不 同 的 初始 阻尼 系数 。 在 多 层 介质 中 ， 下 层 的 走时 要 受 上 
面 各 层 界面 和 速度 分 部 的 影响 ， 因 此 一 般 是 由 上 而 下 分 层 反 演 。 
有 关 阻 尼 最 小 二 乘法 的 原理 已 在 前 面 讨论 过 了 ， 现 仅 就 射线 追 路 
反 演 中 有 关 问题 讨论 如 下 。 | 

根据 实测 十 轩 曲线 的 特点 合理 过 选择 反 演 参数 很 重要 ， 它 不 
但 影响 到 收敛 的 速度 ， 而 且 影 响 到 是 否 能 收敛 的 问题 。 例 如 把 一 
个 本 来 是 水 平常 速 层 的 情况 ， 误 作 为 一 个 上 凸 或 下 四 的 界面 来 进 

FRN, 那么 反 演 参数 由 两 个 一 下 就 增加 到 八 个 ,这 会 大 大 增加 
жақы 反之， 如果 把 本 来 是 一 个 上 凸 界 夯 误 作为 水 平 
层 玉 进行 反 演 。 那 么 会 发 生 不 收 化 而 使 计算 失败 。 

除了 应 当 合 理 地 选择 反 演 参数 分 ， 还 应 十 分 重视 反 演 参数 初 
值 的 选择 , 它 不 但 影响 到 收 倒 妆 速度 ， 而 且 关系 到 是 否 会 形成 假 收 
人 敏 的 问题 。 一 般 说 来 ， 在 极 小 点 附近 Фф ty 264818 ТІ 
面 ,当初 值 取得 靠近 极 小 点 时 ,收敛 较 快 。 当 初 信 取得 远离 极 小 所 
时 ， 函数 等 值 面 一 般 变 得 比较 复杂 ， 特 别 是 当 等 值 面 拉 长 和 弯 
曲 时 ， 收 敛 速度 变 慢 。 阻 尼 最 小 二 乘法 一 般 只 适 于 6 函数 是 单 极 ҙ 
值 的 情况 ， 而 实际 问题 中 的 ó 函数 等 值 面 比 较 复杂 ， 可 能 出 现 多 
个 极 小 点 ,因此 初 值 给 得 不 当 , 不 一 定 能 收敛 到 真正 的 极 小 点 ， 造 
成 假 收敛 ， 得 到 错误 的 结果 。 

反 演 的 多 解 性 降低 了 反 演 结果 的 可 靠 性 和 实用 价值 。 数 学 技 
巧 不 能 弥补 地 球 物 理 测量 的 信息 不 足 ， 只 有 设法 补充 信息 ， 方 法 
之 一 就 是 在 反 演 时 加 入 约束 条 件 。 约 束 的 方法 很 多 ， 本 程序 采 
用 了 区 间 约 束 、 特 定 约束 ， 界 面 不 能 交叉 等 约束 条 件 。 区 间 约 东 
”就 把 反 演 参数 的 变化 范围 限制 在 某 个 区 闻 之 内 ， 即 求 出 的 改正 向 
量 加 到 对 应 反 演 参数 上 ， 如 果 某 个 参数 超过 约束 区 间 则 不 加 对 应 
的 改正 向 量 ， 使 参数 始终 在 约束 区 间 内 变化 。 特 定 约束 是 措 把 
某 些 通过 其 它 手段 得 到 的 比较 可 靠 的 参数 ( 例如 通过 钻 孔 得 到 的 
界面 深度 ) 不 参加 反 演 。 
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射线 追踪 反 演 参数 的 权重 不 一 样 ， 每 次 选 代 的 修改 量 要 求 不 
同 ， 对 不 同 的 参数 给 以 不 同 的 初始 阻尼 较为 合适 。 这 样 会 加 快 收 
敏 速度 ， 并 且 使 反 演 结果 比较 合理 。 

反 演 参数 之 间 的 量 纲 和 非 线 性 程度 不 一 样 ，Jacobi 矩阵 偏 
导数 的 增 量 值 也 不 能 取 同 一 个 值 。 例 如 将 偏 导 数 增 景 统一 取 为 
10-5， 在 有 些 情况 下 对 界面 参数 Xox; 是 合适 的 ， 但 对 界面 参数 
ва 就 不 合适 ， 常 常 出 现 机 器 零 而 使 运算 滋 出 。 

上 面 分 别 对 反 演 参数 及 其 初 值 、 约 束 条 件 、 阻 尼 系 数 进行 了 

粗略 的 讨论 ， 它 们 之 间 并 不 是 孤立 和 的， 而 是 相互 制约 、 彼 此 影响 
的 。 某 个 参数 不 参加 反 演 ， 等 效 于 阻尼 系数 取 无 穷 大 ， 如果 取 的 
初 值 离 真 值 不 太 远 ， 那 么 约束 区 间 应 取得 比较 小 。 总 之 应 当 按照 
实测 时 距 曲 线 的 特点 以 及 已 经 掌握 的 地 下 构造 的 情况 ,综合 分 析 ， 
统筹 考虑 反 演 参 数 、 初 值 、 约 束 条 件 、 阻 尼 系 数 等 。 
”图 10-3-1 是 利用 约束 阻尼 最 小 二 乘法 编写 的 射线 追踪 反 演 
程序 将 华北 某 地 区 人 工地 震 前 面 实测 反射 波 走时 资料 作 常 速 弯 
曲 界面 反 演 的 例子 。 设 坐标 系 的 原点 位 于 炮 点 。 上 上 图 是 实测 走时 
与 理论 走时 的 拟 合 情 况 图 ， 带 点 的 实 线 是 实测 走时 曲 Ж, 不 带 
点 的 实 线 是 理论 走时 曲线 。 下 图 是 反 演 后 的 速度 和 界面 情况 
图 。 第 一 个 界面 是 康 氏 界面 ， 记 为 C1!， 在 离开 炮 点 约 10 一 20 А 
里 的 塌方 缓 慢 下 四， 第 二 个 界面 是 玄武 岩层 内 的 一 个 反射 界面 ， 
在 离 炮 点 约 10 公 里 的 地 方 缓慢 下 倾 ， 第 三 个 界面 是 莫 雷 界面 ， 在 
离开 约 40 公 里 的 地 方 逐 渐 下 倾 。 


$ 10-4 射线 追踪 反 演 初 值 的 确定 


上 一 节 讨 论 了 初 值 的 好 坏 对 射线 追踪 反 演 结果 影响 很 大 。 一 
般 说 来 ， 用 椭圆 法 或 时 间 场 的 反 演 结果 作为 射线 追踪 反 演 的 初 值 
效果 较 好 。 本 节 将 介绍 三 圆 法 及 时 间 场 法 反 演 ， 以 及 如 何 利用 
它们 的 反 演 结果 作为 射线 追踪 反 演 的 初 值 进 一 步 反 演 ， 以 获得 符 
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合 客观 实际 的 反 演 结果 。 . 
(一 ) 椭圆 法 反 演 
顶 圆 法 反 演 是 根据 在 均匀 介质 中 以 炮 反 和 测 反 分 别 作为 椭圆 
的 两 个 焦点 ， 则 反射 点 必 在 其 权 圆 上 的 原理 (参看 图 10-4-1)， 求 . 
出 所 有 测 点 对 应 的 椭圆 ， 然 后 计算 出 这 些 椭圆 艇 的 包 络 线 ， 该 包 
络 线 中 为 所 求 的 界面 。 
第 i 个 测 点 的 椭圆 方程 为 








图 10-4-1 АМЕР 


ai bi 
RP Lis G o А, ЖЯ ИН E E, a ;= 去 Vti， 
tR i AADS VERSER, M А-Т? ЖЕ 


ми 
% ERE, ED у= ХУУАҒ.-АБ/ tr 3 
- i=l 


МАЛА; b = ai- Li., 

НІҢ ЖЕНУ tu ЖАНТ bl ЕЖ: 求 出 相 邻 两 个 椭圆 的 公 切 
线 ， 然 后 各 个 切 扩 用 样 条 函数 连接 起 来 。 

用 计算 机 求 公 绿 线 有 好 几 种 方法 ， 下 面 仅 介绍 一 种 常用 的 方 
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3 ЖЖ, 


нана ааа ы 
看 图 10-4~1) 


ч 


-(27;.1-24/(1,;.4-1,0 


4 KZ>0 W, £ SIGN = -1; `*4K<0 BJ, $ SIGN = 1 
инжі АННЕ 1+1 个 椭圆 的 切线 斜率 Кі: ЖІК. 1; 


bi (X: — L; ) 
aiv al (ХЕ Li)? 
Ki.1=- bi i(X:i i Li) ` 
| 15701, - (X: í Li 192 
АН. Х: = Li + АХ+т*51СМ (т=0,1,2, ,n) 
Xi 1= Li., ТАХ.К*51СМ (к=0,1,2,-`,п) 
= V- (X; Г) аі: (af - L$) 
Zias МС (Хе 1- L: 1)2/o Delai 1 LÀ 14) 
AX = Li/n 


m 每 增加 一 个 步 距 ， ко 到 п 循环 一 次 。 

B |K- К: | Са (为 所 取 的 精度 ， 一般 取 0.01) 则 认为 第 
i 个 椭 立 与 第 i+1 НЫНА, ЖАМ ЖЕУ И, 
ЖАЛАҚЫ (Хе, Zi) 和 (Xi 1, 2: .1)。 用 样 条 曲线 (二 次 
或 三 次 ) 把 这 些 切 点 连接 起 来 ， 即 得 到 记 求 作 的 反射 界面 。 
前面 已 讲 过 ， 对 于 反 滨 用 反正 切 函 数 表 示 的 多 项 式 来 描述 
界面 较 好 。 下 面 简 述 从 求 作 的 样 条 曲线 表示 的 界面 如 何 用 计算 机 
确定 。 Я МЕ БИЙ ЭЯ ВИЗ 看 图 
12-4-2), 

(1) НТУУ Ша: = Ki ,2。 

(2) 划分 反正 切 曲线 段 。 当 | Ki -K| >e 就 分 成 一 个 反正 切 
曲线 段 ,Kin 表 示 第 j REDRE m WA PHRA eK 
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К: = — 


示 分 段 精度 。 

(3) 计算 第 j 段 反正 ' 
切 曲 段 的 落差 AZ 和 中 
ДЫН Хе; В 95 ј 段 反正 





切 曲 斜率 最 大 的 两 点 为 А 
MB ,坐标 分 别 为 (Xi4， 
2; 0» ж» Zin), ЖЖ 示 | 
0» ОО», Zin), ЕЖ 图 10-4-2 ЖЕР ОВА 
AZ; = Zir — ра 


Xo; =X;a +t (Хув X; A)/2 
(4) ИЖ Бал ЖЕНЕ в), ВЕЛ hik Sy 
应 的 Xo Mb; = |X: -Xaoso 
(=) 时 间 场 法 反 演 
根据 反射 界面 上 入 射 波 等 于 时 线 与 反射 波 等 时 线 相等 的 原 


理 ， 分 别 求 出 入 射 波 等 时 线 和 反射 波 等 时 线 ， 然 后 计算 它们 的 交 
点 ， 再 把 这 些 交点 用 样 条 函数 连结 起 来 ， 便 得 到 所 要 求 的 地 下 界 


H o 


时 间 场 法 的 具体 计算 осуз уз yn = 
УЖАТ: р Б / d ) “ұсы М Ж. 

(1) 计算 反射 波 等 时 OA XKAN 
线 。 在 均匀 介质 中 , ИНЖ 一 ”并 大 六 六 一 
ЖЕН ti 等 时 线 的 方法 antya Ху у \ 


1 一 一 一 反射 波 等 时 线 


是 : УЖ СЖ 


| 
| 
EH ABRASA) 1， Е | 
ЖХіз2 е» X s-i 为 网 心 ， 图 10-4-3 时 间 场 法 反 演 示意 图 


以 Vti t:i), У(Е:.2 tis a V(ta-:;:—t;) 为 半径 作 
п, Е АРЕ К E t 时 刻 的 波 前 。 包 络 线 可 以 这 样 来 
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作 ; 计算 相 邻 两 圆 的 公 切 线 ， 各 个 切 点 用 样 条 曲线 连接 起 来 ， 近 
似 地 认为 是 诸 圆 的 包 络 
线 。 相 邻 两 贺 公 切线 切 点 
的 坐标 可 按 下 式 计算 ( 参 
看 图 10-4-4): 








> де: __ Аз X; C = X 


10-4-4 计算 相依 两 圆 的 公司 线 
X; = X; — Rising; 
Z;= R ;*cosa ; 
X; 1 =X:.5i—R:'i sina; 
Zi í =R; ісова; 
式 中 а: = авс СВ 1 — R)/(X;,i — Xi)) 
(2) 计算 t ;时 刻 入 身 波 的 等 时 线 。 在 均匀 介质 中 ， 它 是 以 炮 
反 为 圆心 ，R= Vt ; 为 半径 的 圆 。 | | 
(3) И t: ЫЛ ЛЯ ЗН F; 2 PH АУРУ, УШ 
这 些 交 点 用 样 条 曲线 连结 起 来 ， 即 为 所 求 的 反射 界面 。 | 
用 时 间 场 法 反 演 得 到 的 反射 界面 作为 射线 追踪 反 演 的 初 值 ， 
计算 反正 切 函 数 多 项 式 的 各 个 参数 与 椭圆 法 相同 。 | 


510-5 ”射线 追踪 正 . 反 演 计算 程序 


(一 ) 程 J 功能 
Е: 用 射线 追踪 计算 均匀 或 非 均匀 介质 中 任意 界面 的 
反射 波 、 首 波 和 回 拆 波 走时 ， 可 以 用 绘图 机 自动 绘 出 射线 分 布 图 
жын, 
反 演 部 分 : 用 约束 阻尼 最 小 二 乘法 根据 反射 波 或 首 波 走时 反 
演 地 壳 和 上 地 慢 的 速度 分 布 和 界面 起 伏 情况 。 在 走时 实际 上 是 单 
值 ， 模 型 初 值 、 约 束 条 件 、 初 始 阻尼 系数 都 给 得 比较 合理 的 条 件 
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下 能 获得 较 好 的 结果 。 即 可 以 由 上 而 下 依次 先进 行 折 射 波 后 进行 
有 反射 波 反 演 ， 也 可 以 对 某 一 层 或 某 几 层 的 某 几 个 参数 进行 折射 波 
或 反射 波 反 演 。 用 绘图 机 绘 出 反 演 结 果 ， 即 地 下 界面 起 伏 情 况 和 
速度 分 布 ， 理 论 走时 与 实测 走时 的 拟 合 情况 。 
(2) 主要 标识 符 
MTAN 一 -界面 形 如 反正 切 曲 线 的 个 数 。 
MG 一 一 反 演 首 波 的 层 数 (只 作 正 演 时 为 模型 的 层 数 )。 
MF 一 -- 反 演 反 射 波 的 层 数 (只 作 正 演 时 为 零 )。 = 
M 一 一 测 点 总 数 ( 只 作 正 演 时 为 零 ) 。 
MZ 一 一 接收 点 总 数 (只 作 正 演 时 为 零 )。 
20 ЖЕНЕ КА, HBE ATERRAR AE 
ТО 方向 。 
|= 1 炮 点 不 在 绝对 坐标 系 的 原点 ， 或 搂 收 点 不 在 坐标 系 
的 正方 向 。 
[<0 яна. 
МЕ; =0 只 反 演 反射 波 ， 
\>0 ЖАНМЕН, Миа. 
了 = 0 输出 是 折合 走时 。 
kof) 输出 是 一 般 走时 。 
KX 护 合 速度 。 
ку{ = 0 不 输入 约束 条 件数 组 (此 时 利用 程序 中 的 束 条 件 )。 
1 输入 约束 条 件 。 
(= 0 不 输入 阻尼 系数 数组 (此 时 利用 程序 中 给 的 阻尼 系 
数 )。 
"1 аржаан, 
(= 0 不 输入 Јасорі 矩阵 偏 导数 增 量 数组 〈 此 时 利用 程 _ 
KJ 1 序 中 给 的 数值 )。 | 
\ =1 ЖА Jacobi ЭЁ ОМЕН. 
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=1 打印 详细 的 中 间 计 算 结果 。 

=5 打印 反 演 计算 中 间 结 果 。 

0 不 画 射线 图 。 

1 画 射 线 图 (此 时 KZ 必须 填 1 )。 

0 ВЕЩ. 

1 MEHRU KZ 必须 填 1 )。 

0 不 画 反 演 结果 图 。 

1 画 反 演 结 果 图 (此 时 KZ 必须 填 0 ) 。 
KSP 一 一 最 大 迭代 次 数 。 

TAPE 一 一 希望 射线 到 达 地 面 的 间距 。 


| =0 不 打印 中 间 计 算 结果 。 
КІ 


KER Í 
г = 
кет} 


КЕ 17 
IN = 





{= 0 作 反 演 。 
к REER. 
NNS 一 一 射线 的 条 数 ( 最 好 取 NNS = (ХМАХВ - ХМІХВ)/ 
(2*TAFE) +1). 
GLX— НН ВЕ (ст), В 
LX——- 横 铀 的 刻度 间隔 数 。 
GLY 一 一 射线 图 纵 轴 的 长 度 (ст). 反 演 时 为 地 下 界面 图 
LY 一 一 纵 轴 的 刻度 间隔 数 对 应 的 图 框 简 变 。 
XMINR 一 一 坐标 原点 的 横 坐 标 值 。 | 
XMAXR 一 一 横 坐 祈 的 景 大 值 。 | 
тик йине. | 
YMAKXR 一 一 纵 坐 谎 的 最 大 值 。 
GLXT 一 一 时 中 图 横 轴 的 长 度 (ст). 
LXT 一 一 模 轴 刻度 的 间隔 数 。 = 
GLYT 一 一 时 距 图 纵 轴 的 长 度 (cm)。 | ЕЕ 
LYT 一 一 纵 轴 刻 度 的 间隔 数 。 ”| 全 情况 图 对 应 的 图 杠 jH 
XMINT 一 一 华 标 原 扩 的 横 坐 标 值 。 简 变 。 10 





XMAXT 一 一 横 坐 标的 最 大 值 。 
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YMINT 一 一 坐标 原点 的 纵 坐 标 值 。 | 
YMAXT 一 一 纵 坐 标 最 大 值 。 ) 
5Н1-— АЖА AB PF o 
=1 WX ZEE In]. 
sn2{ - -1 测 点 在 反方 向 。 
АС(ММ1, MAC) -模型 参数 数组 。 
MM1-- 一 界面 个 数 。 
MAC- -一 -参数 个 数 ,，MAC= MTAN 尖 3+7。 
AC(K+1,1) -第 K 个 界面 的 下 速度 。 
АС(К+1,2) “~ 第 K+1 个 界面 的 上 速度 。 
AC(K+1,3) 第 K+1 个 界面 的 下 速度 。 
AC(K+1,4) 5 КРАЛЕВИ. 
АС(К + 1,5) 一 一 第 天 层 的 纵向 速度 梯度 。 
AC(K+1,6)- 一 绝对 坐标 系 原点 到 第 玉 +1 个 内 面 的 距离 。 
AC(K+1,7) 一 一 第 K+1 个 界面 的 斜率 。 
AC(K+1，3 六 J+5)- 第 K+] RERS I JEU M 
ЛЯ, №. 
AC(K+1,3% 1+6) 第 KE+1l 个 界面 的 第 [个 肥 正 切 曲 
| 线 中 点 横 坐 标 。 
AC(K+1, 3% 1+7) K+1 个 界面 的 第 1 个 反正 切 曲 线 的 
四 分 之 一 高 作 顶 线 的 垂 线 ， 该 反正 切 曲 线 中 点 到 此 垂 线 的 距离 。 
加 果 炮 点 不 在 坐标 原 尽 ,模型 参数 数组 为 ACl MMI MAC), 
名 参数 的 意义 与 AC(MM1，MAC) 相同 。 
IH(MD) 各 层 接收 点 号 数组 。MD 为 数组 元 素 个 数 ，MD 
=MG+MF+MZ, Z 数组 的 数据 填写 方法 是 由 上 而 下 先 折射 波 
后 反射 波 依次 填写 各 层 走时 接收 点 总 数 ， шанды ы 
射 波 填写 各 层 走时 接收 点 号 。 
PGJ(M) 炮 检 距 数 组 。M 天 示 测 点 个 数 ， 该 数组 按 炮 检 距 
的 大 小 ， 由 小 到 大 填写 。 
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IX(MMi, МАХ) 反 演 参数 信息 数组 。MM1 Жк ИХ 
数 ，MAX 等 于 反 演 参 数 加 一 。 该 数组 的 第 一 列 分 别 为 各 层 反 演 
参数 的 总 个 数 。 其 它 各 列 元 素 分 别 与 参数 数组 元 素 对 应 ， 某 个 参 
Жен, АННО. 
例如 某 地 壳 模 型 有 三 层 ， 地 面 水 平 ， 第 一 层 界 面 是 由 两 个 反 

正切 曲线 构成 的 隆起 界面 ， 速 度 随 深度 线性 变化 ， 第 二 和 第 三 层 
的 界面 都 是 形 如 一 个 反正 切 曲线 的 界面 ， 均 为 常 速 层 。 假 设 让 所 
有 的 参数 都 参加 反 演 ， 显 然 第 一 层 反 演 人 参数 有 9 个 ， 第 二 层 和 第 
兰 屋 有 5 个 。 如 果 只 作 反 射 波 反 演 ， 则 反 演 参数 数组 应 为 : 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

9, 1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 

5» 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 

5, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0 


AY1(MM1, МАС) 约束 条 件数 组 下 界 。 

АҮ2(ММ1, МАС) 约束 条 件数 组 上 界 。 

DDQ(MAC) 阻尼 系数 初 值 数组 。 

XDJ(MAC) Jacobi 矩阵 偏 导 数 自 变 量 增 量 数组 。 上 面 各 - 
数组 的 数组 元 素 大 小 MM1、MAC 与 参数 数组 AC 中 的 数组 元 素 
大 小 MM1、MAC 相 同 。. 


(=) 各 子 程序 功能 及 虚 元 说 明 
1. FIGR: 绘 射线 图 。 
2。FIGZ: 绘 界面 图 。 
3. FIGT(TX, NNF, K); 绘 反 射流 、 折 射 波 时 距 曲 线 。 
TX 一 一 二 维 数 组 ， 存 放 时 距 数 值 。 
NNE- 一 -实际 计算 反射 波 或 首 波 的 射线 条 数 。 
к 3% K B. 
4. FIGTR(TX, NNF, K): 绘 回 折 波 时 距 曲 线 。 
TX 一 一 二 维 数 组 ， 存 放 回 扩 波 时 距 数 值 。 
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NNE … -实际 计算 回 折 波 的 射线 条 数 。 

5. ЕСТ1(РХ, РТ, NNF, K), 绘 实测 走时 与 理论 走时 的 
拟 合 情况 图 。 | 

РХ-- 一 维 数组 ， 存 放炮 检 中 数值 。 

РТ 一 维 数 组 ， 存 放 走 时 

NNF —РХ, PT 数组 元 素 的 个 数 。 

6. ВАН (GLX, IX, GLY, ІҮ, GH, КОМ, ХМІМ, 
ХМАХ. ҮМІМ, УМАХ). 绘 各 种 图 形 的 坐标 系 。 

GLX --- 横 坐标 轴 的 长 度 (cm). 

IX 一 一 模 坐 标 轴 的 刻度 间隔 数 。 

GLY 一 一 纵 坐 标 轴 的 长 度 (ст). 

ту ЖЕН НІНЕН МА. 

GH- 一 数字 的 高 度 。 | 

KOM АН А77 а], ШЕЖО, WFA.: 

XMIN 一 -一 坐标 原 扩 的 横 坐 标 数值 。 

XMAX 横 坐 标 端 点 的 数值 。 

YMIN Ж АЈА ИН 

УМАХ—— А йй лә ВУЧЕ o 

7. МОУЕСМІ, ТХ, TX1): ЖАТА ЛЕ ЕЕ ЇН ЖЕЕ 
绝对 坐标 系 的 时 距 值 。 . 

N1 “计算 的 射线 条 数 。 

ТХ -二 维 数 弓 ”存放 炮 点 坐标 系 的 时 距 值 。 

TX1 一 一 二 维 数 组 ， 存 放 绝 对 坐标 系 的 时 距 值 。 

8. 7(Х, K), 计算 界面 的 纵 坐 标 。 

X АЖИН. 

K 一 一 第 KK 层 。 

9. XY(C), 计算 每 跨 一 角度 步 长 C， 射 线 端 点 的 坐标 和 和 走 


C 一 -角度 步 长 。 


10. ЗЕАВС($1, 52). 二 分 法 求 界面 交点 。 
.Sl1- -一 ЖИН. 
S2 … 射线 前 进 的 步 长 。 
1. ANGLE(K); 计算 射线 与 界面 交点 处 的 界面 倾角 、 反 
HA, ЖЯ. ПА. НАУКАН ЗЕ. 
K- 一 一 第 K Jš, 
12. TRACE(K) 在 第 K 层 内 具体 地 进行 射线 追踪 ， 计 算 射 
线 的 坐标 和 走时 。 
K- ЖК 2. 
13. ОРТХО(М№ъ№І, ММ, ТХ, ТХІ) 计算 目的 层 的 上 行 射 
线 。 
N1- 计算 第 Nl 条 射线 。 
NNI ”存放 于 数组 TX、TX1l 的 第 NN1 条 射线 。 
TX 二 维 数组 ， 存 放炮 点 坐标 系 的 时 距 值 。 
TX1 -二 维 数组 ， 存 放 绝 对 坐标 系 的 时 距 值 。 
14. ЮРТХ2 (М1, Мм, TX, TX1) #6 НИЕ Ема 
的 时 距 信 ， 各 虚 元 的 意义 同 UPTXTO。 
15. 2АН(М, X, Т, U, ТЕ) ЖЕЛАЯ. 
N 一 一 插值 结 点 的 个 数 。 
Х-Н, ЖМ 4388482554. 
T 一 一 一 维 数组 ， 存 放 N 个 搬 值 结 点 的 函数 值 。 


ыы 


TF - 插值 结果 。 
16. АО(М1, Fl, РХ, JM, TXX, TXT), 计算 测 点 的 理 
ЖЕ. 


N1 АННА. 

FT 一 一 一 维 数组 ， 存 放 测 点 理论 走时 。 
PX 一 一 一 维 数组 ， 存 放 测 点 横 坐 标 。 
ІМ ЖЖЖ. 
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TXX 一 一 一 维 数组 ， 存 放炮 检 距 。 

TXT 一 一 一 维 数组 ， 存 放 走 时 。 

17. ZYFT(PT, PX, IM) 控 制 整个 追踪 过 程 ， 计 算 理论 
走时 。 

PT 一 一 一 维 数组 ， 存 放 测 点 的 理论 走时 。 

PX 一 一 一 维 数 组 ， 存 放 测 点 的 横 坐 标 。 


IM ИУ. 
18. BCAJ (CAJ, ЕТ, ЕТО, PX, ММХ, ІМ) 求 Jacobij 
矩阵 。 


CAJ 一 一 -二 维 数 组 ， 存 放 Jacobi 矩阵 的 数值 。 

FT 一 -一 维 数 组 ， 存 放 反 演 参 数 加 上 一 个 增 量 后 计算 的 理论 
走时 。 

FTQ-- 一 一 维 数 组 ， 存 放 反 演 人 参数 不 加 增 量 计算 的 理论 走 
Ио . . 

PX 一 一 一 维 数组 ， 存 放 测 点 的 横 坐 标 。 

X -一 反 演 参数 加 1 ，Jacobi 矩阵 的 维 数 。 

19. ОЕ(ЕТ, Е, ОРТ, РТ, М) 计算 残 差 ， 残 差 平方 和 
以 及 平均 绝对 误差 。 | 

FT 一 一 一 维 数 组 ， 存 放 理 论 走 时 。 

F -一 一 残 差 平方 和 。 

от Coma 存放 残 差 。 

一 一 维 数组 ， 存 放 实 测 走 时 。 

ІМ 一 一 测 点 个 数 。 

20. OUTZ 防止 界面 交叉 。 

21. МАОТ(ЕТ, ЕТО, PX, PT, DPT, IM, DDP, R1, 
XO, X, AW, NX, AZE, NNX, CAJ) 用 理论 走时 拟 合 实 
测 走 时 。 

ЕТ 一 一 维 数组 ， 存 放 反 演 参 数 加 上 改正 癌 量 后 计算 的 走 
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时 。 

FTO ”一 维 数组 ， 存 放 友 演 参 数 笛 量 不 加 改正 向 量 计算 的 
走时 。 

PX 一 维 数 组 ， 存 放 测 点 横 坐 标 。 

рт 一 维 数 组 ， 存 放 实 测 走 时 。 

DPT ”一 维 数组 ， 存 放 残 差 。 

IM- 一 一 测 点 个 数 。 

DDP -一 维 数组 存放 的 参数 的 初始 阻尼 系数 。 

В! ЖЖ, F AZE РЕНА ЕЖЕ. 

XO 一 维 数组 ， 存 放 反 演 参数 的 数值 。 

义 一 一 一 维 数 组 ， 存 放 有 反 演 参数 加 上 改正 量 后 的 数值 。 

AW- ”一 维 数组 ， 存 放 改 正 问 量 。 

X- 一 反 演 参数 个 数 。 

АЕ МГ Е. 

NNX- 一 - 反 演 参数 加 一 。 

CAJ- Jacobi Ж, 
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(四 ) 程序 结构 、 主 程序 及 主要 子 程序 框图 


Е 


| МАОТ. 


en 


ZYET 








—— 


ГАН 


ТКАСЕ 


[Бе 


图 10-5-1 主 程序 与 子 程序 之 同 的 检 用 关系 
4039。 














АЮШ МТАМ, МС, МЕ, MZ. То. МЕ,КС. 
KX. KD, KJ, КР. KFR, КЕТ. КҒ2, КӨР, 

TAPE.NNS. GLX. LX. GLY. LY. ХМАХЕ, 
ХМІМЕ. ҰМАХЕ, YMINR. СЕХТ. LXT. 
| GLYT. ХМАХТ, ХМІМТ.ҮМАХТ, ҮМІМТ 


ТЕПЕ 
“Жөні зн? | 
[АС „ЖБЕК дс 


给 入 点 号 数组 TH 
ЭЛЕН PGJ _ 
Е ME 0° 

输入 折射 波 未 时 数组 GST 






调 于 程序 ZYFT 
进行 正 演 计算 | 













调子 程 序 MAQT ЛЕН 





输入 反对 波 走 时 数组 FST 


.调子 程序 MAQT ИБ ВНЕ 
| 
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计算 增 最 为 MI 的 上 
xz Nan] 


ДЕНШЕЛМІШЕ 


fiXZ N - 1.2; ! 





















Y0 <= Z[ [NZ 
чегі K] 


Yu ZX үп=ү/ {х7 | 
N: l.) K 11 N- Ili K i 17 








sieMI IL Ихи мего 
Mie MI + 5.5 Yel | 






Тет.,.МІ, 
81<Т. 
52е SI 


号 10-5-3 SEARC 子 程序 框图 


3. XZ(N+1.1): BNIE BT, Х20М--1,2): 第 Nd 十 1 次 追踪 的 
т, Хх Z(N+1, 3): 第 N+ 十 1 次 按 踪 和 的 走时 ， 下 辐 
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ИЛА! L | 


ПН БИШ КВ И МА: 










ЕІ. Ал 
(IEUP ,0 六 一 
ACIK. DQACK.3) AC КІ, «АСК 1.32 д 
ИЕ НТЛ ЯАР 计算 于 行 临界 角 ALP | 
4 _ 是 2 


计算 上 行 折 和 时 角 A21 | 








x Я РОЯ ИА т 
| 
| 


ik: BED: МЕК БУНЫ АНИ ba Я 


` B2] K): 第 K L f yr IA ty а ШЕ 32 Ў 


图 10-5-4 ANGLE TETEA 


642: 


AG 


— — : ЕТТІ" т САН) 
Абожи 


VXCACIKILDU — 

УФАС +1. 51 ДИР = i? | 
ЕЕЕ ит; бт) |” 
EYVHTUTH 


计算 速度 梯度 G A 





TL Yr E k RRI ЕТМ 





а На қы жататын 


o 
| 
ü 
| 





Р: 


т ОР. 


ГАНЕ s i 计算 下 行 射线 РЯ 


| 
Іі XZ 0:NN. Fir E:N- i; <0.017435% 
а 一 -一 
Jè а 4 
: 
Нее! K.N) Нед к-т») 
но) м: 



















ABS XZ!'N 1.2) H03 9.012 





调子 程序 XY C 
ИХ, } | 














计算 上 1 生 射线 


计算 下 行 射线 i 
; XZ IN: |.2) 


计算 EtN - 1: XZ'N | 








Ж110-5-5 TRACE 子 程序 框图 
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И а 














HANN. NR. ММК. I 1 Ж; 
数组 TX. TX I. ТХК, TRI. 
ALL. ALL 1 XZ. XZ K % 









E iN + 1)<0.01745? 

















首 波 上 行 


小 角度 上 行 
HIERBER | 


射线 追踪 







[ЕТИ 
射线 追 路 


ы 
w А (ММММ ? 


11 Н) Б ЕК ! L 





ІН 








к=к} 
ЕН 


“СКЕ m) 
一 元 三 点 捕 值 





图 10-5-6 ZYFT 子 程序 框图 
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将 反 演 尼 的 反 演 参数 置 入 数组 X 0 , 测 点 置 入 数 
PX (т), 走时 置 入 数组 PT (1), 反 演 参数 对 
| 应 的 阻尼 系数 十 入 数组 DDpP(TI) ` | 













用 初 秆 计算 理论 走时 FT 0 1, AHER, 
НЕ 





KFZ = 5; ОЯЯМАОТ HEMA) 
А #3 





Е ВОТ, = DDP ( I 30.5 
г. 






| новое, МУ а а | 


| | | 
. ED | 
. | — | ды 
| DDP: г) - ӘР 1961,5 
| рер: 
I 
1 
| 


















) 
= РИХТЕР ， » 1 
ГЭВ жн ЕТ: Li ЕН Е т 


ы 






БЕЗЕК ЕТЕКТІ 
—— 


fi 


IDEDe DED ~ 1 - 


(ру KSP; H 


= (Е) м В жа 
жж #YUAN SHI SHU JIU жж *—— J 始 数 据 ， 将 输 
入 的 数据 全 部 输出 。 








жж1 LAYER 米 米 一 一 第 一 层 。 | 

LITTLE ANGLE REFLECTIVE-WAVE, МІ, 13 一 一 小 
角度 反射 波 射线 条 数 。 

REFLECTIVE- -WAVE- 反射 波 时 距 数值 。 

REFRACTIVE-WAVE 一 一 折射 波 时 距 数 什 。 

DIVING-WAVE 一 一 同 折 波 时 距 数 值 。 

米 米 米 END 米 米 米 一 一 计算 结束 标志 。 

жж * ZHE SE ВОж%: УДА о 

жж Ж БАМ ЗЕ BO 米 米 米 - - 反 演 反射 波 标 志 。 

ж ж МО NLAYER# #— Ë N 层 反 演 结果 标志 。 

Ас & N 层 反 演 后 的 参数 在 绝对 坐标 系 的 值 。 

РХ Иж. 

PT 一 一 实测 走时 。 

РТО НИВУ. 

DPT 一 一 实测 走时 与 理论 走时 之 差 。 

DEDI - ЖҚЖ. 

5— МХА. 

MAX 一 一 DPT 的 最 大 值 点 号 。 

BS 一 DPT 的 最 大 值 。 

米 米 米 米 ZONG JE KO# ж жы ДЕЯ, 

о жЕМр ж ж k НЕ. 

ШЕ KI=5, 还 输出 下 列 标志 : 

СНЕ LIAN 一 实测 走时 值 。 

AC 一 变换 到 炮 点 为 坐标 系 原点 后 的 参数 。 
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FTO 一 一 初始 理论 走时 。 
X0 一 -参加 反 演 的 参数 值 。 Е 
_ CAT 一 一 Jacobi Е. = 
T AZE ВИШ, 
L-AZE — МАНН ЖЕ. 


AW. ЖЕЖ. 


ЕТОғ2% 一 模 


型 人 参数 加 上 改正 向 量 后 计算 的 理论 走时 。 


SG- 平均 绝对 误差 。 


СӘРІ 


该 程序 是 用 FORTRAN-IV 编写 的 ,在 SPERRY UNIVAC 


1100/10 计算 机 上 进行 了 试 算 ， 得 到 了 初步 结果 。 
с MAINPROGRAM 
с | 


DIMENSION ЕТ(100), ЕТО(100), РХ(100),РТ(109), 
DPT(100), DDP(50), 
R1(50) , XO(50),X(50), AZE(50, 50), CAJ (50, 50), 


AW (50) 
СОММОМ 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 

RO, R, 
COMMON 


/КЕ/ KER, KFT, KFZ 

/К71/ KC, KX, KY, KD, KJ 

/TN/ TAPE, NNS 

/ЕМ/ LG. LF, LR 

/ID/ KSP, IFL 

/ІНЕС/ IHG, IHF, ITG, ITF | 
/ҒАМ1/ М, MZG, MZF, IC, IB, МАХ 
/?АМ1/ АМ,АО, Q, DT, DV, СА, А, 
55 

/АМС1/ ALP 


COMMON /2АМ/МТАМ, ММ, ЅНІ, 5Н2, N, ММ, 


IUP, ТО, 


KI, KZ, ММ1, МАС 


HAT” 


СОММОМ/ЕАМ/КК, Ко, КО, ІМ 

COMMON/FIG/GLX, LX, GLY, LY, XMINR, XM- 
AXR, YMINR, YMAXR 

COMMON/FIG1/ GLXT, LXT,GLYT, ГУТ, ХМІМТ, 
XMAXT, YMINT, YMAXT 

COMMON /ZAC/ AC101, 50), АС(10,50), АО(10, 
50), ІХ(11, 51) 

COMMON /XZT/ Х7,(500, 3), XZO(500, 5), Х2К 
(50, 3), Е $500) 

COMMON /ЕХЕ/ ТХ(200, 2), ТХ1 (200, 2), ALL 
(200, 2))А1,1,1(200, 2), 

1 TXR(200, 2), ТХВ1(200, 2) 

COMMON /ANG/ В11(500), В12(500), В21(50) 

COMMON /5Т/ І1Н(500),РСЈ (100), GST(500), FST 
(500) 

СОММОМ/ЕУ/АУ!1(5, 21), АҮ2(5, 21), DDO(21), 
XDJ (21) 

COMMON/ZL/XZL(3) 

WRITE(6, 1) 
IFORMAT(/////, 50X, ЗН + * *, 4HYUAN, 2X, 
3HSHI, 2X, 3HSHU, 2X, 3HJIU, ЗН... ) 
READ(5, :) МТАМ, MG, МЕ, M, М7, IO, ME, 
KC, KX, КУ, KD, KJ, KI, KZ, 

IKFR, KFT, KFZ, KSP 

WRITE(6， 3)MTAN, MG, МЕ, M, MZ, IO, МЕ, 
KC, KX, KY, KD, KJ, KI, KZ, 

1КЕВ, KFT, KFZ, KSP 

3 ҒОҺМАТ(//, 5X, АНМТАМ, 12, 2X, 2HMG, 12, 
2X, 2HMF, 12, 2X, ІНМ, 13, 2X, 2НМ?, 13, 
2X, 2НІО12, 2X, 2HME, 12, 2X, 2HKC, 12, 
X, 2НКХ, I2, 2X, 2HKY, 12, 2X, 2HKD, 12, 
2X, 2НКЈ, 12, 2X, 2НКЕ, 12, 2X, 2HKZ, 12, 


4548» 


-1 
| 


10 


2х, 
ЗНКЕВ, 12, 2X, ЗНКЕТ, 12, 2X, ЗНХЕХ, 12, 
2X, ЗНК$Р, 12) | 

READ(5, °> ТАРЕ, NNS 

WRITE(6, 2) ТАРЕ, NNS 

2ҒОВМАТ(//, 5X, 4HTAPE, F6.3, 2X, 3HNNS, 12) 

READ(5, +) GLX, LX, GLY, LY, XMINR, ХМА 

XR, YMINR, YMAXR 

WRITE(6， 4) GLX, LX, GLY, LY, XMINR, 
XMAXR, YMINR, YMAXR 

FORMAT(//, 5Х, 3HGLX, F8.3, 2Х, 2HLX, 12, 
2X, 3HGLY, Е8.3, 2X, 2HLY, 12, 2X 
5HXMINR F8. 3, 2X, 5HXM AXR, F8. 3, 2X, 
5НҮМІМЕ, F8, 3, 2X, БНУМАХЬ, Е8. 3) 

READ(5, °) GLXT, LXT, GLYT, ІҮТ,ХМІМТ, X- 

MAXT, YMINT, YMAXT | 

WRITE(6，5) GLXT, LXT, GLYT, ТУТ, ХМІМТ, 
ХМАХТ, УМИМТ, УМАХТ 

FORMAT(//, 5X, 4HGLXT, Е7.3, 2X, 3HLXT, 
12, 2X, 4HGLYT, Е7,3, 2X, 3HLYT, 12, 
2X, 5HXMINT, F7.3,2X, 5НХМАХТ, Е7.3, 2X, 
5НҮМІМТ, Е7.3, 2X, БНУМАХТ, F7.3) 

MM=MG+MF 

ММ1=ММ+1 

МАС = 3» МТАМ + 

МАХ = МАС + 

МЕІ= МО +1 

мМр= М2+ ММ 

ІНС = 0 

ІНЕ-0 

ІТС =0 

ІТЕ-0 
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DO 1710-1, ММ! 
DO 17 J0=1, МАС 
АС1(10, Ј0)=0,0 
АС GIO, JO) =0.0 
17 Ао (10, Ј0) =0,0 
DO 1910-1, ММ! 
DO 19 Ј0=1, МАХ 
19 ІХ (10, Ј0) =0,0 
CALL РІ,О75(0,0,0,0,9) 
CALL РІ,О7(0,5,0,5,-3) 
28 IF(IO.NE.0)GO ТО 33) | 
ВЕАО(5, +) ((AC(I, J), J = МАС), 1=1, ММ1; 
| WRITE(6, 31) 
31 FORMAT(//, 5X, 2HAC ) 
DO 32 І-1, MMi 
32 WRITE(6, 23) (АСС, J), J=1, МАС) 
GO TO 44 
33 READG, • ) SH1, SH2 
22 WRITE(6, 7) SH1, SH2 
7 FORMAT(//, 5X, 3HSH1, Е10,3» 5X, 3Н5Н2, F10.3) 
~ READ(5, *) KAC1G, J), 7-1, MAC), Із1, MMD 
WRITE(6，35) ` 
35 БЕОКМАТ(//, 5X, ЗНАС1) 
ро 34 І=1, MM1 
34 WRITE(6, 23) (АСИ, 3), J =1, МАС) 
ро 211 1=1, ММ! 
РО 211 J =1, 5 
211 АСИ, Ј) = АСИЛ, J) 
рО 215 1=1, MM1 
АСИ, 6) = АСІ(І, 6) + АСІ(І, 7)“5Н1 
АС(1, 7) = AC1(I, 7) 
DO 215 7-1, МТАМ 


650» 


213 
215 


44 


61 


12 


11 


AC(I, 3% 7+5) = АСТ, 3% 7+5) 
IF(AC1(I, 3* J +5) ,EQ.0.0.) GO ТО 213 
АССА, 3%1-6)-АСІС, 3% 1+6) - SH1 
GO TO 215 

АС(1,3 J +6) = AC1(I, 3% J +6) 
АСС, 3*1+7) = AC1(I, 3% J +7) 
IF(SH2.GE.0.0) GO TO 44 
GLX = -GLX ` | 
ХМІМЕ--ХМІМЕ 
ХМАХК--ХМАХЕ 

GLXT= -GLXT 

XMINT= - XMINT 

ХМАХТ= -ХМАХТ 

РО 611=1, ММ1 

РО 61 J =1, МАС 

АО, J)= АСА, J) 

IF(KZ.NE,1) СО ТО 12 

КО-ММ 

Ко = ММІ 

LG=1 

LF=1 

LR=1 

CALL ZYFT(FTO, PX, 20) 

GO TO 73 | 

ЕЕАр(5 。 ЯНА), 1=1, MD) 
УУВТТЕ(6, 9) 

ЕОВМАТ(//, 5X, 2НІН ) 
WRITE(6，11) НА), І-1, MD) 
ЕОЕМАТ(2016) 

MZG=0 

MZF=0 

ТЕ(МЕ.ЕО.0) GO TO 14 
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DO 13 І-1, МО 
13 MZG=MZG+IH(I 
14 IF(ME.LT.0 GO ТО 16 
DO 15 I=MF1, ММ 
15 MZF=MZF+IH(I) 
16 IHG= ММ 
ІНЕ= ММ + MZG 
ВЕАр(5, е >) (РОЈ(1), І-1, М) 
WRITE(6，21) 
21 FORMAT(//，5X，3HPGJ ) 
WRITE(6，23) (РОТА), Т=1, М) 
23 FORMAT(12F10.3) 
КЕАО(5, •)((ІХ(І, J), 7-1, МАХ), Ізі, MM1) 
WRITE(6，38) 
38 FORMAT(//, 5X, 2HIX) 
40 FORMAT(24I5) 
DO 80 1-1, MM1 
80 WRITE(6, 40) (IX(I, J), J =1, MAX) 
IF(KQY.E.1) GO ТО 46 
DO 39 І-1, MMI 
AY1(I, 1)=2.0 
AY1(I, 2) =2.0 | e 
AY1(I, 3)=2,0 
AY1(I, 4)=0.00001 
AY1(I, 5) =0,00001 
AY1(I, 6)= 1.0 . 
AY1(I, 7)=0.01745 
AY2(I，1) = 10。0 
AY2(I，2) = 10.0 
AY2(I, 3)-10,0 
AY2(I, 4)=1.0 
_ АУ2(Т, 5)=1.0 


552: 





39 


46 


41 


82 


43 


84 
45 


AY2(I, 6) =40.0 

АҮ2(1, 7) =0.5 

РО 39 2-1, МТАМ 

AY1(I, 3. +5) =0.1 

АҮ1(1, 3* 1+6) = - 500.0 

АҮ1(1, 3* 1+7) = 0,1 

АҮ2(1, 3» 1+5) =10.0 

АҮ2(1, 3% 1+6) = 500.0 

АҰ2(1, 3% 1+7) =50.0 

СО ТО 45 

ВЕАО(5, *) ((AY1(I, J), J =1, МАС), І=1, MM1) 
WRITE(6，41) 

FORMAT(//, 5X, 3HAYI) 

DO 82 I=1, MM1 

WRITE(6, 23) (АҮ1(1, J), J=1, МАС) 
READ(5, *) ((AY2(I, J), J=1, MAC), I=1, ММП 
WRITE(6, 43) . 
ЕОВМАТ(//, 5Х, ЗНАҮ2) 

DO 84 1=1, ММ! 

WRITE(6, 23) (AY2(I, J), 1-1, МАС) 
ТЕ(КО.ЕО.1) СО ТО 48 

D=1.0 

DDO(1) = D 


DDO(2)=D 


DDO(3) =D 
DDO(4)=D * 10.0 
DDO(5)= D + 20,0 
220(0=р ` 
DDO(7) = 210.0 

DO 47 J =1, MTAN 
рроО(3•7 +5) =D 2.0 
ррО(3•5 +6) = е2,0 
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47 
48 
49 


51 


53 
55 


57 


64 


25 


DDO(3e J+7)= D e10,0 

GO TO 51 | 

READ(5, ») (DDO(D), I=1, МАС) 
WRITE(6, 49) 

FORMAT(//, 5Х, ЗНрро) 

WRITE(6, 23) (DDO(I), 1=1, MAC) 
IF(KJ.EQ.1) СО ТО 55 
ХО: (1) =0.1 

ХО: (2) =0.1 

ХО. (3) =0.01 


XDJ(4)=0.01 


XDJ(5)=0.01 
XDJ(6)=0.1 
XDJ(7)=0.001 

DO 53 7-1, MTAN 
XDJ(3* J +5) =0.1 
XDJ(3* 7+6) =0,1 


СО ТО 64 

ВЕАЮ(5, +) (XDJ(I), І-1, МАС) 
WRITE(6，57) | 
ЕОВМАТ(//, 5X, 3HJ DX) 
WRITE(6, 23) (ХЮЈ (1), І-1, МАС) 


БУ = СГУ +7,0 

CALL РГОТ(1.0, FY, – 3) 

ІС-ММ | 

ТЕ(МЕ.ЕО.0) СО ТО 1010 
READ(5, •) (С5Т(І), І-1, MZG) 
\ВТТЕ(6. 25) | 
FORMAT(//, 5X, 3HGST) | 
WRITE(6, 23) (GST(I), 1=1, MZG) 
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60 


63 


66 


ІЕ(МЕ,ІТ,0) WRITE(6，60) 

ЕОКМАТ(///, 60X, 5Н е... 

WRITE(6, 63) 

ЕОВМАТ(////, 5X, 3H > * +, 3HZHE, 2Х, 2HSE, 
2X, 2HBO, ЗН *»' + *) 

LG=1 

ІВ-0 

DO 65 КО-1, MG 

Ко=КО+1 

ІМ =ІН(КО) 

ТЕТМ.ЕО.0)СО ТО 65 

МХ =ІХ(КО, 1) 

ММХ=мМХ+1 

CALL МАОТ(ЕТ, ЕТО, PX, РТ, ОРТ, ІМ, DDP, 
R1, ХО, X, AW. МХ, AZE, ММХ, СА7) 

CONTINUE | 

ТЕ(МЕ.СЕ.0) AC(K0, +1,1)= AC(K0, 3) 

ТЕ(МЕ.ТТ.0) GO TO 68 

ВЕАО(5, *) FST(I, I=1, MZF) 

WRITE(6，27) | 

ЕОВМАТ(//, 5X, ЗНЕЗТ ) 

WRITE(6. 23)(FST(I), І-1, MZF) 

\УВТТЕ(6, 60) 

ҮУБІТЕ(6, 66) . 

ЕОКМАТ(////, 54X, ЗН «е», ЗНЕАМ, 2X, 2HSE, 
2X, 2НВО, 3H» • •) 

LF=1 

LG=0 

IB=0 

DO 67 KO= MF1, ММ 

K0=KO+1 

IM=IH(MG+KO) 
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-67 
68 
69 


70 


71 


231 


233 
235 


72 
81 


ТЕ М.ЕО.0)СО ТО 67 

NX =IX(K0, 1) 

NNX=NX+1 | 

CALL МАОТ(ЕТ, ЕТО, PX, PT, ОРТ, ІМ, DDP, 
Е1,ХО, X, AW, МХ, AZE, ММХ, CAJ) 

CONTINUE | 

WRITE(6, 69) 

FORMAT(////, 54X, 4H * • + e, 4HZONG, 1X, 
2HJE, 1X, 2HKO, 4Н* ® • ›/) 

IF(IO.NE.0) СО TO 71 

РО 70 1=1, MM1 

WRITE(6，23) «АСС, J), 2-1, МАС) 

СО ТО 81 

РО 231 1=1, ММ! 

DO 231 7-1, 5 

AC1(I, Ј) = AC(I, J) 

DO 235 І-і, MM1 

АС1(Т, 6) = AC(I, 6)- AC(I, 7) • SH1 

AC1(I, 7) = AC(I, 7) 

DO 235 7-1, МТАМ 

АС1(Т, 3* 1+5) = АС(І, 3* J +5) 

ТЕ(АС<Т, 3975 +5),EQ.0.0) СО ТО 233 


АСТ 3• J +6) = AC(I,3* J +6) + $Н1 


СО ТО 235 


`АС1(Т,3 * 1+6) АСа,3* 1+6) .| Я 


АС1(1,39 7 +7) = АС(І,3ә J +7) 
рд 72 1=1,ММ1 
WRITE(6，23) («АС1(1,2), Ј=1,МАС) | 11- 


ТЕ(КЕР.МЕ.1) 60 ТО 73 


CALL RAH(GLXT,LXT,GLYT,LYT, 0,2,1, ХМІМТ, 
ХМАХТ, ҮМІМТ,ҮМАХТ) 
CALL РГОТ(0,»-5,0,-3) 
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79 


43 
75 


2002 


CALL PLOT(0.0,-GLY,-3) 

CALL RAH(GLX,LX,GLY,LY,0,2, 2, ХМІМЕ, ХМ- 
AXR, ҮМІМЕ, YM AXR) | 

CALL FIGZ (MM1) 

CALL PLOT (0,0, 0,0, 3) 

WRITE(6，75) 

FORMAT(//, 60X, 9H» * *END * ж») 

CALL РГОТ(0., 2.0, – 3). 

CALL РГОТ(0.0, 0,0, 999). 

STOP 

END 

PLOTING THE SEISMIC RAYS ON A CHART 

SUBROUTINE FIGR | 

COMMON /Кі/ к 

COMMON /БІС/ GLX, LX, GLY, ІҮ, ХМІМЕ, ХМ 
АХК, ҮМІМЕ, ҮМАХЕ 

COMMON /ZAC/ АС1(10, 50), АС(10, 50), А010, 
50), ІХ<11, 51) 

COMMON /ZAN/ МТАМ, ММ, ЅНІ, 5Н2, М, ММ, 
ТОР, IO, КІ, KZ, ММ1, МАС 

COMMON /XZT/ Х2 (500, 3), XZO(500, 3), XZK 

(50, 3), Е(500) 


X1= XZ(1l, 1) ` | 
X1 “ХІ ж GLX/(XMAXR - XMINR) 
Y1= XZ(1, 2) | 

Y1 =Y1 * GLY/(YMAXR - YMINR) 
Ү1= ҮІ о | 


CALL PLOT(X1, Уі, 3) 

IF(A0(K +1, 2).МЕ,1,0) CALL SMOOT «Х1, Y1, 0) 
IF(A0(K +1, 2).ЕО.1.0) CALL PLOT(X1, Y1, 2) 
Мі-М-1 

DO 2001 1-1, NI 
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2001 
2009 


203 


XX = XZ(I, 1) Е 

ХХ =ХХ * GLX/(XMAXR- XMINRY ` 

IF(SH2.LT.0.0.AND.I.EQ.1 XX = -XX 

YY=XZ(T，2) | 

УУ=УУ * СІЛ/СҮМАХЕ-ҮМІМЕ) 

ҮҮ= -YY 

TF(SH2.LT.0.0.AND.XX.GT.0.0) СО ТО 2009 

IF(SH2.GE.0.0.AND.XX.LT.0.0) СО ТО 2009 

IF(ABS(XX).GT,ABS(GLX)) СО ТО 2009 

ТЕ(А0О(К +1, 2).МЕ.1.0) CALL SMOOT (ХХ, ҮҮ, 
-2) | 

ЇЕ‹А0(К +1, 2).Е0.1.0) CALL PLOT(XX, ҮҮ, 2) 

CONTINUE | 

IF(A0(K +1, 22,МЕ,1,0) CALL ЅМООТ(ХХ, ҮҮ, 
-24) 

RETURN 

END . 

PLOTING THE SURFACE AND INTERFACES ОМ 

А СНАВТ | | 
SUBROUTINE FIGZ(M11) 
COMMON /FIG/ GLX, LX, GLY, LY, XMINR, 
XMAXR, YMINR, YMAXR | 

COMMON /ZAN/ МТАМ, ММ, SHI, 5Н?, N, 
NN, IUP, ID, KI, К7,ММ1.МАС j 

COMMON /ZAC/ AC1(10,50), AC(10,50), A0(10,50), 
ТХ (11,51) 

CALL NEWPEN (2) 

DO 203 1=1,М11 

IF(A0(1,7).NE.0,0) GO ТО 1001 

CONTINUE 

IF(MTAN,NE,0)GO TO 1001 

рО 11 I-1,M11 
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301 


107 


11 


1001 


САП, РІ.ОТ(0,0, 0,0, 3) 


УМ = СГХ - АС. а.ө» GLY/(YMAXR- YMINR) 
CALL PLOT(0.0,YM,3) о > 

CALL PLOT(GLX,YM,2). : 

CALL PLOT(0.0,0.0,3) 

XS=0.2 

ІЕ(5Н2.1,7,0,0): Х5--3.0 

YS=GLY- АС( . 1,6) + СГУ/СУМАХВ - УМТМВ) -0 
CALL PLOT(XS,YS, 3) 

CALL SYMBOL(XS, YS, 0,2, 2HV=, 0.0, 3) 
CALL МОМВЕВ(999.0,999.0, 0,2. АСХІ,2),0,0, 3) 
IF(I,EQ.1 GO TO 11 | 

YSYS+0.4 

ІЕ( А0(1,2),Е0,1,0.ОВ,А0(1,2),Е0.0,) СО TO 301 
CALL SYMBOL(XS,YS,0.2,2HV = ,0,0,3) 

CALL NUMBER(999,0, 999.0, 0.2, АС( 1,2), 0,0,3) 
ТЕ(Т.ЕО.1) GO TO 11 

ІҒ(А0(1,2,МЕ,0,0 GO TO 11 

YS=YS+0.6 

CALL ЅҮМВОІ(Х5,Ү5,0,2,9НУСХ = Е(Х) * ,0,0,9) 
CALL NUMBER(999.0， 999,0, 0,2, АСС І,4),0.0,3) 
Ү5-Ү5-0,4 

CALL SYMBOL(XS,YS;0.2,9HVGZ= F(Z) . 20, 0,9) 
CALL МОМВЕК (999,0, 999.0, 0,2,АС( І,5),0,0,3) 
CALL PLOT(0,,0.,3) 


3 


‘CONTINUE 


GO TO 1007 

ЕХ-0,5 

JX= (XMAXR- ХММЕ)/ЕХ 
DO 103 Т= 1,M11 

РО 101 J=1, JX 

ХХ =ЕХ + FLOAT(J - 1) 
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YY =Z(XX I) 
ХХ =ХХ + GLX/(XMAXR - ХМІМВ) 
YY=YY + СІҮ/(ҮМАХВ -ҮМІМВ) 
ТЕ($Н2.ТТ.0.0.АМО.Т.ЕО.1) XX =-= -XX 
YY=GLY-YY 
IF(J.EQ.1) YS=YY-0.3 
IF(J,EQ.1) CALL ЅМООТ(ХХ,ҮҮ,0) 
101 IF(J.NE.1) CALL SMOOT (ХХ,ҮҮ,- 2) 
CALL SMOOT(XX,YY, - 24) 
CALL РГ.ОТ(0.0, 0.0, 3) 
Х5-0,2 
IF(SH2,LT.0,0) XS= -3.0 
CALL PLOT(XS,YS, 3) 
CALL SYMBL(XS,YS,0.2,2HV = ,0,0,3) 
CALL МИМВЕВ(999.0,999.,0.2, АС(Т,3),0.0,3) 
ТЕ<Т.ЕО.1) СО ТО 103 
109 YS=YS+0.4 
ІҒ(А0(1,2),Е0,1,0,ОВ,А0(1,2),Е0,0,13 СО ТО 303 
CALL SYMBOL(XS,YS,0.2,2HV = ,0.0,3) 
CALL NUMBER(999.0, 999,0,0,2,АС6 1,2),0.0, 3? 
303 IF(I.EQ,1)GO TO 103 
IF(A0(1,2).NE.0.1)GO TO 103 
1005 .YS=YS+0,6 
| CALL SYMBOL(XS,YS, 0.2, 9HVGX= F(X) + ,0.0,9 
CALL МОМВЕК(999,0, 999,0, 0,2,АС( 1,4),0,0, 3 
Ү5-Ү5-0,4 
CALL SYMBOL(XS,YS,0.2,9HVGZ = Е(7) * ,0,0,9) 
CALL NUBER(999.0, 999,0, 0,2, АС( I,5),0.0, 3) 
103 CONTINUE 
1007 CALL PLOT(0.0, 0.0, 3) 
CALL NEWPEN (1) 
RETURN 
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101 


END 


PLOTING THE TRAYEL—TIME CURVES OF THE 


REFLECTED OR 

REFRACTED WAVE ON À CHART 
SUBROUTINE FIGT(TX,NNF,K) 
DIMENSION TX(200,2) 


r 
4.4 


СОММОМ/ФАМ/МТАМ,ММ,5Н1,5Н2,М, ММ, ГУР, 


ІО.КІ,К2,ММІ,МАС 


COMMON /ЕІС1/ GLXT, LXT,GLYT, LYT, XMI ` 


МТ, XMAXT,YMINT,YM AXT 

3-0 

DO 101 I=1,NNF 

XX= TX(I,1) 

YY -ТХ(1.2) 

XX= ХХ» GLXT/(XMAXT ~ XMINT) 
IF(SH2,LT.0.0. AND,I,EQ.1) ХХ--ХХ 
YY = ҮҮ * ОГУТ/СУМАХТ- ХМІМТ) 
ТЕ(АВ5(ХХ). СТ. ABS(GLXT)) СО ТО 101 


IF(SH2 СЕ.0.0АМО.ХХ,ТТ.о0.0) GO.TO 101 
IF(SH2 LT.0.0.AND.XX.GT.0.0) GO TO 101 
ТЕ (УУ. СТ. GLYT, ОВ.УУ.ГТ.0.0) GO TO 101 


=} +1 
ІЕ(1. ЕО. 1) CALL SMOOT(XX,YY ,0) 
CONTINUE | 


ІБ(ХХ, СЕ, GLXT, AND, SH2, GE.0.0)XX =GLXT-1.9 
IE(XX,LT,GLXT.AND,SH2,LT,0.0) ХХ = СІ.ХТ41,9 


ТЕ(УУ. СЕ. СТУТ) ҮҮ= СІҮТ- 1,0 . 
IF(YY.LT.0,0) ҮҮ-1,0 

CALL ЅМООТ‹ХХ,ҮҮ, - 24) 

XX= ХХ- 0.3 

ҮҮ = ҮҮ - 0,1 





ЕК-К 


САШ, PLOT(0.( 0, 0,0, 3): 

RETURN аи 

END 

PLOTING THE TRAVEL-TIMECURYESOF DIVING 

WAVE 
SUBROUTINE FIGTR(TX,NNF,K) 
“DIMEN SION TX(200,2) 

COMMON/FIG1/GLXT,LXT,GLYTLYT,XMINT,XM- 
AXT, YMINT,YMINT,YMAXT 

СОММОМ/2АМ/МТАМ,ММ,5НІ,5Н2,№, ММ, ГОР, 
IO,KI.KZ,MM1,MAC 

DO 101 J =1,NNF 

I=NNF+1- J 

XX =TX(I,1) 

УХ = ТХ(Т,2) 

XX=XX + СЕХТ/(ХМАХТ- ХМІМТ) 

ТЕ($Н2.1Т.0.0. АМО.Т.ЕО.ММЕ) ХХ--ХХ 

ҮҮ =УУ 'СГУТ/(УМАХТ - ХМІМТ) 

IF(ABS(XX). GT.ABS(GLXT)) СО ТО 101 

ТЕ($Н2.ЕТ.0.0. АХО. ХХ. GT.0.0) СОТО 101 

IJF(SH2,GE,0,0. AND. XX,LT.0.0) СО ТО 101 

ТР(УУ. СТ. GLYT, ОВ. УУ.ТТ.0.0) СО TO 101 

ТЕТ. EQ. NNF)CALL $5МООТ(ХХ ХУ, ). 

ТЕС, МЕ ММЕ) CALL SMOOT(XX.YY,— 2) 
101 СОМТЕМОЕ 

ТЕ(ХХ, СЕ, СХТ, AND, 5Н2. СЕ.0.0)ХХ = СЕХТ- 1.0 

IF(XX,LT, GLXT, АМО, $Н2.ТТ.0.0)ХХ = СГХТ + 1.0 

ТЕ(УУ. СЕ, GLYT)YY = СІҮТ- 1,0 

IF(YY,LT.0.0). YY=1.0 

CALL ЅМООТ(ХХ,ҮҮ, – 24) 
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хх-хх-оз 3 

YY=YY-0.1 5 О 

КК СИИ 

CALL МОМВЕВ (ХХ,ҮҮ,0,3,ЕК,0,0,-1) 0 2 

CALL ЅҮМВОЇІ. (999,0,999,0,0.3,1Нр,0,0,1) 

CALL РГОТ(0.0, 0.0, 3) 

RETURN ` 

END I | 

PLOTING THE TRAVEL 一 TIME CURVES FITTING 

FOR OBSERVATION AND | 

COMPUTATION ІМ INVERSION 

SUBROUTINE БІСТІСРХ,РТ.ММЕ, K) 

DIMENSION РХ(200), РТ(200) 

COMMON /ZAN/ МТАМ, MM, ЅНІ, SH2, N, NN, 
IUP, ТО, KI, KZ, MM1, МАС. 

COMMON /FIG1/ GLXT,LXT,GLYT, LYT, XMI 
NT, XMAXT, YMINT, YMAXT 

X1= PX(1) 

Х1- Х! * GLXT/(XMAXT - XMINT) 

Y1= РТ(1) ` | 

Ұ1-Ү1І"СІҮТ/(ҰҮМАХТ-ҮМІМТ) 

CALL SMOOT(X1, Y1, 0) 

рО 101 І-1, ММЕ | 

ХХ =РХ (Г) 

ҮҮ = PT(D) 

ХХ = ХХ + GLXT/(XMAXT- XMINT) 

IF(SH2,LT.0.0.AND.L EQ. XX=-XX ` 

YY=YY + GLYT/(YMAXT-YMINT) | 

IF(ABS(XX).GT, ABS(GLXT)) GO ТО 101 

ТЕ($Н2. СЕ. 0.0. AND, ХХ. ТТ.0.0) СО ТО 101 

ТЕ (5Н2.ТТ.0.0. АМО.ХХ.СТ.0.0) GO ТО 101 

IF(YY.GT..GLYT.OR.YY.LT,0,0) СО ТО 101 


бб” 


一 一 一 - А --- -. 


CALL 5МООТХХХ, ҮҮ, - 2) 
101 CONTINUE 

ТЕ(ХХ. РТ. СІ.ХТ, AND, SHZ2, LT.0.0) XX =GLXT 
+ 3.0 

ТЕ (ХХ. СЕ. СІ.ХТ, AND, SH2, GE.0.0) ХХ-СОІХТ 
– 1.0 

ТЕ(ХУ. ӨЕ,ОШҮТ) ҮҮ= СІҮТ-1,0 

ІБ(ҮҮ,І,Т,0,0 ҮҮ=1,0 

CALL $ЗМООТ(ХХ, ҮҮ, - 24) 

YY=YY-0.1 

ХХ-ХХ-0,3 

Е-К 

CALL NUMBER (ХХ, ҮҮ, 0,3, Е, 0,0, -D 

CALL РІ,ОТ(0,0, 0,0, 3) 

RETURN 

END 

PLOTING THE COORDINATE SYSTEM 

SUBR OUTINE RAH(GLX,IX,GLY, ТҮ, GH, КОМ, 
XMIN, XMAX, YMIN, YMAX) 

COMMON /ZAN/ МТАМ, MM, 5Н1,5Н2,М, ММ,” 
ТОР, IO, КІ, KZ, MM1, МАС 

COMMON /KF/ KFR, КЕТ, KFZ 

COMMON /KZ1/ KC, KX, KY, KD, KJ 

АМС = 90,0 

СІХ-ІХ 

GIY -ІҮ 

A= GLX/GIX 

B= GLY/GIY 

GG= - GH 

IF(SH2.LT,0.0) GG=-GG 

DO 210 I=1, IX 

GI=I 


* 664. 


210 


220 


230 


240 


С-СІ»А 

CALL РЕОТ(С, 0., 2) 

CALL РГОТ(С, GG, 2) 

CALE PLOT(C, 0., 2) 

рО 220 І-1, ІҮ 

GI=I 

р = СТ * В 

CALL PLOT(C, D, 2) 

CALL PLOT(C- GG, D, 2) 

CALL PLOT(C, D, 2) 

DO 230 Ісі, ІХ 

GI=IX-I 

E=GI* А 

CALL PLOT(E, D, 2) 

CALL РГОТ(Е, D- GG, 2) 

CALL PLOT(E, D, 2) 

DO 240 I=1, IY 

GI=IY-I 

F=GI* В 

CALL PLOTO., F, 2) 

CALL PLOT(GG, F, 2) 

CALL РІ,ОТ(0,, F, 2) 

CALL РІ,ОТ(,, F, 3) 

ІрХ-5,0ОХМАХ-ХМІМУ/СІХ +0.5 

IF(SH2.LT.0.0) ІрХ-5,0 (ХМАХ - XMIN)/GIX 
- 0,5 

DX =IDX 

Х0- XMIN 

ІХХ-ІХ/5-1 

рО 250 І-1, ІХХ 

СІ-І-і1 

Х-СІжАж5,0-90,3 
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Ү--0,7 
IF(KOM,NE.1) Х-СІ»А»50-0.35 
ТЕ(КОМ NE.1) Ү= СІҮ+0.4 
CALL NUMBER (X, У, 0.3, Хо, 0., -1) 
250 X0=X0+DX 


ТҮҮ = ГҮ/5+1 

ТРУ =5.0*(УМАХ - УМТМ) /СІҮ+0,5 
DY = IDY 

ТЕ(КОМ.МЕ.1) DY= -DY 
Y0=YMIN 


ІЕ(КОМ,МЕ,1) Y0=YMAX 
DO 260 1=1, ТҮҮ 


GI=I-1 
Ү-СІ»В»5,0-0,15 
Х--0,8 


IF(SH2.LT.0.0) Х--Х | 
CALL NUMBER (X, У, 0.3, Y0, 0.0. - 1) 
260 Y0=Y0+DY 

CALL PLOT(0,, 0,, 3) 

IF(KOM,NE,1) GO TO 300 

Х--1,1 

IF(SH2.LT.0.0) Х--Х 

У = СГУ - 3.5 

ІЕ(КС,ЕО,1) CALL SYMBOL(X, У, 0.4, 11HT=R/6 
` ($ЕС.), АМС, 11) 

ТЕ(КС. МЕ, 1) САТТ, SYMBOL (X, У, 0.4, 6НТ(5ЕС), 
ANG, 6 

X=GLX-3.0 

Y= - 1,3 

CALL ЗУМВОГСХ, У, 0,4, 5НХ(КМ), 0,, 5) 

X = GLX/2.0- 4,9 

Y= -2.0 
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300 


261 


263 


400 


CALL ЗУМВОГХ, У, 0,5, 20НТІМЕ - DISTANCE 
CURVE, 0,, 20) | 

СО ТО 400 

X=GLX-3.0 

IF(SH2.LT.0.0) X= GLX+3.0 

У = GLY+0.7 

CALL ЗУМВОГСХ, У, 0,4, 5HX (KM), 0,0, 5) 

Х--1,1 

IF(SH2,LT.0.0) Х=-Х 

Ү-1,0 

CALL SYMBOL(X, Ү,0,4,5Н2(КМ),АМС,5) 

х= СЬХ/2,0-2,0 

Y= – 1,5 

IF(KFZ,EQ.1) СО ТО 263 

CALL ЅҮМВОІ(Х,Ү,0,5,7НК АҮ БІС,0,0,7) 

GO ТО 400 

Х= СЁХ/2.0-4.0 

CALL ЅҮМВОІ(Х,Ү, 0.5, 15НСОМУЕВ ЗЕ RESULT, 
0.0. 15) 

CONTINUE 

CALL PLOT(0,0,0.0,3) 

RETURN 

END 

TRAVEL—TIME ІМ EXPLOSIVE COORDINATE 

SYST EM IS CHANGED INTO 

TRAVEL—TIME IN OBSOLUTE COORDINATE SYS” 

TEM 

SUBROUTINE MOVE(N1,TX,TX1) | ` 

DIMENSION TX(200,2).TX1(200,2) | 2 

COMMON /KZ1/ KC,KX,KY,KD,KJ ? 

COMMON /ZAN/ MTAN,MM,SH1,SH2,N, NN, : 
IUP, 10,КІ,К7,ММІ,МАС 
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ооо 


201 


251 


IF(IO,EQ.0) СО ТО 201 


TX1(N1,1) =SH1+ SH2*°TX(N1,1) 

TX1(N1,2) =TX(N1,2) 

IF(KC.EQ.1) ТХ1(№1,2) = TX1(N1,2) ~ TXI(N1,1) /KX 
GO TO 203 | 

IF(KC.EQ. TX (N1,2)=TX (N1,2) -TX (N1,1)/KX 
CONTINUE 

RETURN 

END 


COMPUTING THE VERTICAL COORDINATE OF 

INTERFACES 

FUNCTION Z(X,K) 

COMMON/ZAC/AC1010,50), АС(10,59). 40(10, 50), ІХ 
(11,51) 

COMMON /ZAN/ МТАМ,ММ,5Н1.5НҢ2,М, ММ, 
ГОР, IO,KI,KZ, MM1,MAC 

IF(IO,NE,0)X =X * SH2 

5= АС(К,6) +AC(K,7) + X 

D =0,0 

ЮО 251 І-1,МТАМ | 

D=D+AC(K,3*I+5)* (0.5+ АТАМ((Х-АС(К,3ж1І 
+6)) /(АС(К,3 + +7) +0.001))/3. 141593» 

Z=D+S 

RETURN 

END 


COORDINATE AND TRAVEL—TIME ABOUT THE 
END ОЕ SEISMIC RAY IS 

COMPUTED DURING THE RAY GOES FORWARD 
WITH AN ANGLE STEP 

SUBROUTINE XY(C) 
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соо 


262 


261 


2601 


COMMON /XZT/ Х7(500,3), Х20(500, 3), XZK 
(50,3), Е(500) 

COMMON /ZAN/ МТАМ,ММ,5Н1.5Н2,М, ММ, 
ТОР, ІО,КІ,К2%,ММ1І,МАС 

COMMON /ZANI/AN,AO,OQ,DT,DV,GA,A, RI0,R,SS 

ТЕ(КТ.ЕО.1) WRITE(6,262)E(N),C,A,B 

ЕОВМАТ(5Х,ӨНЗЕАЕСН,АНЕХМ),Е6,3,1НС,Е6,3, 
ІНА,Е6,3,1НВ,Е6,3) 

ХХ -ҺВ0"5ІМ(С) 

22-В0"(1- СОЅ(С)) 

C5= COS(E(N)) 

Сб = 5ІМ(Е(М)) 

ТЕ(ТОР.МЕ.1) СО ТО 261 

XZ(N +1.1) =XZ(N ,1) +XX * C5- ZZ * Сб 

XZN+1,2) = XZ(N,2) - ХХ» C6 - ZZ * С5 

GO TO 2601 

XZ(N +) = XZ(N ,1) + XX * C5+ ZZ * C6 

XZN+1,2) =XZ(N ,2) +XX + C9 — ZZ * C5 

ТЕ(ТОР.ЕО.1) В=А-С 

ІЕСОР,МЕ,1) В=А+С 

С1= СОЅ(А) 

C2= СО5(В) 

С3 = АТОС ((1,0+ С1) / (1,0 СІ) * 0.5 

С4 = АТОС ((1,0+ С92/(1,0- С2)) “0,5 

DT = АВ5((С3- C4)/GA) 

Х7.ХМ +1,3) = Х20М,3) + DT 

RETURN 

EN D 


INTERSECTION POINT OF SEISMIC RAY FOR 
INTERFACE IS SEARCHED 
IN DIVIDE EQUALLY 
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2801 
2802 


279 


280 


281 


6003 


SUBROUTINE 5ЕАЕС(51,52) 

REAL МІ 

COMMON /K1/ K 

СОММОМ/?АМІ/АМ,АО,0,ОТ.,рБУ,СА,А,В0, R,SS 

COMMON/ZAC/AC1(10,50), AC(10,50), А0(10,50), IX 
(11,51) | Е 

COMMON /2АМ/ МТАМ,ММ,$Н1, $Н2,М,ММ ЛОР, 
ТО,КІ,К%,ММІ-МАС 

COMMON /XZT/ XZ(500,3), XZO(500,3), XZK(50,3),E 
(500) | | 

IF(KI.EQ.1) WRITE(6,3) 

ЕОВМАТ(5Х ‚5 НЗЕАВС» 

Т=0.0 

MS=0 

SI=S2 

МІ-(52-610%0,5 

MS=MS+1 

IF(MS.LT.100) СО TO 280 

WRITE(6,279) 

БОКМАТҰ//,5Х,15Н» * SEARCH FAIL» ж) 

5ТОР 

ТЕ(РУ,МЕ.0.0.ОВ.А.МЕ.0.0) СО ТО 282 

D= COS(E М)) 

S = SIN (E(N)) 

IF(IUP,NE.1) GO ТО 281 

XZN+1,1) = XZ(N,1) + (T+MI)*D 

XZ(N +1,2) = Х2(М,2)- (T+MI)*S 

Y0=Z(XZ(N +1,1),K) 

GO TO 2803 

XZ(N+1,1)=XZ(N,D+(T+MID*D 

XZ(N +1.) =XZ(N,2) + (T+MI)*S 

Y0=Z(XZ(N +1,DK + 1) 
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GO ТО 2803 


2803 


287 


289 


201 


2804 


SE=T+MI 

CALL XY(SE) 

ІЕООР,ЕО,1) Y0=Z(XZ(N +1,1) ,K) 

ТЕ(ТЫР,МЕ,1) Y0=Z(XZ(N +], ,K +1) 

ІБ(АВ5(Х2Х(М-1,2)- Ү0,1ҺЕ,0,0) СО TO 2804 

ІКІІСР,МЕ,1) СО ТО 287 

ТЕХ ХЫ +1,2).ГТ.У0) СО ТО 285 

T=T+MI 

51- Т 

52-651 

СО ТО 2801 

SI= T+ MI 

МІ--МІ»%0,5 

СО ТО 2302 

IF(XZ(N+1,2) .LT.Y0) СО ТО 289 

SI= МТ+Т 

МІ = МГ ‘0.5 

СО ТО 2802 

T=T+MI 

51= Т 

52-51 

IF(KI ЕО. РУУВТТЕ (6,201) XZ(N+1,D,XZ(N+1,2) > 
У0,55,К 

FORMAT(12F10,4) 

GO TO 2801 

SS=T+MI 

RETURN 

END 


COMPUTING THE ANGLES 
SUBROUTINE ANGLE(K) 


641% 


i 


211 


COMMON /ZAN/ МТАМ,ММ,5Н1,5Н2,М,ММ, 
ІСР,ІО,КІ,К2,ММ1,МАС 

СОММОМ/г?АМІ/АМ,АО,О,рТ,ОУ,СА,А,В0,Е, SS 

СОММОМ/АМС1/АЕР 

СОММОМ/72АС/АС1(10,50), АС(10,50), Аб (10, 59), ІХ 
(11,51) 

COMMON/XZT/XZ(500,3),XZO (500,3), XZK(50,3)},B 
(500) 

COMMON /АМС/ В11(500),В12(500) ,В21(50) 

ІЕ(КІ,ЕО,1) УБВТТЕ( 6,1) | 

1ІҒОНВМАТ(5Х,Ь5НАМСІЕ) 

ТЕ(МТАМ,МЕ,0) СО ТО 211 

ВЕР = АС(К +1,7) 

ІКІІУР,ЕО,1) ВЕО-АС(К,7) 

СО ТО 215 

BS= AC(K +1,10) 

ІБКІТОР,ЕО,13 BS= АС(К,10) 

ІС-і1 

рО 213 І-2,МТАМ 

DP= AC(K+1,3*I+7) 

IF(IUP.EQ.1) DP= AC(K,3*1+7) 

ТЕ(ОР.СТ.В$) СО TO 213 

BS= АС(К +1,3+1+7) 

ІЕІСР,ЕС,І) В$=АС(К,3 * 1+7) 

ІС-І 


213 CONTINUE 


BS= AC(K+1,3* JC+7) 
IF(IUP.EQ.1) В$=АС(К,3 * JC+7) 
рВ5-В5/10.0 

ТЕ ТОР,ЕО.1) СО ТО 301 

А51 = ХО (ММ 1) + DBS 

А52 = XZO (ММ 1) - DBS 


“672: 








Сусыз 


4 


301 


303 


215 


304 


305 


307 


25К1-2(А51,К-1 

ZSK2= Z(AS2,K +1) 

AD = ZSK1 ~ ZSK2 

GO TO 303 

АР1 = XZK(K,1) + DBS 

AD2=XZK(K,1)- DBS 

ZDK1 = Z(AD1,K) 

ZDK2= Z(AD2,K) 

AD = ZDKi - ZDK2 

AK3 = AD/ (DBS * 2.0) 

BED = ATAN (AK3) 

AKN -1,57079633 

B11 (NN) =Е(М +1- ВЕР 

А11 = АКМ ~ B11(NN) 

ТЕ(ТОР.МЕ.1) СО ТО 309 

ІЕ(А0(К,22,МЕ,1) СО ТО 305 

IF(AC(K,1) .LE.AC.(K,3)) СО ТО 304 

АТР = АВЅІМ(АС(К,3) /АС(К,1)) 

1Е(А11.СЕ.АГР) СО ТО 3001 

AG1= AC(K,1) * SIN (A11)/ AC(K ,3) 

1Е(АС!.СТ.1.0) АС1=1,0 2 

ТЕ(АС1.ГТ.-1.0) АСі--1,0 

А21= ARSIN(AG1) 

B21 (К) = AKN - (A21 + BED) О, 

СО ТО 3001 

ІЕ(А0(К,2),МЕ,О,1) СО ТО 307 

Z1=Z(XZ(N +1,1),К-1) 

AC(K,2) = AC(K,1) + SQRT((AC(K,4) * XZ(N +1,2)) 
ж *2+ (AC(K,5) *)XZ(N +1,2) — Z1)) * *2) 

ТЕ(АС(К,2) ТО, АС(К,3)) СО TO 308 

АТР = ARSIN (АС(К,3)/АС(К,2)) 

ТЕ (А11,СЕ,.АТР) СО ТО 3001 





308 


309 


310 


311 


313 


‚ 3001 


АС1 = АС(К,2) * SIN (A11)/AC(K,3) 

ІЕ(АС2,СТ,1,0)Ә АС1 =1,0 

ТЕ(АС1.ГТ.-1.0) АІ = -1.0 

A21 = ARSIN (AGI) 

B21 (К) = АКМ - (А21 + BED) 

СО ТО 3001 

ІЕ(АО(К +1,2),МЕ 1) СО ТО 311 

ІР(АС(К + 1,3) ГЕ,АС(К +1,1)) СО ТО 310 

ALP= ARSIN (AC(K +1,1)/АС(К +1,3)) 

IF(A11.GE,ALP) СО ТО 3001 

АС1 = АС(К +1,3) e SIN (А11) /АС(К +1,1) 

ІЕ(АСІ,СТ.1,0) АСІ-1.0 

IF(AG1.LT.-1.0) АСІ--1,0 

А12- АВЅІМ А СІ) 

B12(NN) = AKN - (A12 - BED) 

GO TO 3001 

IF(A0(K+1,2).NE.0.1) GO ТО 313 

Z2=Z(XZ(N +1,1),K) 

АС(К +1,2) = AC(K+1,1)+SQRT((AC(K +1,4) • XZ(N + 
1,2)) * «2% (АС(К +1,5) «(Х2(М1%1,22-22)% «2 

ТЕ(АС(К+1,3).СТ.АС(К+1,2)) ALP= ARSIN(AC(K 
+1,2)/AC(K +1,3)) 

IF(Al1.GE.ALP)GO ТО 3001 

АС1 = АС(К+1,3) * SIN (A11)/AC(K +1,2) 

ТЕ(АС1.СТ.1.0)Аб1=1.0 

ІҒ(АСІ,ІТ,-1,0АС1--1,0 

А12- ARSIN (АС1) 

B12(NN) = АКМ - (А12- ВЕР) 

АО = А11- ALP 

ІЕ(КІ,МЕ, СО ТО 317 

WF = 180/3 .141592654 

А11М = A11 * WF 
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315 
317 


3501 


А12М = А12 • WF 

АГРМ = ALP* WF 

EN =Е(М +1) + WF 
BEDN =BED + WF 
WRITE(6,315) ММ,ПУР,М,А11М,А128,АІ.РМ,ЕМ,ВЕр 

N,XZ(N+1,1),XZ(N+1,2) 1XZ(N +1,3) 

ЕОВМАТ(2Х,314,5Е9.2,3Е10.3) 

CONTINUE 

RETURN 

END 


SEISMIC RAYS IS TRACED IN K—THLAYER 

SUBROUTINE TRACE(K) 

COMMON/OUT/OUT1,OUT2 

COMMON/FIG/GLX,LX,GLY,LY,XMINR ,XMAXR, 
YMINR ,YM AXR 

СОММОМ/2АС/АС1(10,50),АС(10,50),А0(10,50),1Х 
(11,51) 

COMMON/ID/KSP,IFL 

СОММОМ/2АМ/МТАМ,ММ,5НІ,5Н2,М,ММ,ІОР, 
ІО,КІ,К2,ММ1,МАС 

СОММОМ/КЕ/КЕВ ,KFT,KFZ 

СОММОМ/2АМ1/АМ,АО,О.ртТ,рУ,СбА,А, R0,R, SS 

COMMON/XZT/XZ(500,3) , XZO(500,3) , XZK (50,3),Е 
(500) 

COMMON/AN G/B11( (500) ,B12(500) ,B21(50) 

OUTI =0.0 

OUT2=0.0 

R=6 

IF(KI.NE.1)GO ТО 350 

У/ЕІТЕ(6,3020К,ММ,М9Р,Х2(М, 1), XZ(N, 2), XZ 
(N ,3) ， 


es075。 


302 
_ 350 


354 


355 


357 


1А, АК1, АК2,СА, АМ, У,\1 

ЕОКМАТ (415,3Е10,3,4Е10,4,3Е10,2) 

IF(ABS(XZ(N ,1)) ,LE .ABS(XM AXR) .AND.ABS(XZ 
(М, 1)).GE.ABS(XMINR), AND, 
ABS(XZ(N ,2)) ТЕ, АВЅ(ҮМАХВ) .AND.ABS (XZ 
(N ,1)) ,GE.ABS(YMINR) ,AND.N .LT.100) 

2GO TO 354 

IF (IUP,EQ.1)OUT1 = 10.0 

IF(IUP,NE.1)OUT2=10,0 

IF(KI.NE.1) GO TO 407 

EN = E(N) .108/3.141592654 

WRITE(6,35 NN,IUP,N,XZ(N ,1) ,XZ(N ,2) ,XZ(N ,3) 

FORMAT(2X,2HNN ,13,5X,3HIUP,I2,5X,1HN ,13,5X, 
3HXZ1,F7.3,5X,3HXZ2,F7.13,5X,3HXZ3,F7.3,5X , 
IHE,F6.2) 

GO TO 407 

IF(AO(K+1,2) ,NE.0.1) СО ТО 357 

УХ =АС(К +1,4) 

1Е(ТОР.ЕО.1) СО ТО 355 

VZ=AC(K +1,5) 

GO TO 3514 

VZ=-AC(K +1,5) 

GO TO 3514 

ТЕ(А0(К+1,2).МЕ.1.0) GO ТО 359 

DV=0.0 

E(N) = AN 


_А=0,0 


У= АС(К +1,1) 
SC=R + COS(E(N)) 

5р =В *SIN(E(N)) 
ТЕ(ТОР.МЕ.!) СО ТО 358 
XZ(N + 1,1) = XZ(N ,1) +SC 
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XZ (N+1,2) = XZ(N,2)- SD 
GO TO 3502 
358 XZN +1,1) = ХА(№,1) + SC 
XZ(N ғ1,22Х2(М5,2) + SD 
3502 DT=R/AC(K +1,1) 
XZ(N +1,3) =XZ(N,3) + РТ 
СО ТО 3506 
359 ZN12=Z(XZ(N ,1),K+1) 
ZN11=Z(XZ(N ,1) ,K) 
DZ = 7М12- ZN11 
DV=AC(K+1,2) - АС(К +1,1) 
ТЕ(ТОР.ЕО.!1) У2= - ру/р2 
ІБКІИР,МЕ,1)0 VZ=DV/DZ 
ОХ =1.0 
Хі-Х2(М,0-рХ 
ХИ = Z(X1,K) 
ZX12= Z(X1,K + 1) 
DZ1=ZX12- ZX11) 
XN11= Z(XZ(N ,1),K) 
DVX=DV * ((XZ(N,2) - ZX11)/DZ1- (XZ(N.2) - XN11 
/DZ) 
УХ = DVX/(DX + 0.000001) 
354 СА =АВЗ(ЗОВТСУХ * VX + VZ + VZ)) 
AK2= VZ/(VX + 0,000001) 
IF(IUP,NE,1) СО ТО 363 
E(N) =AN+N *Q 
AK1= - TAN(E(N)) 
GO TO 3503 
363 E(N)=AN-N *Q 
AK1=TAN(E(N)) 
3503 А=АТАМ ((АК2—АК!)/(1+ AK1 * АК2)) 
А =АВ5(А) 


.5%7% 


365 
367 


369 


373 


ЕОКМАТ(12Р10,5) 
ZN13=Z(XZ(N,1),K) 
1В(АО(К + 1,2).МЕ.0.1) СО TO 365 


V=AC(K+1,1)+ SQRT((AC(K + 1,4) + XZ(N,2)) е» 


2+ (АСК +1,5) » (XZ(N ,2) ~ ZN13)) * * 2) 
GO TO 367 
V=AC(K+1,1)+ БУ + (XZ(N ,2) ~ ZN13)/DZ 
ТЕ(АВЗ(А).СЕ.0.001) GO ТО 379 
E(N) = ATAN (AK2) 
SC=R* COS(E(N)) 
SD=R* SIN(E(N)) 
ТЕ(ТОР.МЕ.1) СО ТО 373 
XZ(N+1,1)=XZ(N,D + SC 
XZ(N+1,2) = XZ(N,2) -SD 
ZN21= Z(XZ(N +1,1),К) 
IF(A0(K+1,2),EQ.0.1)GO TO 369 
7№22 = Z(XZ(N +1,1),К + 1) 
DZ1= ZN22—ZN11 
V1= AC(K+1,1) +DV'(XZ(N +1,2)—ZN21)/DZ1 
GO TO 371 | 


V1=AC(K+1,1) +SQRT((AC(K,4) + ХАСМ +1,2)) * • 2 


+(AC(K,5) * (XZ(N +1 2 一 ZN21)1) * * 2) 


DT= ALOG(ABS(V/VD)/(GA + 0.000000001) 


СО ТО 3505 

XZ(N+1,1) =XZ(N,1) + SC 

XZ(N+1,2) =XZ(N,2) + SD 

ZN21= Z(XZ(N + 1,1),K) 

IF(A0(K + 1,2) ,ЕО,0,1) СО TO 375 

23№22= Z(XZ(N +1,1), К+1) 

р21 = 2,322 – 71311 

У! = АС(К + 1,1) + рУ * (XZ(N + 1,2) - 2321) /р21 
СО ТО 377 


678. 


375 


377 
3505 


379 


3506 


385 


3507 


У1=АС(К + 1,1) + ЅОКТ((АС(К 41,4) v ХАСМ +1,1)) + є 
2+)АС(К + 1,5) * XZ(N + 1,2) – Z1N21)) • #2) 

ОТ = АТОС(АВЅ (У1/У)) / (СА + 0 ,000000001) 

XZ(N +1,3) =XZ(N,3) + DT 

СО ТО 3506 

R0=V/(GA * SIN (А) + 0, 000000001) 


 К0= ABS(R0) 


CALL XY(O) 

Е(М +1) =AN- (N+ D°Q 

ТЕ IUP.NE.0.OR.ABS(E(N+1)).GT.0.01745) GO TO 
3506 

DO 381 10=1,3 

XZO(NN ,10) = XZ(N +1,10) 

GO TO 407 

IF(IUP,NE,1) GO TO 385 

H0=Z(XZ(N +1,1),K) 

Hl=Z(XZ(N+1,1) ,K+1) 

IF(XZ(N +1,2).GE.H1) GO ТО 3511 

IF(XZ(N+1,2) .LT.HO) GO TO 3507 

N=N+1 

GO TO 3501 

Но = 2020 +1,1),К +1) 

IF(XZ(N +1,2).СТ. H0)GO ТО 3507 

тЕ(КТ.МЕ.1) GO ТО 5 

WRITE(6，3 ) HO,XZ(N+1,1),XZ(N +1,2) 

БОВМАТ(//.5Х.2НН0,Б10,3,5Х,3НХ21, Е10.3,5Х, ЗН 

XZ2,F10 ,3) 

N=N+1 

GO TO 3501 

IF(ABS(XZ(N +1,2) - H0).GE.0.01) СО TO 392 

IF(IUP.NE.1)GO ТО 389 

DO 387 10-1,3 


“679: 


887 ХАК(К,10) =XZ(N + 1,10) 
GO TO 3510 
339 DO 390 10=1,3 
390 NXZO(NN 10) = XZ(N + 1,10) 
GO TO 3510 
392 ТЕ(РУ.МЕ.0.0. ОК,А,МЕ,00) СО,ТО 391 
Е1=0.0 
F2=R 
IF(RI,EQ.1)WRITE(6,301)XZ(N +1,1),ХА(№М+1,2),Н 
0K 
301 FORMAT(12F10.3) 
GO TO 3509 
391 Г1-0,0 
F2=Q 
IF(KI.EQ.1) МЕІТЕ (6,301) XZ(N +1,1), XZ(N +1,2) 
H0, K 
3509 CALL SEARC(F1,F2) 
TF(DV.NE.0.0.OR ,A.NE.0.0) СО TO 399 
E(N +1) = AN 
IF(IUP,NE,1) СО ТО 395 
XZ(N +1, D =XZ(N,1) +SS*COS(E(N)) 
XZ(N +1,2 =Z(XZ(N +1,1),К) 
ХАМ +1,3) = XZ(N,3) + SS/(V + 0.000000001) 
DO 393 10-1, 3 
393 XZK(K,I0)=XZ(N +1,10) 
GO TO 3510 
395 XZ(N+1,1) =XZ(N,1) +SS*COS(E(N)) 
XZ(N +1,2) =Z(XZ(N +1, 1),К +1) 
XZ(N +1,3) = XZ(N ,3) + SS/(V +0.000000001) 
DO 397 10=1,3 
397 XZONN ,10)= XZ(N + 1,10) 
GO TO 3510 
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399 


3511 


CALL ХҮ(55) 
ІБ(ІТУР,МЕ,) СО ТО 403 
Е(М%1)3-Е(М) +55 

рО 401 10=1,3 

XZK(K,I0) = ХАСМ + 1,10) 

СО ТО 3510 

DO 405 10=1,3 

XZO NN ,10) =XZ(N + 1,10) 
Е(М+1) =Е (М) - 55 

CALL АМСІЕ (К) 

ТЕ(ТЕГ. ЕО.10) СО ТО 3511 
IF(KFR .ЕО.1) CALL FIGR 
CONTINUE 

RETURN 

END 


THE UPWARD SEISMIC RAYS ABOVE THE AIM 

LAYER IS TRACED | 

SUBROUTINE UPTXZ(N1,NN1, TX, TX, TX1) 

DIMENSION ТХ(200,2,),ТХ1(200,2) 

COMMON /NRI/ NR,NNR.IP,LS 

COMMON /К!/ K 

COMMON /ЕМ /LG,LF,LR 

COMMON /L1/ LL 

COMMON /ID/ KSP,IFL 

COMMON /OUT/ OUT1,OUT2 

COMMON /TN/ TAPE,NNS 

COMMON /ZAN/ MTAN,MM,SHI,SH2,N,NN, 
IUP,IO,KI,KZ,MM1,;MAC 

COMMON /2АМ1/ АМ,АО,О,РТ,рУ,СА,А,В0,В,55 

COMMON /ANG/ В11(500),В12(500),В21(50) 

COMMON /XZT/ Х7(500,3),Х70/ 500,3) ХУК (50,3), 
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б 


Е (500) 
М2-М!1 
IF(K.LE.1) СО ТО 4502 
КОР-К 
DO 455 Ј=2,КОР 
II=2+KUP-J 
DO 451 I0 =1,500 
DO 451 70-1,3 


451 XZ(I0,J0) -0,0 


453 


454 


455 


АМ = B21(IT) 

N=1 

DO 453 10=1,3 

XZ, 10) =XZK(II, 10) 
K=II-1 

IUP=1 

CALL TRACE(K) 
IF(OUT1,EQ.10.0,AND.LL.EQ.1) GO TO 4501 
IF(OUT1.NE.10.0) GO ТО 454 
ІҒСХАО,МЕ,0,00 NR=NR-1 
GO TO 4501 

TX(NN1,1) =XZK(II-1,1) 
TX(NN1,2) =XZKG(II-1,3) 
CALL MOVE(NN1,TX,TX1) 
CONTINUE 


4501 K=KUP 


4502 


682» 


CONTINUE 
RETURN 
END 


THE UPWARD SEISMIC RAYS IN THE AIM LA- 
YER IS TRACED | 
SUBROUTINE UPTXO(N1,NN1,TX,TX1) 
DIMENSION ТХ(200,2), ТХ1(200,2) 





461 


462 
463 


4601 


COMMON /МВ1/ МЕ NNR,IP,LS 

COMMON /K1/ К 

COMMON /TN/ TAPE,NNS 

COMMON /OUT/ OUT1,OUT2 

COMMON /ZAN/ МТАМ,ММ.5Н1,5Н2,М,ММ, 
IUP,IO,KI,KZ,MM1,MAC 

COMMON /ZAN1/ АМ,АО,О,рТ,рУ,СА,В0,В,55 

COMMON /XZT/ XZ(500,3) ,XZO (500,3), Х7К (50,3), 
Е(500) 

РО 461 10=1,3 

XZ(1,I0) =XZO(N1,10) 

ТОР =1 

CALL ТЕАСЕ(К) 

IF(OUT1.NE.10.0) СО ТО 462 

ТЕ(АО.МЕ.0.0) NR=NR-1 

СО ТО 4601 

РО 463 10=1,3 

ХАК (К,10) = Х7 (М + 1,10) 

ТХ(ММ1,1) = ХАК (К, 1) 

TX(NN1,2) = Х2К(К,3) 

CALL MOVE(NN1,TX,TX1) 

СОМТІМСЕ 

RETURN 

END 


THE SUBPROGRAM ОЕ INTERPOLATION MET- 
HOD 

SUBROUTINE ZAH(N,X,T,U,TF) 

DIMENSION X(N),T(N) 

NM1=N-1 

DO 10 I=2,NM1 

IF(U,LE.X(I)) GO TO 20 
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10 CONTINUE 
I=NM1 
GO TO 30 

20 IF(I,EQ.2) GOTO 30 
IF(U-X(I-D.LT.X(D <U) I=I-1 

30 Хї=х(ї-1) 
X2= X(D 
X3=X(I+i) 
А1= (Ú — X2) + (U — X3)/( (X1 - X2) + (Х1- X3)) 
A2= (U - X3) + (U — X1)/( (X2 - ХЗ) * (X2- X1)) 
A3 = (U - х1) +. (U — X2)/( (X3 - X1) * (X3 - X2)) 
TF=A1*T(I-D +A2*T(D +A3* T(I+1) 
RETURN | 
END 
COMPUTING THE THEORETICAL TRAVEL—TIME 
SUBROUTINE AQ(N1,FT,PX.IM,TXX,TXT) 
DIMENSION FT(IM),PX(IM) 
DIMENSION TXX(N1),TXT(N1) 
COMMON /ZAN/ MTAN,MM,SH1,SH2,N,NN,IUP, 

IO,KI,KZ,MM1,MAC 
СОММОМ /ЕМ/ LG,LF,LR 
СОММОҺМ/ЕХҒ/ТХ<200,2),ТХ1(200,2),АТ,1,(200,2). 
А1,1,1(200,2)» | 

ТХЕ (200,2), ТХВ.1(200,2) 
DO 483 І-1.М1 

481 IF(LF.EQ.DTXX(D =TXG,1) 
ІБ(ІЕ.ЕО,ОТХТ() -ТХ(1,2) 
IF(LG.EQ.DTXT(I)= ALL(I,2) 
IF(LG.EQ,D TXX(I) = ALL(I,1) 

483 CONTINUE 
DO 4851=1, ІМ 
VQ = 0.0 
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CALL ZAH(N1, TXX, TXT, PX(I), VQ) 


ЕТП) = VQ 


RETURN 
END 


CONTROLLING THE WHOLE SEISMIC RAYS TRA- 
CE PROCESS 

SUBROUTINE ZYFT(FT, PX, IM) 

DIMENSION ЕТИМ), PX(IM) , XZL(3) 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


/NR1/ NR,NNR,IP,LS 
/кі/ K 

/L1/ LL 

/OUT/ OUT1, OUT2 
/ANG1/ ALP 

/TN/ TAPE,NNS 
/ID/ KSP,IFL 


 /ҒАМ/ KK,K0,KO, LN 


/EN/ LG,LF,LR 

/FAN1/ M,MZG,MZF, IC, ІВ, МАХ, ЕО, Е 
/КЕ/ KFR,KFT,KFZ 

/FIG/ GLX,LX, СГУ, LY, XMINR, 


XMAXR, YMINR, YMAXR 


COMMON 


/FIG1/ GLXT, LXT, GLYT, LYT, XMINT, 


ХМАХТ,ҮМІМТ,ҮМАХТ 


COMMON 


/ZAN/ МТАМ, ММ, SH1, SH2, М, NN, 


ТОР, ТО, КГ, КУ, ММ МАС 
COMMON /ZAN1/ АМ, АО, О, DT, DV, GA, А, Во, В, SS 


COMMON 


/XZT/ XZ(500, 3), XZO (500, 3), ХАК, 


(50, 3), Е(500) 


COMMON 
COMMON 


/АМС/ В11(500), В12(500), B12 (50) 
/ZAC/ АС1(19, 50), АС(10,50), А0(10, 50) ° 


IX(11,51) 
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СОММОМ/ЕХЕ/ТХ<200,2), ТХ1(200, 2), ALL (200, 2), 
ALL1(200, 2), с 
ТХЕ (200, 2), ТХВ1 (200, 2) 
DIMENSION TXX(100), ТХТ (100) 
К=1 
ІЕ(К2,ЕО,0) К-КО 
NNK =NNS 
Q=0.01745 
DL=5.0 
IFL=1 
DO 501 10=1,500 
DO 501 20-1,3 
501 XZO(I0,J0)=0.0 
5001 NN =0 
МВ =0 
LL=0 
NNR = 0 
NNS=NNK 
IL = 30 
11=0 
IF(KFZ,EQ.1) СО ТО 502 
FX= GLX-1.0 
FY=GLYT+GLY* 2+12.0 
IF(KFT.EQ.5)FY = GLY +7.0 
IF(SH2.GE.0.0)CALL PLOT(]1.0, FY, ~ 3) 
IF(SH2,LT.0.0)CALL PLOT(- ЕХ, FY, - 3) 
502 DO 503 10-1,500 
РО 503 20-1,3 
503 Х2(10, 70) =0,0 
рО 505 10= 1, 50 
рО 505 Ј0= 1,3 
505 Х7К(10,70)-0,0 


“686: 


рО 507 10-1,200 
рО 507 20-1,2 
ТХ(10,10) =0.0 
ТХ1(10, 70) =0.0 
ТХЕ (10,20) =0.0 
TXR1= (10, 30) =0.0 
АТ. (10, 10) =0.0 

507 ALLI1(I0,J0)=0.0 

5002 NN =NN+1 
МВ =NR+1 
IF(NN LE.NNS) СО ТО 508 
ІЕСТХЕСІ,І).МЕ,0,00 NNR=NNR-1 
IF(LF.EQ.D МЕ = МА -1 
СО ТО 5010 

508 РО 509 70-1,3 

509 Х2(1,100-Х20(ММ,70) 
ККР=К 
РКК =ККР 
РО 555 К=1, ККР 
WK =0.0 
ТЕ(К.МЕ.ККР) УУК-10,0 
ТЕ(К.МЕ.1) СО ТО 552 
РО 551 10=1,200 = 
РО 551 Ј0=1,3 

551 Х2(10,700-0.0 
СО ТО 554 

552 БО 553 10-1,3 

553 XZ(1,J0) =XZO(NN, J0) 

554 АО-0,0 
IUP=0 
N=1 
IF(K.EQ.1)AN= АТАМ( АС(ККР+ 1, 6)*РКК/(ТАРЕ - 
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555 
514 


513 


FLOAT(NN))) | 
IF(IK.EQ.1.AND.AOIK+12).NE.1.0.AND.KKP。 

ЕО.1) 

АМ = 1.57 - ЕГОАТ(ММ )°*1.57/( ЕГО AT(NNK)+2.0) 
ТЕ(К.МЕ.1) AN=BIXNN) 
CALL ТВАСЕ(К) 
ТЕСООТ2,МЕ,10,0) СО ТО 555 
NR=NR-1 
GO TO 514 
CONTINUE 
K=KKP 
IF(OUT2,EQ.10.0) GO TO 5002 
IF(E(N +1).LT,0.01745.AND.AO.EQ.0.0) GO ТО 

5005 
IF(AO ,LT.0.0) СО ТО 5003 
IF(AO.GT.0.0) 11=11+1 
IF(I1.EQ.I) NL=NN 
IF(11,GT,1) СО ТО 5004 
IF(LG,NE.1 ) СО ТО 5004 
B1 = B11(NN) 

DO 513 10-1,3 
XZL(10)=XZO(NN, 10) 
DO 519 I=1,100 
IF(K,NE.1) GO TO 520 
АМ = АМ +0.04 
ANL = АМ 

IUP=0 

N=1 

DO 515 10-1,500 

DO 51 J0=1,3 
XZ(10,J0)=0.0 

DO 517 10-1,3 
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517 


7 519 
520 


522 


565 


563 
569 
567 


Х2К‹ММ№, 10) 0,0 

ТЕГ, = 10 

CALL TRACE(K) 

IF(OUT2.EQ.10.0) СО ТО 5002 

ТЕС АО.ГТ.0.0) СО ТО 520 

CONTINUE 

TL=0.0 

IFL=1 

IF(KFT,EQ.5) GO ТО 522 

IF(KFR.NE.1) СО ТО 522 

CALL PLOT(0.0, 0.0, 3) 

FD = GLY +GLYT + 10,0 

CALL PLOT(0.0, — FD, - 3) 

KKP=K 

DO 561 K=1, KKP 

IF(K,NE,1) СО ТО 563 

DO 565 I0 = 1, 200 

DO 565 J0=1,3 

XZ(I0,J0)=0.0 

СО ТО 567 ` 

DO 569 70-1,3 

Х2Х1,10)-Х20(ММ,70) 

IUP=0 Е 

IF(K.EQ.1,AND .KKP .NE ,1,АМЮ,АФК, 2) ,ЕО,1) 
АМ = АТАМ(АС(ККР + 1,6) • РКК/(ТАРЕ + FLOAT 

(NN))) 
IF(K,EQ.1.AND.A0(K+1,2).NE.1.0.AND.KKP.E 
Q.1) | 

АМ = 1,57 - ЕГОАТСММ ) * 1.57/(ЕГОАТСММК)+2.0) 

ТЕ(К.МЕ.1)АМ = B12(NN) 

ТЕ(ККР.ЕО.1) AN= ANL 

N=1 
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CALL TRACE(K) 
IF(OUT2.EQ.10.0) GO ТО 560 

561 CONTINUE 

560 К-ККР 
ТЕ( ООТ2.ЕО.10.0). СО ТО 5002 
IP=] 
LS=1 

666 ALL(IP,1)=XZO(NN,1)+IP»DL 
LL=1 ` 
ALL(IP+1,1)= ALL(IP, 1)+ DL 
ZL21= Z(ALL(IP+1,1y, К +1) 
ZL12= Z( ALL(IP,1), K+ 1) 
НН = 2111 - ZL12 
САМ = ATAN(HH/DL) 
IF(IP.EQ.1)TL= 0,0 
ІЕ(ІР,МЕ,1) TL = ТІ + ЅОВТОНН • НН + DL • DL)/AC 

(К +1, 3) | е | 
IF(IP.EQ.1) ALL(IP,2)= XZO(NN,3) 
IF(IP.NE.1) ALL(IP,2)=TL+XZO(NN,3) 
DO 521 10=1, 500 
 DOs5213013 0 

521 Х2(10,10050.0 
N=1 
АМ -1,57079634- (ALP + GAM) 
XZ(1, 1)= ALL(IP, 1) 
XZ(1,2) = ZL12 
XZ(1, 3)= ALL(IP,2) 
IUP=1 
CALL TRACE(K) 
ТЕ( ООТ!.МЕ.10.0) GO ТО 526 
LS=LS-1 
GO TO 525 


es090。 


526 
523 


2525 


524 


БО 523 0-1,3 

Х2К(К,10) = XZ(N + 1,10) 
ALL(IP,1) = XZ(N +1, 1) 
ALL(IP,2) = XZ(N + 1, 3) 

CALL MOVE(IP, ALL, ALL1) 
CALL UPTXZ(IP, IP, ALL, ALL1) 
IF(OUT1.NE.10.0) СО TO 525 
LS=LS-1 

IP=IP+1 

LS=LS+1 

IF(IP,LT.IL) GO ТО 666 
LS=LS-1 

LL =0 

IF(KFT.EQ.5) СО ТО 528 
IF(KFR.NE.1) GO TO 528 
CALL PLOT(0.0, — СГУ, - 3) 
CALL PLOT(00.,0., 3) 

CALL RAH(GLX,LXT,GLY,LY,0.2,2, XMINR, XM A 
XR,YMINR,YMAXR) 

К2=К+1 

CALL FIGZ (K2) 

CALL PLOT(0.0, 0.0 ,3) 

БУТ =GLY +5,0 

CALL РІ,ОТ(0,0, FYT, – 3) 
CALL RAH(GLXT, LXT, GLYT, ГУТ, 0,2,1, XMINT, 


ХМАХТ,ҮМІМТ,ҮМАХТ) 
ІЕ(1ІО,Е0,0,АМР,1,5,6Е,2) CALL FIGT(ALL, 
LS,K) 
IF(IO.NE.0.AND.LS,GE.2) CALL FIGT(A LLI, 
S, K) 


CALL PLOT(0.0,0.0,3) 
FY=GLYT+GLY+5.0 
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528 


527 


5003 


530 


5004 


581 


5005 


CALL PLOT (0,0 | БҮ, -3) 
NL=NN 

B11(NN)=B1 

DO 527 10-1,3 

XZO(NN, 10) = XZL¿(10) 

GO TO 5004 

DO 592 I0= 1, 500 

рО 592 70-1,3 

XZ(10, J0)=0.0 

N=1 

AN = B11(NN) 

CALL UPTXO(NN,NR, TX, TX1) 
IF(OUT1.EQ.10.0) GO TO 530 
CALL UPTXZ(NN,NR, TX, TX1) 
NL=NN 

IFINN .LT.NNS) СО ТО 5002 
СО ТО 5010 

IF(LF.NE.1) СО ТО 5019 
ІР(МІ,,СЕ,ММК) GO ТО 5010 
IF(WK.EQ.10.0) СО ТО 5002 
РО 531 10= 1, 500 

DO 531 Ј0=1,3 ` 
XZ(I0,J0)= 0.0 

N=1 

АМ = B11(NN) | 
CALL UPTXO(NN,NP, TX, TX1) 
IF(OUT1.EQ.10.0) GO ТО 532 
CALL UPTXZ(NN, NR, TX, TX1) 
IF(NN .GE.NNS) GO ТО 5010 
GO TO 5002 

DO 538 10=1, 500 

DO 533 J0=1,3 
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533 


534 


536 
5010 


538 
540 
535 


537 


539 


XZ(I0, J0)=0.0 

АМ =0.0 

N=1 

NR=NR-1 

ММВ = ММК +1 

CALL UPTXO(NN,NNR,TXR, TXR1) 

IF(OUT1.NE.10.0) СО TO 534 

NNR=NNR-1 

GO TO 536 

CALL UPTXZ(NN, ММВ, ТХЕ, TXR1) 

ІЕ(ООТ1,.МЕ,10,0) СО ТО 536 

ММВ = ММВ -1 

IF(NN .LT.NNS) СО ТО 5002 

ТЕ(КЕТ.МЕ.5) СО ТО 538 

IF(IO .EQ.0.AND.LS.GE.3) CALL FIGT( ALL, LS,K) 

IF(IO NE.0.AND.LS.GE.3) CALL FIGT( ALLI, 

LS, К) | 

IF(IO.EQ.0.AND.NNR .GE.3) CALL РІСТ (TXR, 
NNR,K) | 

IF(IO .NE.0.AND.NNR.GE.3) CALL РІСТ (TXR1l， 
NNR,K) о 

ІРІО,МЕ,0.АМр,МК,бЕ,3) CALL FIGT(TX1, N- 

R,K) | 
СО ТО 540 
IF(KZ.EQ.0) СО ТО 545 


WRITE(6,535) К 


ЕОЕМАТ(//,2Н » •,12, 2Х, 5НІ, АҮЕК,2Н• e) 

WRITE(6, 537)NL | | 

FORMAT(//,5X, SHLITTLE,1X, SHANGLE,1X, 15НВЕЕ 
ECTIVE - WAVE, 1X, 2HNL, 13) 

WRITE(6, 539) 


. FORMAT(//, 5X, 15HREFLECTIVE - WAVE) 
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WRITE(6,702) 
FORMAT(/, 12X, 1НТ, 9X, 1НТ, 9X, 1НХ, 9X, IHT, 9Х, 1 
HX, 9X, IHT,9, 
1НХ, 9X, IHT, 9X, 1HX, 9X, 1HT, ЭХ, 1HX, 9X, 1HT/) 
FORMAT(5X, 12F10.3) | | 
ІЕ(ІО,Е0.0) WRITE(6,541) («ТХ (I,J),J -1,2), 
I=1,NR) | 
ТЕ(ТО.МЕ.0) WRITE(6,541) ((TX1 (I,J) J =1,2) 
I=1, NR) 
WRITE(6, 543) 
FORMAT(//,5X,5HREFRACTIVE- WAVE) 
WRITE(6,702) | 
ІР(ІО,Е0.0) WRITE (6,541) (( ALL(I,J),J =1,2 ), 
1=1, LS) | 
IF(IO .МЕ.0) WRITE (6,541) C(C(ALLL1(I,J), J =1, 2), 
І-1,1,5) | 
WRITE(6, 544) 
ЕОКМАТ( //, 5X, 11HDIVING —- WAVE) 
WRITE(6,702) 
IF(IO .EQ.0,AND.TXR(I, 1D) .NE.0.0) WRITE(6, 5 
((TXR(I, J), J =1,2), 1=1, ММВ) 


 ТЕ(ІО NE.0.AND.TXR1(1,1) .NE.0.0) WRITE(6,541 ) 


((TXR1(I,J), J = 1,2),1= 1, ММК) 

ТЕ(КЕВ.МЕ.1) GO ТО 548 | 

CALL PLOT(0.0,0.0, 3) 

CALL PLOT(0.0, -GLY, -3) 

FORMAT(//, 5Х, 3HG LX, F8 .3,2Х, 2HLX, 12, 2X, 3HGLY, 
F8 .3， 2X, 2HLY, I2, 2X 


15HX MINR, F8.3, 2Х, SHXMAXR, Ев8.3,2Х,5НҮМІМЕ, 


Е8,3, 2X, SHYM AXR, F8.3) 
CALL RAH(GLX, LXT, GLY, LY, 0 .2, 2, XMINR, XM AX 
К, ҮМІМЕ,ҮМАХК) 
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545 


5011 


K2=K+1 ` 

CALL FIGZ (K2) 

ІЕ(КЕТ,МЕ,1) GO ТО 545 

БУ =GLY +5.0 

CALL PLOT (0,0, FY, -3) 

CALL RAH(GLXT, LXT, GLYT, LYT, 0,2, 1, XMINT, X- 
МАХТ,ҮМІМТ,ҮМАХТ) 

IF(IO .EQ ,0.AND .NNR .GE.2) CALL БІСТЕ (ТХК, 
NNR,K) | 

IF(IO,NE .0.AND NNR .GE.2) CALL ЕТСТВСТХВ1, 
NNR, K) . 


IF(IO .EO.0.AND NR’GE.2) CALL FIGT (TX, МК, К) 


ІР(ІІО,МЕ,0,АМПО,МВ,СЕ,2) ЕС .CALL ЕТСТ 
(ТХІ, МВ, К) 
CALL PLOT (0,0,0,0,3) 


. FX=GLX +10.0 


FY =GLY +2+GLYT +15.2 

CALL PLOT(FX, -FY, - 3) 

K=K+1 

IF(K.GT.KO) GO ТО 5011 

GO TO 5001 

IF(KZ.NE.0) GO ТО 5012 

ІЕ(К2,МЕ,0,) СО ТО 5012 

ТЕ(ТЕ.ЕО.!) CALL АО(МВ, ЕТ, PX, IM, TXX, TXT) 
IF(LG.EQ,1) CALL AQ(LS, ЕТ, PX, IM, TXX, TXT) 
CONTINUE 

RETURN 

END 


TO ESTABLISH JACOBI MATRIX 
SUBROUTINE BCAJ(CAJ(CAJ,FT, FTO, PX,NNX, 
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IM) 
DIMENSION CAJ(IM,NNX),FT, (IM), ETO(IM), РХ 
(IM) | 
COMMON /FY/ AY1(5, 21), АҮ2(5,21), DDO(21), XDJ 
(21) 
COMMON /FAN1/ М, М7С, М2Е,ІС,ІВ, МАХ 
COMMON /FAN/ КК, Ко, КО, LN 
COMMON /ZAN/ MTAN, MM, SH1SH2,N,NN,IUP, 
IO, КІ, КИ, ММ1, МАС . 
COMMON/ZAC/AC1(10, 50), АС(10, 50), А0 (10, 50), IX 
(11,51) 
1В = 0,0 
рО 551 ІА = 2, МАХ 
IF(IX(K0,IA).NE.1) СО ТО 551 
АС(КО, ТА – 1) = АС(КО, ТА – 1) + ХОЈ (ТА - 1) 
CALL ZYFT(FT, РХ, ІМ) 
ІВ = ІВ +1 
DO 550 J=1, IM 
550 САЈС(Ј,1В) = (FT(J)-FTO(J))/XDJ(IA- 1) 
AC( K0, ІА - 1) = АСКО, ІА – 1) - ХЮЈ (ТА - 1) 
551 CONTINUE 
RETURN 
END 


COMPUTING RESIDUAL AND SUM OF SQUARES 
SUBROUTINE ОЕ(ЕТ, F, DPT, PT, IM) | 
”DIMENSION FT(IM), DPT(IM), PT(IM) 
COMMON /SE/ $ 
S1=0.0 
Е-0 
РО 561 I= 1, IM 
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DPT(I) = РТ(1) - FT(D 
$1= 51+ ABS(DPT(1)) 
Е=Е+ ЬРТСТ) * ОРТ(Т) 
S= S1/IM 

S= ABS( $) 

RETURN 

END 


PREVENTED THE INTERFACES FROM CROSSING 

SUBROUTINE OUTZ | 

COMMON /ЕАМ/ КК, КО, KO, LN 

COMMON /ZAN/ MTAN, MM, SH1, SH2, N, NN, 1UP, 
IO, KI, KZ, MM1, MAC 

COMMON /FIG/ GLX, LX,GLY, LY, XMINR, XMA 
ХК, YMINR, ҮМАХК 

COMMON /ZAC/ АС1(10,50), АС(10, 50), А010, 
50), IX(11, 51) | 

IF(K0.GE.MM1) СО ТО 502 

FX =2,0 | 7 

JX=(XMAXR -XMINR )/ЕХ 

JX=JX+2 

В1=0.0 

С1-0,0 

РО 501 I=1, JX 

ХХ = ЕХ*ЕГОАТ( Г) 

ZA=Z(XX, KO) 

ZB= Z( XX, K0) 

ZC <2(ХХ,К0%1) 


BB=ZB-ZA 


IF(BB.LT.B1) Ві = ВВ 
СС-2С-2В 
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IF(CC.LT.C1) Сі-СС 
501 CONTINUE 
ІБ(В1,1/7,0,0) АС(К0,6)- АС(К0,6)- В1+0.5 
ГЕ(С1,1.7,0,0) АС(Ко,6)= АС(КО, 6) + С1- 1.0 
502 CONTINUE | 
ВЕТОВМ 
END 
DAMPING LEAST SQUARES WITH CONSTRAINED 
SUBROUTINE MAQT(FT, РТО, PX, PT, DPT, IM, DDP: 
R1, ХО, X, AW, NX, АДЕ,ММХ, CAJ) 
DIMENSION FT(IM), ЕТОМ), РХ(ІМ), РТ 
(ІМ), DPT(IM), DDP(NX), 
R1( МХ), XO(NX), AZE(NNX,NNX), CAJ 
( IM,NNX), AW(NX), X(NX) 
DIMENSION 15550) 
COMMON /SE/ $ 
COMMON /KF/ KFR, КЕТ, KFZ 
COMMON /NR1/ NR,NNR, IP, LS 
COMMON /FIG/ GLX,LX,GLY,LY,XMINR,XMA - 
= ХЕ,ҮМІМЕ,ҮМАХЕ 
COMMON /FIG1/ GLXT,LXT,GLYT, LYT, XMINT, 
XMAXT, YMINT, YMAXT | 
COMMON /ID/KSP, IFL | 
COMMON /ІНЕС/ IHG, IHF, ITG, ITF, 
COMMON /EN/ LG,LF,LR 
COMMON /KZ1/ KC, KX, KY,KD,KJ 
COMMON /2АМ1/ АМ, АО, О, ОТ, ру, бА, А, ВО, В, SS 
COMMON /FAN/ КК, Ко, КО, [М 
COMMON /FAN1/ М, М26, М2Е, IC, IB, МАХ 
COMMON/ZAN/MTAN, ММ, ЅНІ, ЅН2, М, ММ, IU P, 
ТО, KI, KZ, ММ1, МАС | 
COMMON/ZAC/AC1(10, 50), АС(10, 50), АОС10, 50), ІХ 
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603 


“605 


(11,51) 
COMMON /ST/ IH(500), PGJ (100), GST(500), FST(500) 
COMMON /XZT/ Х7(500, 3), Х20(500, 3), XZK(50, 3), 

Е<500) 

COMMON /ANG/ B11(500), В12(500), В21(50) 
COMMON /FXF/ ТХ(200, 2), ТХ1(200, 2), ALL(200, 2) 
ALL1(200, 2), 
‚ TXR (200, 2), TXR 1(200, 2) 
COMMON /FY/ АҮ1С5, 21), АХ2(5, 21), DDO(21), XD J 

(21) 

ЕО-0,0 

Е-0,0 

DO 601 10-1,МХ 
ХО(10)=0.0 

РО 603 Ю=Ь МАС 
1$(10)=0.0 
ІБЕр-0 

D=1.0 

I=1 

DO 605 J=1, MAC 
ІР(ІХ(КО, J +1).NE.1) GO ТО 605 
ХО(І) = AC(K0, J) 


I=I+1 


CONTINUE 

DO 607 I=1, IM 
IF(LG.NE.1) GO TO 11 
IHG=IHG+1 

IE = IH(IHG) 

PX(I)= PGJ(IE) 

ITG =ITG+1 

PT(I)= GST(ITG) 

СО TO 607 
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614. 


608 
702 


609 


610 


611 


541 


612 


IF(LF.NE,1) СО ТО 607 

IHF = IHF +1 

IE = IH( IHF) 

PX(I)= PGJ (IE) 

ITF=ITF+1 

PT(I) = FST(ITF) 

CONTINUE 

I=1 

DO 614 J =1, МАС 

IF(IX(K0, J +1),NE.1,0) GO TO 814 

DDP(I)=DDO(CI) + 0,5 

1= 1+1 

CONTINUE 

IF(KI.NE.5) GO ТО 611 

WRITE(6,608) 

ЕОКМАТ(//,5Х,ЗНСНЕ,1Х,4НІЛАМ) 

FORMAT(/, 12X, 1НХ, 9X, 1НТ, 9X, 1НХ, 9X, ІНТ, 9X, 
1HX, 9X- 1НТ,9ХХ | | 
1НХ,9Х,1НТ,9Х,1НХ,9Х,1НТ,9Х,1НХ,9Х,1Н177) 

WRITE(6,702) | 

WRITE(6,609) (PX(1), PT(I), I= 1, IM) 


下 ORMAT(5X, 12Е10,3) 


WRITE(6, 610) 

FORMAT(//, 5X, 2H AC) 

WRITE(6,609) (AC(K0, 1D),I=1,MAC) 
CALL OUTZ | 

CALL ХУЕТ(ЕТО, PX, IM) 

IF(KI.NE.5)GO TO 612 

WRITE(6,702) 

FORMAT(5X, 12F10.3) 

WRITE(6, 541) ((TX(I,J),J =1,2),I=1,NR) 
CALL QF(FTO, FO, DPT, PT, IM) 
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6002 


613 


616 


621 


623 


625 


627 


629 


1ІЕ(К2,Е0.5) СО ТО 785 

DO 613 Ю=1, NNX 

DO 613 J0 = 1, NNX 

AZE(10,J0)=0.0 

IDED = IDED+1 

DO 616 1=1, МАС 

DDP(1)= DDP(1) * 0.5 

CALL ВСАЈ(САЈ, ЕТ, ЕТО, PX, NNX, IM) 
DO 615 1= 1, IM 

CAJ(I, NNX)= DPT(D 

РО 619 1=1, МХ 

РО 617 J =1, NNX 

DO 617 KK = 1, IM 

AZE(I, 3) = АДЕ(І, J)+CAJ(KK,I)* САЈ(КК, J) 


_ ВКО = SORT(AZE(I,I)) 


ІЕ(КІ,МЕ,5) СО ТО 634 

ҰВІТЕ (6,621) IDED 

ЕОКМАТ( //, 5Х, 5НІрЕР, 13) 
WRITE(6, 623) 

FORMAT(//, 5X, 3HFTO ) 
WRITE(6,625) (ЕТО(1),1=1,1М) 
ЕОКМАТ(12Ғ10,3) 

WRITE(6, 627) 

FORMAT(//, 5X, 2HXO ) 
WRITE(6, 625)( XO(I), I= 1, МХ) 
WRITE(6, 629) _ 
FORMAT(//, 5X, 3HCAJ ) 

DO 630 І-1,ІМ 

WRITE(6,631) (САЈ(1,Ј),Ј =1, ММХ) 
БОНЮМ.АТ(12Е10,3) 

WRITE(6, 633) 
FORMAT(//,5X,3HAZE ) 
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РО 632 І-1,ММХ 
632 WRITE(6,631) (А?Е(СІ,7),7-1,ММХ: 
634 РО 637 І-1,МХ 
І1-І-1 
IF(NX,LT.I1) GO TO 111 
DO 635 J =11, NX 
635 AZE(I, Ј) = AZE(I, J )(R1(I) + R1(J)) 
111 АХЕСТ, ММХ) = AZE(I, NNX)/R1(1) 
637 CONTINUE 
6003 10-1 
DO 643 7-1,МАС | 
IF(IX(K0, J +1),NE,1) СО ТО 643 
РрррР‹10) = DDO(J) 
10 = 10+ 1 
643 CONTINUE 
РО 645 І=1, МХ 
645 AZE(I,I)=1+DDPCI) 
647 DO 653 1-1, МХ 
11=1+1 | 
IF(NNX.LT.I1) GO ТО 113 
DO 649 J = HI, NNX 
649 А?Е(2,1)- AZE(I, £) 
113 12-1-1 
ТЕ(12.1Т.1) СО ТО 653 
DO 653 7-1,12 
651 AW(J)= AZE(1, J) 
13= 3-1 
IF(I3.LT,1) СОТО 115 
РО 652 КК =1,13. 
652 AW(J)= АЈ) -АМ(КК) + AZE, КК) 
115 AZE(I, Ј) = AW((J)/AZE(J, J) 
AZE(E Г) = AZE(L 1) ~ AW(J) * AZE(I, J> 
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653 


655 


657 


CONTINUE 

ТЕ(КТ.МЕ.5) GO TO 659 

WRITE(6, 655) 

FORMAT(//, 5X, 5HL ~ AZE) 

DO 656 1=1, NNX 

WRITE(6,657) (А2Е(1, J), 7 =1,. МҸХ) 
ЕОЕМАТ(12Ғ10,39 

DO 661 1=1, NX 


Ti=I-1i 


DO 661 КК-1,11 | 

AZE(NNX,I) = AZE(NNX, Г) - AZE(I, КК) * А?Е(МЫ- 
X, кк) 

РО 663 1-1,МХ,1 


 I=1+NX- J 


663 


665 


667 


669 


671 


673 


AZE(NNX, 1) = AZE( NNX, D /AZE(I, Г) 

I2=I+1 

DO 663 KK = 12, NX 

AZE(NNX, 1) = AZE(NNX, 1) ~ AZE( KK, Г) * AZE(NN 
X, KK) f Е | 

DO 665 I=1, NX 

AW(1)= AZE(NNX, D/R1(D 

X(D = AW(I) +XO(D 

IF(KI.NE.5) GO ТО 674 


. WRITE(6, 667) 


FORMAT(//, 5X, 2HAW) 
WRITE(6,669) (AW(I),I= 1 МХ) 
FORMAT(12F10.3) Е 
WRITE(6,671) 
РОКМАТ(//,5Х,2НХО ) 
WRITE(6, 669) (XO(D, I= 1, МХ) 
WRITE(6, 673) 


 РОКМАТ(//, 5Х,1НХ) 
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674 


683 


681 


684 


685 


687. 


689 


691 


IF(IX(K0, J +1).NE.1) СО ТО 692 


WRITE(6, 669)(Х(1), I= 1, МХ) 

1-1 

РО 683 J=1, MAC | 

ТЕ(ТХ( Ко, J +1).МЕ.1) СО ТО 683 

АС(КО, 7) = Х(1) 

1=1+1 

CONTINUE 

10-0 

рО 681 І-2,МАХ 

ІЕ<ІХ(КО,І),МЕ,1) СО ТО 681 

10 = 10+1 

ТЕСАСС(КО,І-1),6Т,АҮ1(К0,1-10,АМр,АС(К29,1 
- 1).LT.AY2(K0, 1-1) | 
.АМО.АС( Ко, 6).СТ.АС.(Ко,6)) СО ТО 681 

AC(K0, 1-1) = ХО(10) 

CONTINUE 

CALL OUTZ 

CALL ZYFT(FTO, PX. IM ) 

CALL QF(FTO, F, DPT, PT IM) 

IF(KI,NE.5)GO TO 689 

WRITE(6,685) 

ЕОКМАТ(//,5Х,6НЕТ0%2») 

WRITE(6,687) «ЕТОСІ),І-1,ІМ) 

БОКМАТ(12Е10.3) 

ТЕ(Е.СТ.ЕО) GD ТО 697 

FO = 下 

DO 691 І-1,МХ 

XO(I) = ХКП) 


I=1 
DO 692 J =1, МАС ЕЕ j 


AC(K0, J )= XO(1) 
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І-Із1 
692 CONTINUE 
ТЕ(КТ.МЕ.5) СО ТО 695 
WRITE(6,693) 5 
693 FORMAT(//,5X, 1HS, Е10,5) 
695 IF(S.GT.,0.1,.AND.IDED.LT.KSP) GO TO 6002 
ІЕ(5,1Е,0,1,08,1рЕр.СЕ, КЅР (GO ТО 6004 
697 Ар= АВЅ(АҸ(1)) | 
DO 699 1=1, МХ 
Вр = ABSCAW(D) 
IF(BD .GT .AD) Ар= Вр 
699 CONTINUE 
IF(AD.GE.0.01) GO ТО 700 
WRITE(6, 698) 
698 БОВМАТ<«//,5Х,21Н» «ІМСЕЕМЕМТ,І,Т,0,01% =) 
СО ТО 6094 
700 DO 771 J =1,MAC 
771 DDP(I)= DDP(1) * 1.5 
IDED=IDED+1 
IF(IDED .GE.KSP) GO TO 6004 
GO TO 645 
6004 AS= SQRT(F)/IM 
BS=ABS(DPT(1)) 
JC=1 
DO 775 I=2, IM 
DP= ABS(DTP(1)) 
ТЕ(ОРТЕ.В$) GO TO 775 
BS = ABS(DPT(I)) 
JC=I 
775 CONTINUE 
BS = DPT(JC) 
D=DPT(JC)/PT(JC) 


705“ 





WSITB(6,777) КО | 
777 ЕОВМАТ(//,5Х,2Н + •,ЗНМО, 12, 2Х, 5НЬАХЕВ, 2H < + ) 
IF(LF.EQ.1.AND,A0(K0,2),EQ.,1.0)AC(KO,3)= АС 
(K0, 1) 
IF(LF,EQ.1.AND.A0(K0,2),EQ.0.1) AC(K0,3)= АС 
(Ко; 1) 
IF(IO.EQ.0) СО ТО 783 
DO 221 1-1,5 
221 АСІКК0,7)-АС(КО,/7) 
АС1(К0,6)- АС(К0,6)- AC( K, О7) * SHI 
АС1(К0,7)- AC(K0, 7) 
DO 225 I=1,MTAN 
АСІККО, 3 + 1+5) = АС(КО, 3* 1+5) 
ІЕ(АС1(К0,3% 1+5).ЕО.0.0)СО ТО 223 
АС1(К0, 3 + 1+6) = АСКО, 3 * 1+6) + 5НІ 
СО ТО 225 | 
‚ 223 АСІСКО, 3 #1+6) = АС(КО,3• 1+6) 
225 АС1(К0,3%І%7)-АС(К0,3% 1+7) 
WRITE(6,779) 
779 БОКМАТ//,5Х,5Х.З3НАСІ1) 
WRITE(6,781)) AC1(K0, D, I= 1, МАС) 
781 FORMAT(12F10.3) 
СО ТО 785 
783 WRITE(6,784) 
784 ЕОВМАТ(//,5Х,2НАС) 
WRITE(6,781) (АС (КО, 1), І=1, МАС) 
785 WRITE(6,787) 
787 ЕОКМАТ(/, 11X, 2НРХ, 8Х,2НРТ, 7ХЗНРТО, 7X, 3HD- 
РТ,8Х,2НРХ,%Х,2НРТ, 
7Х, ЗНРТО, 7X, 3HDPT, 8X, 2НРХ, 8X, 2НРТ, 7X, 
ЗНРТО, 7Х, ЗНОРТ/) 
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789 


791 


493 


ХУҺІТЕ(6,789) (PX(I), PT( D, ЕТО( Г), DPT(D, I= 1, IM) 

FORMAT(5X,12F10.3) ` 

WRITE(6,791) IDED, AS, J G, BS: 

ЕОКМАТ(//,5Х,4Н ПЕРІ, Із,5Х, 
ЗНМАХ, 13,5Х,2НВ5,Е7,3) 

IF(KFZ,NE.1) GO TO. 793 

CALL РІ,07(0,0,0,0, 3) 

CALL NEWPEN(2) 

CALL ЕСТКРХ, РТ, IM, K0) 

CALL РЬОТ(0.0,0.0, 3) 

CALL PLOT(0.0,0.0, 3) 

CALL NEWPEN(1) 

CALL FIGT1(PX, FTO, IM, КО) 

CALL PLOT(0.0,0.0, 3) 

CONTINUE | 

RETURN 

END 


НА 5, ЕТ 43; 5Х, 
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